2/13/14

Menggambar bitmap dengan media form

Buat form dengan sebuah button kemudian klik dua kali button tersebut. lalu masukan kode berikut

procedure TForm1.Button1Click(Sender: TObject);
var
Gambar: TPicture;
X, Y: Integer;
begin
x:=0;
y:=0;
 Gambar:= TPicture.Create;
 gambar.LoadFromFile('bitmap1.bmp');
 form1.Canvas.Draw(x,y,gambar.Graphic);

end;


variabel gambar mewakili objek dari sebuah gambar yang membutuhkan sebuah canvas , di sini kita menggunakan canvas dari form.
gambar.loadfromfile, perintah untuk memasukan file bitmap kedalam gambar,usahakan gambar yang di load satu directory dengan file project atau setidaknya kita masukan path dengan jelas.

gambar yang dibuat dengan cara seperti ini mungkin akan terhapus bila ada event yang terjadi. bila kita ingin gambar ini tetap muncul atau di gambar ulang kita dapat memindahkan kode di atas.
klik terlebih dahulu form untuk memastikan objecinspektor menandai form .pada object inspector dalam tab event klik dua kali pada visual>>onpain lalu masukan kode di atas hingga seperti:

procedure TForm1.FormPaint(Sender: TObject);
var
Gambar: TPicture;
X, Y: Integer;
begin
x:=0;
y:=0;
 Gambar:= TPicture.Create;
 gambar.LoadFromFile('bitmap1.bmp');
 Canvas.Draw(x,y,gambar.Graphic);

end;

dengan menggunakan event ini, gambar akan digambar ulang ketika form di gambar ulang.


No comments:

Iklan

Iklan

Iklan