3 replies to this topic

[FGarcia]

Pues solo eso ¿Como se crea un degradado para un form?

Saludos!

[Faust]

De volada hice esto:

delphi

procedure TfrmMain.FormPaint(Sender: TObject);
var i, Rows: Integer;
begin
  Rows:= frmMain.ClientHeight div 24;
  for i:= 0 to 24 do
  begin
    frmMain.Canvas.Brush.Color:= RGB(255 - (i*2), 255 - i, 255);
    frmMain.Canvas.FillRect(Rect(0, Rows * i, frmMain.ClientWidth, Rows * i * 2))
  end;
end;
 
procedure TfrmMain.FormResize(Sender: TObject);
begin
  Repaint
end;

Estoy seguro que hay mejores formas de hacerlo.

[enecumene]

Tal vez te sirva esto:

http://delphi.about....adient_fill.htm

Saludos.

[FGarcia]

Vale!
Generalmente busco respuestas ahi en About, se me olvido hacerlo esta vez.

Gracias.