pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

mbColorLib: Use single registration file (instead of one for each component). Facilitate usage of Layout for trackbars. Reformat code.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5462 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-11 22:56:25 +00:00
parent 8b1a85037f
commit 1accce10f1
37 changed files with 2193 additions and 1878 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/mbColorLib/GColorPicker.pas
View File

@@ -39,22 +39,11 @@ type
property Layout default lyVertical;
end;
procedure Register;
implementation
{$IFDEF FPC}
{$R GColorPicker.dcr}
{$ENDIF}
uses
mbUtils;
procedure Register;
begin
RegisterComponents('mbColor Lib', [TGColorPicker]);
end;
{TGColorPicker}
constructor TGColorPicker.Create(AOwner: TComponent);
@@ -62,15 +51,12 @@ begin
inherited;
FGradientWidth := 256;
FGradientHeight := 12;
SetInitialBounds(0, 0, 22, 268);
//Width := 22;
//Height := 268;
Layout := lyVertical;
FRed := 122;
FGreen := 255;
FBlue := 122;
FArrowPos := ArrowPosFromGreen(255);
FChange := false;
Layout := lyVertical;
SetGreen(255);
HintFormat := 'Green: %value';
FManual := false;