Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Como se crea un degradado para un form?

Started by FGarcia , Jun 03 2009 03:08 PM

Please log in to reply

3 replies to this topic

#1 FGarcia

Advanced Member

Miembro Platino
687 posts

LocationMéxico

Posted 03 June 2009 - 03:08 PM

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

Saludos!

0

Back to top

#2 Faust

Advanced Member

Miembro Platino
213 posts

LocationDistrito Federal

Posted 03 June 2009 - 04:02 PM

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;