[Lelik]

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

Код:

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]!!! Мне например не приятно смотреть на код без этого тега.

[Дикарь]

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

Код:

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

[Yurk@]

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

Код:

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]

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