Penggunaan Shape di Delphi #61

andrypein.net : Kali ini akan menjelaskan penggunaan komponen shape di delphi program nyubitolnya berupa apps yang bisa mengganti shape dan merubah warnanya dengan menggunakan colorcombobox, kedua komponen berada pada palette additional.

penampakannya kaya gini gan:
untuk shape

untuk colorcombobox

kita akan membuat program nyubitol yang seperti ini penampakannya :

Bentuk sedemikian rupa,persis ga persis gapapa.
jadi yang dibutuhkannya yaitu:

Lalu pada listboxnya di properties object inspector beri item 6 buah.

Dengan meng klik kotak kecil nya dan pada editornya masukan list ininya:

Setelah semua disiapkan saatnya memberi listing pada komponen listbox dan combocolornya.
untuk listbox beri event click dan listingnya seperti ini:

procedure TForm1.listbox1click(Sender: TObject);
begin
 case listbox1.ItemIndex of
  0: shape1.shape:=stSquare;
  1: shape1.shape:=stCircle;
  2: shape1.shape:=stEllipse;
  3: shape1.shape:=stRectangle;
  4: shape1.shape:=stRoundSquare;
  5: shape1.shape:=stRoundRect;
end;

dan untuk combocolor beri event onchange.

procedure TForm1.ColorboxChange(Sender: TObject);
begin
  shape1.Brush.Color:=colorbox1.selected;
end;

lalu coba run oleh rekan2 semua dan penampakan akhirnya seperti ini:

oke dah selesai juga postingan shape di delphi semoga bermanfaat.

*AFK