[Lelik]

Помогите пожалуйста!!! дали такое вот задание:
Создать приложение позволяющие выбирать из компонента Radiogroup1
тип рисуемой фигуры (эллипс,верхний треугольник,нижний треугольник),а из компонента RadioGroup2 цвет закраски (Синий,желтый) и рисовать в компоненте Image выбранную фигуру.
Я че мог сделал а дальше немогу

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

unit Unit3;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;   type TForm3 = class(TForm) Image1: TImage; RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup; Label1: TLabel; procedure RadioGroup1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;   var Form3: TForm3;   implementation   {$R *.dfm}   procedure TForm3.RadioGroup1click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0:Image1.Canvas.Ellipse (0,100,Image1.ClientWidth, Image1.ClientHeight); 1:Image1.Canvas.Polygon([Point(0,0), Point(210,210),Point(210,0)]); 2:Image1.Canvas.Polygon([Point(0,0), Point(210,210),Point(0,210)]); end;   end;   end.

[Winny]

Используйте тег [СODE]...[/СODE]!!! Мне например не приятно смотреть на код без этого тега.

[Дикарь]

А цвет по моему что то вроеде

Код:

1 2 3 4 5 6 7 8

Begin if RadioGroup.ItemIndex=0 then Canvas.Brush.Color:=clBlue else Canvas.Brush.Color:=clYellow; <Твой код> end; end.

[Yurk@]

Замени на этот код и поменяй местами RadioGroup (на 1 - Цвет, на 2 тип фигуры):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)     Image1: TImage;     RadioGroup1: TRadioGroup;     Label1: TLabel;     RadioGroup2: TRadioGroup; procedure RadioGroup2Click(Sender: TObject);     procedure RadioGroup1Click(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.dfm}   procedure TForm1.RadioGroup2Click(Sender: TObject); begin case RadioGroup2.ItemIndex of 0:Image1.Canvas.Ellipse (0,100,Image1.ClientWidth,Image1.ClientHeight); 1:Image1.Canvas.Polygon([Point(0,0),Point(210,210),Point(210,0)]); 2:Image1.Canvas.Polygon([Point(0,0),Point(210,210),Point(0,210)]); end; end;   procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0 : Image1.Canvas.Brush.Color:=clBlue; 1 : Image1.Canvas.Brush.Color:=clYellow; end; end;   end.

[Lelik]

Пасибки!!!!!!

[Lelik]

Неработает

[Дикарь]

Какой из кодов не работает?

[Yurk@]

Сообщение от Lelik

Неработает

Что именно не работае?
У меня всё работало!

[Lelik]

работает тока сперва надо выбрать цвет а потом фигуру а надо сперва фигуру а потом цвет и она рисуется

[Lelik]

все сделал всем пасибо