Курсовая работа: Объектно-ориентированная разработка программ

type

{ TForm4 }

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

ColorDialog1: TColorDialog;

Label1: TLabel;

Panel1: TPanel;

Shape1: TShape;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);

private

{ private declarations }

public

{ public declarations }

end;

var

Form4: TForm4;

implementation

uses tmain;

{ TForm4 }

procedure TForm4.Button1Click(Sender: TObject);

begin

if ColorDialog1.Execute then // вызываемокнодиологовыборыцвета

Shape1.Brush.Color:=ColorDialog1.Color; // меняемцветфигуры

end;

procedure TForm4.Button2Click(Sender: TObject);

begin