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

mbColorLib: Redo hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5519 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-16 18:42:32 +00:00
parent f2809fba90
commit 90314c0876
13 changed files with 244 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/mbColorLib/HSLColorPicker.pas
View File

@@ -52,6 +52,7 @@ type
procedure CreateWnd; override;
procedure DoChange;
procedure DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
function GetColorUnderCursor: TColor; override;
procedure Resize; override;
procedure Paint; override;
// procedure PaintParentBack; override;
@@ -62,10 +63,9 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetColorUnderCursor: TColor;
function GetHexColorUnderCursor: string;
function GetHexColorUnderCursor: string; override;
function GetSelectedHexColor: string;
property ColorUnderCursor: TColor read GetColorUnderCursor;
property ColorUnderCursor;
property HValue: integer read FHValue write SetH default 0;
property SValue: integer read FSValue write SetS default 240;
property LValue: integer read FLValue write SetL default 120;
@@ -292,7 +292,7 @@ end;
function THSLColorPicker.GetColorUnderCursor: TColor;
begin
Result := FHSPicker.GetColorUnderCursor;
Result := FHSPicker.ColorUnderCursor;
end;
function THSLColorPicker.GetHexColorUnderCursor: string;