paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 03:27:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fixed compilation on ms windows. Patch by barlone. issue #36991

Browse Source 
git-svn-id: trunk@63091 -
This commit is contained in:
zeljko 2020-04-29 10:44:29 +00:00
parent a3f4b124d6
commit 7268a635f5
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -51,6 +51,7 @@ uses
type
{$IFDEF HASX}
{ TDummyWidget }
TDummyWidget = class(TObject) {needed for accurate frame on x11}
@ -68,6 +69,7 @@ type
procedure HideWidget;
property Widget: PGtkWidget read FWidget write FWidget;
end;
{$ENDIF}
{ TGtk2WidgetSet }

2
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -417,9 +417,11 @@ begin
P := gtk_hbox_new(false, 0);
end;
{$IFDEF HASX}
if (AWinControl = Application.MainForm) and
not Application.HasOption('disableaccurateframe') then
Gtk2WidgetSet.CreateDummyWidgetFrame(-1, -1, -1, -1);
{$ENDIF}
WidgetInfo := CreateWidgetInfo(P, AWinControl, AParams);
WidgetInfo^.FormBorderStyle := Ord(ABorderStyle);