paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 12:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Object Inspector: Improve Mouse wheel scroll behavior. Issue #21795, patch from Sandro Cumerlato.

Browse Source 
git-svn-id: trunk@46580 -
This commit is contained in:
juha 2014-10-17 16:56:07 +00:00
parent 9889acf86b
commit eb2e358f20
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/ideintf/objectinspector.pp
View File

@ -391,9 +391,10 @@ type
ARect: TRect; State: TOwnerDrawState);
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure SetIdleEvent(Enable: boolean);
procedure OnGridMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL;
procedure WMMouseWheel(var Message: TLMMouseEvent); message LM_MOUSEWHEEL;
procedure SetBackgroundColor(const AValue: TColor);
procedure SetReferences(const AValue: TColor);
procedure SetSubPropertiesColor(const AValue: TColor);
@ -918,6 +919,7 @@ begin
OnKeyDown:=@ValueEditKeyDown;
OnKeyUp:=@ValueEditKeyUp;
OnMouseUp:=@ValueEditMouseUp;
OnMouseWheel:=@OnGridMouseWheel;
end;
ValueComboBox:=TComboBox.Create(Self);
@ -946,6 +948,7 @@ begin
OnCloseUp:=@ValueComboBoxCloseUp;
OnMeasureItem:=@ValueComboBoxMeasureItem;
OnDrawItem:=@ValueComboBoxDrawItem;
OnMouseWheel:=@OnGridMouseWheel;
end;
ValueCheckBox:=TCheckBox.Create(Self);
@ -963,6 +966,7 @@ begin
OnKeyDown:=@ValueCheckBoxKeyDown;
OnKeyUp:=@ValueCheckBoxKeyUp;
OnClick:=@ValueCheckBoxClick;
OnMouseWheel:=@OnGridMouseWheel;
end;
ValueButton:=TSpeedButton.Create(Self);
@ -976,6 +980,7 @@ begin
Caption := '...';
SetBounds(0,-30,Width,Height); // hidden
Parent:=Self;
OnMouseWheel:=@OnGridMouseWheel;
end;
FHintManager := THintWindowManager.Create;
@ -1157,20 +1162,21 @@ begin
end;
end;
procedure TOICustomPropertyGrid.WMMouseWheel(var Message: TLMMouseEvent);
procedure TOICustomPropertyGrid.OnGridMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if Mouse.WheelScrollLines=-1 then
begin
// -1 : scroll by page
TopY := TopY -
(Message.WheelDelta * (ClientHeight - DefaultItemHeight)) div 120;
(WheelDelta * (ClientHeight - DefaultItemHeight)) div 120;
end else begin
// scrolling one line -> scroll half an item, see SB_LINEDOWN and SB_LINEUP
// handler in WMVScroll
TopY := TopY -
(Message.WheelDelta * Mouse.WheelScrollLines*DefaultItemHeight) div 240;
(WheelDelta * Mouse.WheelScrollLines*DefaultItemHeight) div 240;
end;
Message.Result := 1;
Handled := True;
end;
function TOICustomPropertyGrid.IsCurrentEditorAvailable: Boolean;
@ -4903,6 +4909,7 @@ procedure TObjectInspectorDlg.CreateNoteBook;
OnOIKeyDown := @OnGridKeyDown;
OnKeyUp := @OnGridKeyUp;
OnDblClick := @OnGridDblClick;
OnMouseWheel := @OnGridMouseWheel;
Parent := NoteBook.Page[ANotebookPage];
end;