File tree Expand file tree Collapse file tree 2 files changed +4
-3
lines changed
demos/Lazarus_Linux_QT6/SimpleBrowser Expand file tree Collapse file tree 2 files changed +4
-3
lines changed Original file line number Diff line number Diff 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 ;
179179end ;
180180{ %Endregion}
@@ -219,7 +219,8 @@ procedure TMainForm.BrowserCloseFormMsg(Data: PtrInt);
219219
220220procedure TMainForm.BrowserSetFocusMsg (Data: PtrInt);
221221begin
222- CEFLinkedWindowParent1.SetFocus;
222+ if assigned(CEFLinkedWindowParent1) then
223+ CEFLinkedWindowParent1.SetFocus;
223224end ;
224225
225226procedure TMainForm.WMMove (var Message: TLMMove);
Original file line number Diff line number Diff line change 22 "UpdateLazPackages" : [
33 {
44 "ForceNotify" : true ,
5- "InternalVersion" : 799 ,
5+ "InternalVersion" : 800 ,
66 "Name" : " cef4delphi_lazarus.lpk" ,
77 "Version" : " 140.1.14"
88 }
You can’t perform that action at this time.
0 commit comments