Membuat Titik Dengan Delphi | Grafkom
Pagi ini saya akan membagikan tutorial dasar tentang membuat sebuah titik dengan koordinat yang kita tentukan dan memberi warna pada titik tersebut.
A. Siapkan project anda.
B. Masukkan Timage, 3 buah edit.text dan 1 button dan1 panel
Keterangan :
1. Edit text sebanyak 3 buah
2. Button 1 buah
3. Panel 1 buah
4. Image 1 Buah.
C. kemudian klik 2 Kali pada Button dan tulis script berikut ini :
procedure TForm1.Button1Click(Sender: TObject);D. Setelah itu silahkan anda Compile.
var
x,y,i,j : integer;
color : Tcolor ;
begin
if (tx.text)<>'' then
x:=StrToInt (tX.Text ) ;
if (ty.text)<>'' then
y:=strtoint (ty.Text ) ;
if (twarna.text)<>'' then
color:=StrToInt (twarna.Text );
for i:=x to x+20 do
for j:=y to y+20 do
image1.Canvas .Pixels [i,j]:=color;
end;
end.
Terimakasih atas komentar Anda.
Budayakan Bertanya dan Berkomentar dengan Sopan.
Tolong tinggalkan komentar jika Anda menemukan Link yang Broken.
EmoticonEmoticon