pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-14 21:42:50 +02:00
Code Issues Actions 1 Releases Activity

OSR demo : TChromium.WasHidden(False) must be in TForm.OnShow

Browse Source
This commit is contained in:
Salvador Díaz Fau
2017-10-29 17:18:27 +01:00
parent 410c16b0bb
commit 453c3065d7
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
View File

@@ -433,8 +433,6 @@ end;
procedure TForm1.BrowserCreatedMsg(var aMessage : TMessage); procedure TForm1.BrowserCreatedMsg(var aMessage : TMessage);
begin begin
chrmosr.WasHidden(False);
chrmosr.SendFocusEvent(True);
NavControlPnl.Enabled := True; NavControlPnl.Enabled := True;
GoBtn.Click; GoBtn.Click;
end; end;
@@ -461,9 +459,17 @@ end;
procedure TForm1.FormShow(Sender: TObject); procedure TForm1.FormShow(Sender: TObject);
begin begin
if chrmosr.Initialized then
begin
chrmosr.WasHidden(False);
chrmosr.SendFocusEvent(True);
end
else
begin
chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF); // opaque white background color chrmosr.Options.BackgroundColor := CefColorSetARGB($FF, $FF, $FF, $FF); // opaque white background color
chrmosr.CreateBrowser(nil, ''); chrmosr.CreateBrowser(nil, '');
chrmosr.InitializeDragAndDrop(PaintBox); chrmosr.InitializeDragAndDrop(PaintBox);
end;
end; end;
procedure TForm1.PaintBoxClick(Sender: TObject); procedure TForm1.PaintBoxClick(Sender: TObject);