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

16
components/mbColorLib/SLHColorPicker.pas
View File

@@ -32,6 +32,8 @@ type
FSLCursor, FHCursor: TCursor;
PBack: TBitmap;
function GetManual: boolean;
function GetShowHint: Boolean;
procedure SetShowHint(AValue: Boolean);
procedure SelectColor(c: TColor);
procedure SetH(v: integer);
procedure SetS(v: integer);
@@ -79,7 +81,7 @@ type
property HPickerCursor: TCursor read FHCursor write SetHCursor default crDefault;
property SLPickerCursor: TCursor read FSLCursor write SetSLCursor default crDefault;
property TabStop default true;
property ShowHint;
property ShowHint read GetShowHint write SetShowHint;
property ParentShowHint;
property Anchors;
property Align;
@@ -326,6 +328,18 @@ begin
Result := FHPicker.Manual or FSLPicker.Manual;
end;
function TSLHColorPicker.GetShowHint: Boolean;
begin
result := inherited ShowHint;
end;
procedure TSLHColorPicker.SetShowHint(AValue: Boolean);
begin
inherited ShowHint := AValue;
FSLPicker.ShowHint := AValue;
FHPicker.ShowHint := AValue;
end;
procedure TSLHColorPicker.Resize;
begin
inherited;