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

mbColorLib: All HSV/HSL controls have a property for MaxHue/MaxSaturation/MaxValue (MaxLuminance). Some refactoring avoiding duplicate storage of H, S, L (V) in the complex pickers.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5540 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-19 16:38:29 +00:00
parent d42ba252f3
commit c75b85e42a
30 changed files with 1399 additions and 803 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/mbColorLib/HColorPicker.pas
View File

@@ -65,7 +65,7 @@ begin
FMaxSat := 255;
FMaxVal := 255;
FGradientWidth := FMaxHue + 1;
FGradientHeight := 12;
FGradientHeight := 1;
FSat := 1.0;
FVal := 1.0;
FChange := false;
@@ -80,7 +80,7 @@ var
h: Double;
begin
if Layout = lyVertical then AValue := (FMaxHue + 1) - AValue;
h := AValue / (FMaxHue + 1);
h := AValue / FMaxHue;
Result := HSVtoColor(h, FSat, FVal);
end;