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

mbColorLib: Add SHL picker to and permanently display HSL edits in OfficeMoreColorsDialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5474 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-13 16:36:12 +00:00
parent fcef4c5992
commit 76f6fe2f20
6 changed files with 306 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/mbColorLib/HSLColorPicker.pas
View File

@@ -33,6 +33,8 @@ type
FHSCursor, FLCursor: TCursor;
PBack: TBitmap;
function GetManual: boolean;
function GetShowHint: Boolean;
procedure SetShowHint(AValue: Boolean);
procedure SetLumIncrement(i: integer);
procedure SelectColor(c: TColor);
procedure SetH(v: integer);
@@ -83,7 +85,7 @@ type
property HSPickerCursor: TCursor read FHSCursor write SetHSCursor default crDefault;
property LPickerCursor: TCursor read FLCursor write SetLCursor default crDefault;
property TabStop default true;
property ShowHint;
property ShowHint read GetShowHint write SetShowHint;
property ParentShowHint;
property Anchors;
property Align;
@@ -323,6 +325,19 @@ function THSLColorPicker.GetManual:boolean;
begin
Result := FHSPicker.Manual or FLPicker.Manual;
end;
function THSLColorPicker.GetShowHint: Boolean;
begin
Result := inherited ShowHint;
end;
procedure THSLColorPicker.SetShowHint(AValue: Boolean);
begin
inherited ShowHint := AValue;
FHSPicker.ShowHint := AValue;
FLPicker.ShowHint := AValue;
end;
(*
procedure THSLColorPicker.PaintParentBack;
begin