Skip to content

Commit f8834c0

Browse files
committed
Fixed possible access violation in Lazarus_Linux_QT6/SimpleBrowser
1 parent 8d047e2 commit f8834c0

File tree

2 files changed

+4
-3
lines changed

2 files changed

+4
-3
lines changed

demos/Lazarus_Linux_QT6/SimpleBrowser/umainform.pas

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -174,7 +174,7 @@ procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
174174
FClosing := True;
175175
Visible := False;
176176
Chromium1.CloseBrowser(True);
177-
CEFLinkedWindowParent1.Free;
177+
FreeAndNil(CEFLinkedWindowParent1);
178178
end;
179179
end;
180180
{%Endregion}
@@ -219,7 +219,8 @@ procedure TMainForm.BrowserCloseFormMsg(Data: PtrInt);
219219

220220
procedure TMainForm.BrowserSetFocusMsg(Data: PtrInt);
221221
begin
222-
CEFLinkedWindowParent1.SetFocus;
222+
if assigned(CEFLinkedWindowParent1) then
223+
CEFLinkedWindowParent1.SetFocus;
223224
end;
224225

225226
procedure TMainForm.WMMove(var Message: TLMMove);

update_CEF4Delphi.json

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22
"UpdateLazPackages" : [
33
{
44
"ForceNotify" : true,
5-
"InternalVersion" : 799,
5+
"InternalVersion" : 800,
66
"Name" : "cef4delphi_lazarus.lpk",
77
"Version" : "140.1.14"
88
}

0 commit comments

Comments
 (0)