You've already forked lazarus-ccr
mbColorLib: Use single registration file (instead of one for each component). Facilitate usage of Layout for trackbars. Reformat code.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5462 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@@ -44,22 +44,11 @@ type
|
||||
property Layout default lyVertical;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R YColorPicker.dcr}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
mbUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('mbColor Lib', [TYColorPicker]);
|
||||
end;
|
||||
|
||||
{TYColorPicker}
|
||||
|
||||
constructor TYColorPicker.Create(AOwner: TComponent);
|
||||
@@ -67,15 +56,13 @@ begin
|
||||
inherited;
|
||||
FGradientWidth := 255;
|
||||
FGradientHeight := 12;
|
||||
Width := 22;
|
||||
Height := 267;
|
||||
Layout := lyVertical;
|
||||
FYellow := 255;
|
||||
FMagenta := 0;
|
||||
FCyan := 0;
|
||||
FBlack := 0;
|
||||
FArrowPos := ArrowPosFromYellow(255);
|
||||
FChange := false;
|
||||
Layout := lyVertical;
|
||||
SetYellow(255);
|
||||
HintFormat := 'Yellow: %value';
|
||||
FManual := false;
|
||||
|
||||
Reference in New Issue
Block a user