How To Make A Gradient Filled Form | |||
| |||
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; Tags: Delphi Gradient Filled Form Paint Form | |||
| |||
| |||
Login for comment |