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/MColorPicker.pas
View File

@ -43,22 +43,11 @@ type
property Layout default lyVertical;
end;
procedure Register;
implementation
{$IFDEF FPC}
{$R MColorPicker.dcr}
{$ENDIF}
uses
mbUtils;
procedure Register;
begin
RegisterComponents('mbColor Lib', [TMColorPicker]);
end;
{TMColorPicker}
constructor TMColorPicker.Create(AOwner: TComponent);
@ -66,16 +55,13 @@ begin
inherited;
FGradientWidth := 256;
FGradientHeight := 12;
// Width := 22;
// Height := 267;
SetInitialBounds(0, 0, 22, 267);
Layout := lyVertical;
FCyan := 0;
FMagenta := 255;
FYellow := 0;
FBlack := 0;
FArrowPos := ArrowPosFromMagenta(255);
FChange := false;
Layout := lyVertical;
SetMagenta(255);
HintFormat := 'Magenta: %value';
FManual := false;