Bug fix #37

Initialization fix
2025-11-23 21:34:53 +02:00 · 2017-10-03 14:38:37 +02:00
parent 43412f48d1
commit 5790d86fbf
53 changed files with 1556 additions and 1545 deletions
--- a/demos/SimpleOSRBrowser/SimpleOSRBrowser.dpr
+++ b/demos/SimpleOSRBrowser/SimpleOSRBrowser.dpr
@@ -61,14 +61,14 @@ begin
  //GlobalCEFApp.EnableGPU                  := False;

  // In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data.
-  {
+{
  GlobalCEFApp.FrameworkDirPath     := 'cef';
  GlobalCEFApp.ResourcesDirPath     := 'cef';
  GlobalCEFApp.LocalesDirPath       := 'cef\locales';
  GlobalCEFApp.cache                := 'cef\cache';
  GlobalCEFApp.cookies              := 'cef\cookies';
  GlobalCEFApp.UserDataPath         := 'cef\User Data';
-  }
+}

  if GlobalCEFApp.StartMainProcess then
    begin
--- a/demos/SimpleOSRBrowser/SimpleOSRBrowser.dsk
+++ b/demos/SimpleOSRBrowser/SimpleOSRBrowser.dsk
@@ -10,19 +10,19 @@ File_7=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Fo
 File_8=TSourceModule,'c:\program files\embarcadero\studio\17.0\SOURCE\VCL\Vcl.Controls.pas',0,1,10019,18,10051,0,0,,

 [Modules]
-Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas
-Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj
+Module0=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj
+Module1=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas
 Module2=default.htm
 Module3=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\source\uCEFConstants.pas
 Count=4
 EditWindowCount=1

-[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas]
-ModuleType=TSourceModule
-
 [C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dproj]
 ModuleType=TBaseProject

+[C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas]
+ModuleType=TSourceModule
+
 [default.htm]
 ModuleType=TURLModule

@@ -31,7 +31,7 @@ ModuleType=TSourceModule

 [EditWindow0]
 ViewCount=4
-CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas
+CurrentEditView=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dpr
 View0=0
 View1=1
 View2=2
@@ -52,18 +52,18 @@ ClientHeight=9417
 DockedToMainForm=1
 BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
 TopPanelSize=0
-LeftPanelSize=1898
-LeftPanelClients=PropertyInspector,DockSite3
-LeftPanelData=00000800010100000000A219000000000000016A0700000000000001000000005D0E000009000000446F636B53697465330100000000972300001100000050726F7065727479496E73706563746F72FFFFFFFF
+LeftPanelSize=0
 RightPanelSize=2000
-RightPanelClients=DockSite2,DockSite4
-RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000004312000009000000446F636B536974653201000000009723000009000000446F636B5369746534FFFFFFFF
+RightPanelClients=DockSite2
+RightPanelData=00000800010100000000A21900000000000001D00700000000000001000000009723000009000000446F636B5369746532FFFFFFFF
 BottomPanelSize=0
 BottomPanelClients=DockSite1,MessageView
-BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D1234000000000000022506000000000000FFFFFFFF
+BottomPanelData=0000080001020200000009000000446F636B53697465310F0000004D65737361676556696577466F726D3B3600000000000002240B000000000000FFFFFFFF
 BottomMiddlePanelSize=0
 BottomMiddlePanelClients=DockSite0,GraphDrawingModel
 BottomMiddelPanelData=0000080001020200000009000000446F636B536974653010000000477261706844726177696E67566965779D1D00000000000002F306000000000000FFFFFFFF
+TabDockLeftClients=PropertyInspector=0,DockSite3=1
+TabDockRightClients=DockSite4=0

 [View0]
 CustomEditViewType=TWelcomePageView
@@ -72,7 +72,7 @@ WelcomePageURL=bds:/default.htm
 [View1]
 CustomEditViewType=TEditView
 Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\SimpleOSRBrowser.dpr
-CursorX=4
+CursorX=2
 CursorY=71
 TopLine=37
 LeftCol=1
@@ -83,9 +83,9 @@ EditViewName=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\d
 [View2]
 CustomEditViewType=TEditView
 Module=C:\Users\usuario\Documents\Embarcadero\Studio\Projects\CEF4Delphi\demos\SimpleOSRBrowser\uSimpleOSRBrowser.pas
-CursorX=24
-CursorY=453
-TopLine=450
+CursorX=64
+CursorY=65
+TopLine=38
 LeftCol=1
 Elisions=
 Bookmarks={1,257,10}{2,328,1}{3,437,1}
