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

LCL-GTK3: Improve menu position and RadioItems. Issue #37740, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@63896 -
This commit is contained in:
juha 2020-09-20 09:56:38 +00:00
parent f9814634a0
commit 2e27713e66
2 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1495,7 +1495,7 @@ begin
Msg.SizeType := Msg.SizeType or Size_SourceIsInterface;
if ACtl.WidgetType*[wtEntry,wtComboBox,wtScrollBar,wtSpinEdit]<>[] then
if ACtl.WidgetType*[wtEntry,wtComboBox,wtScrollBar,wtSpinEdit,wtHintWindow]<>[] then
begin
Msg.Width := ACtl.LCLObject.Width;//Word(NewSize.cx);
Msg.Height := ACtl.LCLObject.Height;//Word(NewSize.cy);
@ -1512,7 +1512,7 @@ begin
end;
ACtl.DeliverMessage(Msg);
if (wtWindow in ACtl.WidgetType) and
(* if (wtWindow in ACtl.WidgetType) and
((AGdkRect^.x <> ACtl.LCLObject.Left) or (AGdkRect^.y <> ACtl.LCLObject.Top)) then
begin
FillChar(MoveMsg, SizeOf(MoveMsg), #0);
@ -1524,7 +1524,7 @@ begin
DebugLn('SEND MOVE MESSAGE X=',dbgs(AGdkRect^.x),' Y=',dbgs(AGdkRect^.y),' control ',dbgsName(ACtl.LCLObject));
{$ENDIF}
ACtl.DeliverMessage(MoveMsg);
end;
end; *)
end;
function Gtk3ResizeEvent(AWidget: PGtkWidget; AEvent: PGdkEvent; Data: gpointer): gboolean; cdecl;
@ -4622,17 +4622,21 @@ begin
if (ndx>0) then
begin
ParentMenu:=menuItem.Parent.Items[ndx-1];
if (MenuItem.GroupIndex>0) and (ParentMenu.GroupIndex=MenuItem.GroupIndex) then
if (MenuItem.GroupIndex>=0) and (ParentMenu.GroupIndex=MenuItem.GroupIndex) then
begin
pl:=PGtkRadioMenuItem(TGtk3MenuItem(ParentMenu.Handle).Widget)^.get_group;
PGtkRadioMenuItem(Result)^.set_group(pl);
end;
end;
end;
//PGtkRadioMenuItem(Result)^.set_active(MenuItem.Checked);
end
else
if MenuItem.IsCheckItem and not MenuItem.HasIcon then
Result := TGtkCheckMenuItem.new
begin
Result := TGtkCheckMenuItem.new;
PGtkCheckMenuItem(Result)^.set_active(MenuItem.Checked);
end
else
Result := TGtkMenuItem.new;

7
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -116,7 +116,12 @@ begin
exit;
end;
if Gtk3IsGdkWindow(AWidget.Widget^.window) then
gdk_window_get_origin(AWidget.Widget^.window, @Pt.X, @Pt.Y)
begin
gdk_window_get_origin(AWidget.Widget^.window, @Pt.X, @Pt.Y);
gtk_widget_get_allocation(AWidget.Widget, @TempAlloc);
Pt.X += TempAlloc.x;
Pt.Y += TempAlloc.y;
end
else
begin
gtk_widget_get_allocation(AWidget.Widget, @TempAlloc);