paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'GtkPartialMerge' into 'main'

Browse Source 
GTK3: Passed handle of hint win control to WS inside hint data pointer.

See merge request freepascal.org/lazarus/lazarus!212
This commit is contained in:
Maxim Ganetsky 2023-06-24 14:09:10 +00:00
commit 8f8892313a
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/application.inc
View File

@ -848,6 +848,7 @@ begin
Visible := False;
Caption := '';
AutoHide := False;
HintData := Pointer((FHintControl as TWinControl).Handle);
end;
end;

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

@ -814,6 +814,7 @@ type
TGtk3HintWindow = class(TGtk3Window)
private
procedure InitializeWidget; override;
protected
function CreateWidget(const {%H-}Params: TCreateParams):PGtkWidget; override;
end;
@ -7896,6 +7897,20 @@ begin
end;
procedure TGtk3HintWindow.InitializeWidget;
var
ParentWidget: TGtk3Widget;
begin
inherited;
with LCLObject as THintWindow do begin
if Assigned(HintData) then begin
ParentWidget := TGtk3Widget(HintData);
FWidget^.realize;
GetWindow^.set_transient_for(ParentWidget.GetWindow);
end;
end;
end;
{ TGtk3Dialog }
procedure TGtk3Dialog.SetCallbacks;