@@ -119,11 +119,11 @@ State=0
 Left=0
 Top=0
 Width=3820
-Height=1143
+Height=2466
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3820
-ClientHeight=1143
+ClientHeight=2466
 TBDockHeight=213
 LRDockWidth=13602
 Dockable=1
@@ -167,11 +167,11 @@ State=0
 Left=0
 Top=0
 Width=2000
-Height=4305
+Height=8935
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=2000
-ClientHeight=4305
+ClientHeight=8935
 TBDockHeight=5897
 LRDockWidth=2352
 Dockable=1
@@ -184,14 +184,14 @@ Visible=0
 Docked=1
 State=0
 Left=0
-Top=0
+Top=18
 Width=2773
-Height=1424
+Height=2747
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=2773
-ClientHeight=1424
-TBDockHeight=1424
+ClientHeight=2747
+TBDockHeight=2747
 LRDockWidth=2773
 Dockable=1
 StayOnTop=0
@@ -204,12 +204,12 @@ Docked=1
 State=0
 Left=0
 Top=0
-Width=2000
-Height=4383
+Width=1875
+Height=6794
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=2000
-ClientHeight=4383
+ClientWidth=1875
+ClientHeight=6794
 TBDockHeight=7152
 LRDockWidth=2000
 Dockable=1
@@ -259,8 +259,8 @@ Create=1
 Visible=0
 Docked=1
 State=0
-Left=-148
-Top=-132
+Left=-8
+Top=-30
 Width=1844
 Height=3139
 MaxLeft=-1
@@ -313,28 +313,23 @@ StayOnTop=0
 [PropertyInspector]
 PercentageSizes=1
 Create=1
-Visible=1
+Visible=0
 Docked=1
 State=0
-Left=0
-Top=357
+Left=78
+Top=386
 Width=1898
-Height=5415
+Height=7220
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=1898
-ClientHeight=5415
+ClientHeight=7220
 TBDockHeight=7220
 LRDockWidth=1898
 Dockable=1
 StayOnTop=0
 SplitPos=111

-[PropInspDesignerSelection]
-ArrangeBy=Name
-SelectedItem=Action,OnCreate
-ExpandedItems=Anchors=0,BorderIcons=0,Constraints=0,LiveBindings=0
-
 [frmDesignPreview]
 PercentageSizes=1
 Create=1
@@ -344,11 +339,11 @@ State=0
 Left=0
 Top=0
 Width=2000
-Height=6939
+Height=6883
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=2000
-ClientHeight=6939
+ClientHeight=6883
 TBDockHeight=5964
 LRDockWidth=2508
 Dockable=1
@@ -360,8 +355,8 @@ Create=1
 Visible=0
 Docked=1
 State=0
-Left=-898
-Top=-132
+Left=-946
+Top=5
 Width=2844
 Height=6200
 MaxLeft=-1
@@ -379,8 +374,8 @@ Create=1
 Visible=0
 Docked=1
 State=0
-Left=-1026
-Top=-132
+Left=-8
+Top=287
 Width=273
 Height=359
 MaxLeft=-1
@@ -404,11 +399,11 @@ State=0
 Left=0
 Top=0
 Width=3820
-Height=1143
+Height=2466
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3820
-ClientHeight=1143
+ClientHeight=2466
 TBDockHeight=415
 LRDockWidth=4953
 Dockable=1
@@ -423,11 +418,11 @@ State=0
 Left=0
 Top=0
 Width=3820
-Height=1143
+Height=2466
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3820
-ClientHeight=1143
+ClientHeight=2466
 TBDockHeight=213
 LRDockWidth=7406
 Dockable=1
@@ -446,11 +441,11 @@ State=0
 Left=0
 Top=0
 Width=3820
-Height=1143
+Height=2466
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3820
-ClientHeight=1143
+ClientHeight=2466
 TBDockHeight=1536
 LRDockWidth=3484
 Dockable=1
@@ -465,11 +460,11 @@ State=0
 Left=0
 Top=0
 Width=3820
-Height=1143
+Height=2466
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3820
-ClientHeight=1143
+ClientHeight=2466
 TBDockHeight=2063
 LRDockWidth=3484
 Dockable=1
@@ -503,11 +498,11 @@ State=0
 Left=0
 Top=0
 Width=2336
-Height=1200
+Height=964
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=2336
-ClientHeight=1200
+ClientHeight=964
 TBDockHeight=2321
 LRDockWidth=2820
 Dockable=1
