RSS

Colorindo um form (fácil e legal)

28 nov

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;

Anúncios
 
Deixe um comentário

Publicado por em 28/11/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: