Shapenin Hem Rengini Hem Şeklini Değiştir

MainMenü içerisine oval,dikdörtgen gibi şekil isimleri yazarak Shape’nin hem rengini hem şeklini değiştiren programın kodu.

Kodu;

procedure TForm1.KARE1Click(Sender: TObject);   begin   shape1.Shape := stSquare;   shape1.Brush.Color := clred;   end;        procedure TForm1.DARE1Click(Sender: TObject);   begin   shape1.Shape:=stCircle;   shape1.Brush.Color := clgreen;   end;        procedure TForm1.OVALKARE1Click(Sender: TObject);   begin   shape1.Shape:=stRoundSquare;   end;        procedure TForm1.OVALDKTRTGEN1Click(Sender: TObject);   begin   shape1.Shape:=stRoundRect;   end;        procedure TForm1.IKI1Click(Sender: TObject);   begin   Close;   end;   end.