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

mbColorLib: Add HSLRingPicker and RGBColorPickers to OfficeMoreColorsDialog, fix hints in OfficeMoreColorsDialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5476 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-13 22:51:29 +00:00
parent 40d10cb7b2
commit d68a23ef91
7 changed files with 447 additions and 197 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/mbColorLib/HSLColorPicker.pas
View File

@@ -33,8 +33,6 @@ 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);
@@ -52,15 +50,15 @@ type
procedure SetSelectedColor(Value: TColor);
protected
procedure CreateWnd; override;
procedure DoChange;
procedure DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Resize; override;
procedure Paint; override;
// procedure PaintParentBack; override;
procedure WMSetFocus(var Message: {$IFDEF FPC}TLMSetFocus{$ELSE}TWMSetFocus{$ENDIF});
message {$IFDEF FPC}LM_SETFOCUS{$ELSE}WM_SETFOCUS{$ENDIF};
procedure DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure HSPickerChange(Sender: TObject);
procedure LPickerChange(Sender: TObject);
procedure DoChange;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@@ -85,7 +83,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 read GetShowHint write SetShowHint;
property ShowHint;
property ParentShowHint;
property Anchors;
property Align;
@@ -326,18 +324,6 @@ 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
@@ -361,7 +347,6 @@ end;
procedure THSLColorPicker.Resize;
begin
inherited;
// PaintParentBack(Canvas);
if (FHSPicker = nil) or (FLPicker = nil) then
exit;