O componente LazGradient

Com esse componente os programas escritos em lazarus ficam com um visual bem atraente, mas cuidado pra não exagerar na dose.

Exemplo simples:



Exemplo mais complexo:



Propriedades principais:
BeginColor:TColor
EndColor:TColor
Orientation => foLeftToRight, fdTopToBottom
Rounded => Boolean

Na versão atual esse componente ao ser adicionado no form, automaticamente ocupa toda a tela.

Para corrigir, faça as alterações a seguir.
Abra o pacote lazgradient.lpk
Abra a unit gradient.pas e localize o codigo abaixo:

constructor TLazGradient.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   BeginColor:= clBlue;
   EndColor:= clWhite;
   Orientation:= foLeftToRight;
   Align:= alClient;
   Alignment := taCenter;
   Rounded:= False;
end;

Mude

Align:= alClient;

para:

Align:= alNone;

Adicione as linhas abaixo:

Height:=35;
Width:=120;

Deve ficar assim:

constructor TLazGradient.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   BeginColor:= clBlue;
   EndColor:= clWhite;
   Orientation:= foLeftToRight;
   Align:= alNone;
   Alignment := taCenter;
   Rounded:= False;
   Height:=35;
   Width:=120;
end;


Incremente seu sistema de automação comercial, pdv, etc.
Experimente o LazGradient !

Link para download do componente:

http://wile64.perso.neuf.fr/download/lazarus/lazgradient.zip

Até a proxima.