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....
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....
Diposting oleh
Borland7
0 komentar:
Posting Komentar