paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 15:40:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: stop mouse press/release for wtPanel type, so dragging of TCustomPanel works now.

Browse Source
This commit is contained in:
zeljan1 2025-02-23 18:15:22 +01:00
parent 72d920bcc6
commit 52ce6cd071
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -51,7 +51,7 @@ type
TGtk3WidgetType = (wtWidget, wtStaticText, wtProgressBar, wtLayout,
wtContainer, wtMenuBar, wtMenu, wtMenuItem, wtEntry, wtSpinEdit,
wtNotebook, wtTabControl, wtComboBox,
wtNotebook, wtTabControl, wtComboBox, wtPanel,
wtGroupBox, wtCalendar, wtTrackBar, wtScrollBar,
wtScrollingWin, wtListBox, wtListView, wtCheckListBox, wtMemo, wtTreeModel,
wtCustomControl, wtScrollingWinControl,
@ -2396,6 +2396,8 @@ begin
exit;
Result := DeliverMessage(Msg, True) <> 0;
end;
if wtPanel in WidgetType then
Result := GDK_EVENT_STOP;
end;
function TGtk3Widget.GetVisible: Boolean;
@ -3499,7 +3501,7 @@ begin
FHasPaint := True;
FBorderStyle := bsNone;
FWidgetType := [wtWidget, wtLayout];
FWidgetType := [wtWidget, wtLayout, wtPanel];
Result := TGtkLayout.new(nil, nil);
Result^.set_has_window(True);
// as GtkFixed have no child control here - nobody triggers resizing