@@ -568,11 +563,11 @@ State=0
 Left=0
 Top=0
 Width=2000
-Height=6939
+Height=6883
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=2000
-ClientHeight=6939
+ClientHeight=6883
 TBDockHeight=4888
 LRDockWidth=7148
 Dockable=1
@@ -584,8 +579,8 @@ Create=1
 Visible=0
 Docked=1
 State=0
-Left=0
-Top=0
+Left=249
+Top=709
 Width=2859
 Height=3206
 MaxLeft=-1
@@ -606,11 +601,11 @@ State=0
 Left=0
 Top=0
 Width=3820
-Height=1143
+Height=2466
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3820
-ClientHeight=1143
+ClientHeight=2466
 TBDockHeight=1547
 LRDockWidth=8742
 Dockable=1
@@ -631,12 +626,12 @@ Docked=1
 State=0
 Left=0
 Top=0
-Width=1898
-Height=3554
+Width=1773
+Height=6794
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=1898
-ClientHeight=3554
+ClientWidth=1773
+ClientHeight=6794
 TBDockHeight=3677
 LRDockWidth=1898
 Dockable=1
@@ -651,11 +646,11 @@ State=0
 Left=0
 Top=0
 Width=2000
-Height=6939
+Height=6883
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=2000
-ClientHeight=6939
+ClientHeight=6883
 TBDockHeight=4888
 LRDockWidth=5305
 Dockable=1
@@ -716,14 +711,14 @@ Visible=0
 Docked=1
 State=0
 Left=0
-Top=0
+Top=18
 Width=3820
-Height=1424
+Height=2747
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=3820
-ClientHeight=1424
-TBDockHeight=1424
+ClientHeight=2747
+TBDockHeight=2747
 LRDockWidth=3820
 Dockable=1
 StayOnTop=0
@@ -742,11 +737,11 @@ State=0
 Left=0
 Top=18
 Width=2000
-Height=4585
+Height=9215
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=2000
-ClientHeight=4585
+ClientHeight=9215
 TBDockHeight=7220
 LRDockWidth=2000
 Dockable=1
@@ -756,21 +751,21 @@ ActiveTabID=ProjectManager
 TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,frmDesignPreview,TFileExplorerForm

 [DockSite3]
-HostDockSite=DockLeftPanel
+HostDockSite=LeftDockTabSet
 DockSiteType=1
 PercentageSizes=1
 Create=1
-Visible=1
+Visible=0
 Docked=1
 State=0
 Left=0
-Top=18
+Top=0
 Width=1898
-Height=3554
+Height=7220
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=1898
-ClientHeight=3554
+ClientWidth=1773
+ClientHeight=6794
 TBDockHeight=7220
 LRDockWidth=1898
 Dockable=1
@@ -780,21 +775,21 @@ ActiveTabID=StructureView
 TabDockClients=StructureView,ClassBrowserTool

 [DockSite4]
-HostDockSite=DockRightPanel
+HostDockSite=RightTabDock
 DockSiteType=1
 PercentageSizes=1
 Create=1
-Visible=1
+Visible=0
 Docked=1
 State=0
 Left=0
-Top=449
+Top=0
 Width=2000
-Height=4383
+Height=7220
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=2000
-ClientHeight=4383
+ClientWidth=1875
+ClientHeight=6794
 TBDockHeight=7220
 LRDockWidth=2000
 Dockable=1
--- a/demos/SimpleOSRBrowser/SimpleOSRBrowser.stat
+++ b/demos/SimpleOSRBrowser/SimpleOSRBrowser.stat
@@ -1,10 +1,10 @@
 [Stats]
-EditorSecs=35053
+EditorSecs=35161
 DesignerSecs=796
 InspectorSecs=610
-CompileSecs=1601450
-OtherSecs=3834
+CompileSecs=1630799
+OtherSecs=3894
 StartTime=22/01/2017 17:35:20
 RealKeys=0
 EffectiveKeys=0
-DebugSecs=19849
+DebugSecs=19906
--- a/demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
+++ b/demos/SimpleOSRBrowser/uSimpleOSRBrowser.pas
@@ -118,7 +118,7 @@ implementation
 {$R *.dfm}

 uses
-  uCEFMiscFunctions, uCEFConstants, uCEFApplication;
+  uCEFMiscFunctions, uCEFApplication;

 procedure TForm1.AppEventsMessage(var Msg: tagMSG; var Handled: Boolean);
 var