Category: Forms
Title: Create a gradient filled form
Date added: 15.03.2006
Hits: 2855


procedure TForm1.FormPaint(Sender: TObject);
var
  Row, Ht: Word;
begin
  Ht:=(ClientHeight+255) div 256;
  for Row:=0 to 255 do
    with Canvas do
    begin
      Brush.Color:=RGB(Row,0,0);
      FillRect(Rect(0,Row*Ht,ClientWidth,(Row+1)*Ht));
    end;
end;

1. How to get and set mouse position? (4853 Hits)

2. How to create a Splash Screen? (4924 Hits)

3. How to change a Hint's Font? (2444 Hits)

4. How to show balloon tooltips in my delphi program? (5257 Hits)

5. How to hide the caption bar? (2833 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.