[Delphi 7] - Gradient Form-VBForums
Results 1 to 2 of 2

Thread: [Delphi 7] - Gradient Form

  1. #1

    Thread Starter
    Supreme User Madboy's Avatar
    Join Date
    Oct 2003
    Location
    England
    Posts
    3,253

    [Delphi 7] - Gradient Form

    Code:
        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{Row}, {Row}0) ;
        FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;
        end ;
        end;

  2. #2

    Thread Starter
    Supreme User Madboy's Avatar
    Join Date
    Oct 2003
    Location
    England
    Posts
    3,253

    Re: [Delphi 7] - Gradient Form

    How do you change the gradient colour?

    I have tried modifying all the values in the code!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.