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

mbColorLib: Fix MouseWheel in HexaColorPicker

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5511 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-15 23:41:44 +00:00
parent 8b7b1a7469
commit 32ba00392a
1 changed files with 15 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
components/mbColorLib/HexaColorPicker.pas
View File

@ -101,10 +101,10 @@ type
function GetPreviousCombIndex(i: integer): integer;
protected
// procedure CreateWnd; override;
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
procedure Paint; override;
procedure Resize; override;
procedure WheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
procedure WheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
{$IFDEF DELPHI}
procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
procedure CMHintShow(var Message: TMessage); message CM_HINTSHOW;
@ -226,8 +226,6 @@ begin
FNewArrowStyle := false;
Initialize;
DrawAll;
OnMouseWheelUp := WheelUp;
OnMouseWheelDown := WheelDown;
FIntensityText := 'Intensity';
{
MaxHue := 360;
@ -243,7 +241,19 @@ begin
FBufferBmp.Free;
inherited;
end;
(*
function THexaColorPicker.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint): Boolean;
begin
Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
if not Result then
begin
Result := True;
ChangeIntensity(WheelDelta > 0);
end;
end;
(*
procedure THexaColorPicker.CreateWnd;
var
rw, rh: integer;
@ -1429,24 +1439,6 @@ begin
OnKeyDown(Self, Message.CharCode, Shift);
end;
procedure THexaColorPicker.WheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if FSliderVisible then
begin
Handled := true;
ChangeIntensity(true);
end;
end;
procedure THexaColorPicker.WheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if FSliderVisible then
begin
Handled := true;
ChangeIntensity(false);
end;
end;
function THexaColorPicker.SelectAvailableColor(Color: TColor): boolean;
var
I: integer;