Untuk memperindah tampilan program yang Anda buat, Anda bisa membuat form gradient. Caranya yaitu dengan menambahkan kode pada event OnPaint dari form seperti contoh di bawah ini:
procedure TForm1.FormPaint(Sender: TObject);
var
Row, Ht: Word;
IX: Integer;
begin
iX :=200 ;
Ht:=(ClientHeight + 512) div 256;
for Row := 0 to 512 do
begin
with Canvas do begin
Brush.Color := RGB(Ix,150,row);
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
IX :=(IX-1);
end;
end;
end;
Untuk mengganti menjadi warna lain, Anda tinggal mengganti pada baris:
Brush.Color := RGB(Ix,150,row);
RGB merupakan kombinasi warna Red, Green, Blue. Nilai yang bisa Anda masukkan pada RGB yaitu 0 sampai 255.
Saturday, January 8, 2011
Membuat form gradient
6:12 PM
iwan RFID
0 comments:
Post a Comment