quarta-feira, 30 de setembro de 2009

Coloração gradiente no form

Procedure TForm1.FormPaint(Sender: TObject);
var
altura, coluna: Word;
begin
altura := (ClientHeight + 255) div 256;
for coluna := 0 to 255 do
with Canvas do
begin
Brush.Color := RGB(coluna, 0, 0); { Modifique para obter cores diferentes }
FillRect(Rect(0, coluna * altura, ClientWidth, (coluna + 1) * altura)) ;
end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Invalidate;
end;

Nenhum comentário:

Postar um comentário