You've already forked lazarus-ccr
mbColorLib: Remove LColorPicker and VColorPicker from lib (are replaced by LVColorPicker). Remove two forgotten Delphi dfm files.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5597 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@@ -907,9 +907,18 @@ end;
|
||||
procedure TmbHSLVTrackbarPicker.SetBrightnessMode(AMode: TBrightnessMode);
|
||||
var
|
||||
c: TColor;
|
||||
S, L, V: Double;
|
||||
begin
|
||||
c := HSLVtoColor(FHue, FSat, FLum, FVal);
|
||||
FBrightnessMode := AMode;
|
||||
(*
|
||||
ColorToHSLV(c, FHue, S, L, V);
|
||||
SetRelSat(S);
|
||||
case AMode of
|
||||
bmLuminance: SetRelLum(L);
|
||||
bmValue : SetRelVal(V);
|
||||
end;
|
||||
*)
|
||||
ColorToHSLV(c, FHue, FSat, FLum, FVal);
|
||||
CreateGradient;
|
||||
Invalidate;
|
||||
|
||||
Reference in New Issue
Block a user