Pues solo eso ¿Como se crea un degradado para un form?
Saludos!
Como se crea un degradado para un form?
Comenzado por
FGarcia
, jun 03 2009 03:08
3 respuestas en este tema
#1
Escrito 03 junio 2009 - 03:08
#2
Escrito 03 junio 2009 - 04:02
De volada hice esto:
Estoy seguro que hay mejores formas de hacerlo.
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.
#3
Escrito 03 junio 2009 - 05:53
#4
Escrito 04 junio 2009 - 09:57
Vale!
Generalmente busco respuestas ahi en About, se me olvido hacerlo esta vez.
Gracias.
Generalmente busco respuestas ahi en About, se me olvido hacerlo esta vez.
Gracias.