The component LazGradient

With this component the programs written in lazarus are with an appearance well attractive, but well-taken care of to not to exaggerate.

Examples:





Main properties:

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

In the current version this component to the being added in form, automatically occupies all the screen.

To correct, it makes the alterations to follow.
Open the package Lazgradient.lpk
Open unit Gradient.pas and locates the code below:

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

Change

Align:= alClient;

to

Align:= alNone;

It adds the lines below:

Height:=35;
Width:=120;

Result below:

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;

It develops its system of commercial automation.
Try the LazGradient!

Link to download component:

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

Until the next one.