Компонент Radiogroup

[Lelik]

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

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.

 

[Mr_Duke]

Объедените все в одну процедуру (например при нажатии кнопки) в такой последовательности:
1.Встасте этот текст:
Form1.Image1.Canvas.Brush.Color := clwhite;
Form1.Image1.Canvas.Rectangle(0, 0, form1.Image1.ClientWidth, form1.Image1.ClientHeight);
2.Установка цвета.
3.Рисование фигуры.

 

[Lelik]

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

 

[Lelik]

Вусе заработало