Search results for 'Paint Form'. 1 post(s) found.
- 2007/08/25 How To Make A Gradient Filled Form
Show how to paint a form in a different way...
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,0,row);
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
IX :=(IX-1);
end;
end;
end;
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,0,row);
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
IX :=(IX-1);
end;
end;
end;
Another posts included in "Delphi"
| How To Get The Windows Language (0) | 2007/08/25 |
| How To Change The Desktop Wallpaper (0) | 2007/08/25 |
| How To Get The Windows OS Version (0) | 2007/08/25 |
| How can I hide the caption bar on a form? (0) | 2007/08/25 |
| How To Send An E-mail By Code (0) | 2007/08/25 |
| How To Open Url In Default Webbrowser (0) | 2007/08/25 |
| How To Check If A Soundcard Is Installed (0) | 2007/08/25 |
| How To Change Screen Resolution (0) | 2007/08/25 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 02:47
moneyideas
-
Subject different money making ideas
2010/01/29 11:23
moneyideas
-
Subject different money making ideas
2010/01/31 16:39
moneyideas
Prev
Rss Feed