Selasa, 22 Juni 2010 di 21.08 |  
bosan dengan tampilan form delphi anda....
sekarang anda dapat membuat tampilan form delphi anda sedikit lebih menarik...
disini kita akan membuat gradien warna...langsung aja yah

silahkan buka new project delphi anda....lalu isikan code dibawah 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;


end.

jalankan delphi anda....dan lihat hasilnya....
Diposkan oleh Borland7

0 komentar:

Visit the Site
MARVEL and SPIDER-MAN: TM & 2007 Marvel Characters, Inc. Motion Picture © 2007 Columbia Pictures Industries, Inc. All Rights Reserved. 2007 Sony Pictures Digital Inc. All rights reserved. blogger templates