paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-10 18:45:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Rework by Martin Friebe to work with Cef4Delphi

Browse Source
This commit is contained in:
michael 2021-04-04 09:49:30 +00:00
parent 2240440fff
commit abf57d2eeb
7 changed files with 406 additions and 1706 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1545
demo/webwidget/nativedesign/frmmain.lfm
View File

File diff suppressed because it is too large Load Diff

322
demo/webwidget/nativedesign/frmmain.pp
View File

@ -5,16 +5,14 @@ unit frmmain;
interface
uses
Classes, SysUtils, webideintf, Forms, Controls, Graphics, Dialogs, EditBtn, ExtCtrls, ComCtrls, StdCtrls, ActnList,
{$IFDEF LINUX}
WebBrowserCtrls, WebBrowserIntf,
{$ELSE}
Classes, SysUtils, webideintf, Forms, Controls, Graphics, Dialogs, EditBtn,
ExtCtrls, ComCtrls, StdCtrls, ActnList, GlobalCefApplication,
{$IFDEF DARWIN} uCEFLazarusCocoa, {$ENDIF}
{$IFDEF WINDOWS}
Windows, Messages, uCEFChromium, uCEFWindowParent, uCEFChromiumWindow, uCEFTypes, uCEFInterfaces, uCEFWinControl, uCEFApplication,
{$ELSE}
{$ERROR Unsupported platform}
Windows, Messages,
{$ENDIF}
{$ENDIF} fpJSON;
uCEFChromium, uCEFWindowParent, uCEFChromiumWindow, uCEFTypes, uCEFInterfaces,
uCEFWinControl, uCEFApplication, uCEFWorkScheduler, uCEFBrowserWindow, fpJSON, uCEFChromiumEvents;
type
@ -24,6 +22,7 @@ type
AGoExternal: TAction;
AGo: TAction;
ALWidgets: TActionList;
BrowserWindow1: TBrowserWindow;
FEProject: TFileNameEdit;
ILWidgets: TImageList;
MLog: TMemo;
@ -31,7 +30,6 @@ type
Project: TLabel;
PBottom: TPanel;
TBExternalGo: TToolButton;
tmrShowChromium: TTimer;
TSInspector: TTabSheet;
TSBrowser: TTabSheet;
TSLog: TTabSheet;
@ -41,47 +39,8 @@ type
procedure AGoExecute(Sender: TObject);
procedure AGoExternalExecute(Sender: TObject);
procedure AGoUpdate(Sender: TObject);
procedure DEProjectEditingDone(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure tmrShowChromiumTimer(Sender: TObject);
private
FClientID : Int64; // Just one for now
FDesignCaption : String;
FWebIDEIntf : TIDEServer;
FWidgetCount : Integer;
FWidgets : Array of String;
FURL : String;
FURLCount : Integer;
FCanClose : Boolean;
FAllowGo: Boolean;
{$IFDEF LINUX}
FWBDesign : TWebBrowser;
FWIDesign : TWebInspector;
FLastEmbeddedURI : String;
procedure wbDesignConsoleMessage(Sender: TObject; const Message, Source: string; Line: Integer);
procedure wbDesignError(Sender: TObject; const Uri: string; ErrorCode: LongWord; const ErrorMessage: string; var Handled: Boolean);
procedure wbDesignFavicon(Sender: TObject);
procedure wbDesignHitTest(Sender: TObject; X, Y: Integer; HitTest: TWebHitTest; const Link, Media: string);
procedure wbDesignLoadStatusChange(Sender: TObject);
procedure wbDesignLocationChange(Sender: TObject);
procedure wbDesignNavigate(Sender: TObject; const Uri: string; var aAction: TWebNavigateAction);
procedure wbDesignProgress(Sender: TObject; Progress: Integer);
procedure wbDesignRequest(Sender: TObject; var Uri: string);
procedure wbDesignScriptDialog(Sender: TObject; Dialog: TWebScriptDialog; const Message: string; var Input: string; var Accepted: Boolean; var Handled: Boolean);
{$ENDIF}
{$IFDEF WINDOWS}
FClosing : Boolean;
cwDesign : TChromiumWindow;
procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
// You also have to handle these two messages to set GlobalCEFApp.OsmodalLoop
procedure WMEnterMenuLoop(var aMessage: TMessage); message WM_ENTERMENULOOP;
procedure WMExitMenuLoop(var aMessage: TMessage); message WM_EXITMENULOOP;
procedure cwBeforeClose(Sender: TObject);
procedure cwClose(Sender: TObject);
procedure cwAfterCreated(Sender: TObject);
procedure BrowserWindow1BrowserClosed(Sender: TObject);
procedure BrowserWindow1BrowserCreated(Sender: TObject);
procedure cwOnBeforePopup(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
@ -91,6 +50,21 @@ type
var extra_info: ICefDictionaryValue;
var noJavascriptAccess: Boolean;
var Result: Boolean);
procedure DEProjectEditingDone(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject);
private
FClientID : Int64; // Just one for now
FDesignCaption : String;
FWebIDEIntf : TIDEServer;
FWidgetCount : Integer;
FWidgets : Array of String;
FURL : String;
FURLCount : Integer;
FAllowGo: Boolean;
{$IFDEF WINDOWS}
procedure WMEnterMenuLoop(var aMessage: TMessage); message WM_ENTERMENULOOP;
procedure WMExitMenuLoop(var aMessage: TMessage); message WM_EXITMENULOOP;
{$ENDIF}
function GetProjectURL: String;
procedure DoAddWidget(Sender: TObject);
@ -102,7 +76,6 @@ type
procedure LogRequest;
Procedure RegisterWidgets;
Procedure RegisterWidget(aWidget: String; aImageIndex : Integer);
procedure SetUpEmbeddedBrowser;
public
Procedure Log(Msg : String);
Procedure Log(Fmt : String; Args : Array of const);
@ -127,15 +100,9 @@ end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
FWebIDEIntf.Active:=False;
CanClose:=FCanClose;
{$IFDEF WINDOWS}
if not(FClosing) then
begin
FClosing := True;
Visible := False;
cwDesign.CloseBrowser(True);
end;
{$ENDIF}
BrowserWindow1.CloseBrowser(True);
CanClose:=BrowserWindow1.IsClosed;
Visible := False;
end;
Function TMainForm.GetProjectURL : String;
@ -145,19 +112,13 @@ begin
end;
procedure TMainForm.AGoExecute(Sender: TObject);
Var
URL : String;
begin
URL:=GetProjectURL;
Log('Going to URL: %s',[URL]);
{$IFDEF LINUX}
FWBDesign.Location:=URL;
{$ENDIF}
{$IFDEF WINDOWS}
cwDesign.LoadURL(URL);
{$ENDIF}
BrowserWindow1.LoadURL(URL);
end;
procedure TMainForm.AGoExternalExecute(Sender: TObject);
@ -175,20 +136,23 @@ begin
(Sender as Taction).Enabled:=FAllowGo;
end;
procedure TMainForm.BrowserWindow1BrowserClosed(Sender: TObject);
begin
Close;
end;
procedure TMainForm.BrowserWindow1BrowserCreated(Sender: TObject);
begin
// Now the browser is fully initialized we can load the initial web page.
FAllowGo:=True;
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
FAllowGo:=False;
FDesignCaption:=Caption;
{$IFDEF Linux}
MimeTypes.LoadFromFile('/etc/mime.types');
{$ENDIF}
{$IFDEF WINDOWS}
MimeTypes.LoadFromFile(ExtractFilePath(Paramstr(0))+'mime.types');
{$ENDIF}
FEProject.FileName:=ExtractFilePath(Paramstr(0))+'designdemo'+PathDelim+'designdemo.html';
MimeTypes.LoadKnownTypes;
FEProject.FileName:=ExtractFilePath(ExtractFilePath(Paramstr(0)))+'designdemo'+PathDelim+'designdemo.html';
FWebIDEIntf:=TIDEServer.Create(Self);
FWebIDEIntf.ProjectDir:=ExtractFilePath(FEProject.FileName);
FWebIDEIntf.OnClientAdded:=@DoClientCame;
@ -196,65 +160,11 @@ begin
FWebIDEIntf.OnRequest:=@DoLogRequest;
FWebIDEIntf.OnAction:=@DoAction;
FWebIDEIntf.Active:=True;
RegisterWidgets;
SetUpEmbeddedBrowser;
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
{$IFDEF WINDOWS}
with cwDesign do
begin
ChromiumBrowser.OnBeforePopup := @cwOnBeforePopup;
if not CreateBrowser then
tmrShowChromium.Enabled := True;
end;
{$ENDIF}
end;
procedure TMainForm.tmrShowChromiumTimer(Sender: TObject);
begin
tmrShowChromium.Enabled := False;
{$IFDEF WINDOWS}
With cwDesign do
if not (CreateBrowser or Initialized) then
tmrShowChromium.Enabled := True;
{$ENDIF}
end;
{$IFDEF WINDOWS}
procedure TMainForm.SetUpEmbeddedBrowser;
begin
FCanClose:=False;
cwDesign:=TChromiumWindow.Create(Self);
With cwDesign do
begin
Parent:=TSBrowser;
Align:=alClient;
OnClose:=@cwClose;
OnBeforeClose:=@cwBeforeClose;
OnAfterCreated:=@cwAfterCreated;
end;
TSInspector.TabVisible:=False;
RegisterWidgets;
end;
procedure TMainForm.WMMove(var aMessage : TWMMove);
begin
inherited;
if (cwDesign <> nil) then
cwDesign.NotifyMoveOrResizeStarted;
end;
procedure TMainForm.WMMoving(var aMessage : TMessage);
begin
inherited;
if (cwDesign <> nil) then
cwDesign.NotifyMoveOrResizeStarted;
end;
{$IFDEF WINDOWS}
procedure TMainForm.WMEnterMenuLoop(var aMessage: TMessage);
begin
@ -270,23 +180,7 @@ begin
if (aMessage.wParam = 0) and (GlobalCEFApp <> nil) then
GlobalCEFApp.OsmodalLoop := False;
end;
procedure TMainForm.cwBeforeClose(Sender: TObject);
begin
FCanClose := True;
PostMessage(Handle, WM_CLOSE, 0, 0);
end;
procedure TMainForm.cwClose(Sender: TObject);
begin
// DestroyChildWindow will destroy the child window created by CEF at the top of the Z order.
if not(cwDesign.DestroyChildWindow) then
begin
FCanClose := True;
Close;
end;
end;
{$ENDIF}
procedure TMainForm.cwOnBeforePopup(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
@ -302,112 +196,6 @@ begin
Result := (targetDisposition in [WOD_NEW_FOREGROUND_TAB, WOD_NEW_BACKGROUND_TAB, WOD_NEW_POPUP, WOD_NEW_WINDOW]);
end;
procedure TMainForm.cwAfterCreated(Sender: TObject);
begin
// Now the browser is fully initialized we can load the initial web page.
FAllowGo:=True;
end;
{$ENDIF}
{$IFDEF LINUX}
procedure TMainForm.SetUpEmbeddedBrowser;
begin
FAllowGo:=True;
FCanClose:=True;
FWBDesign:=TWebBrowser.Create(Self);
With FWBDesign do
begin
Parent:=TSBrowser;
Align:=alClient;
DesignMode := False;
SourceView := False;
ZoomContent := False;
ZoomFactor := 1;
{ lots of logging }
OnConsoleMessage:=@wbDesignConsoleMessage;
OnScriptDialog:=@wbDesignScriptDialog;
OnError:=@wbDesignError;
OnFavicon:=@wbDesignFavicon;
OnHitTest:=@wbDesignHitTest;
OnLoadStatusChange:=@wbDesignLoadStatusChange;
OnLocationChange:=@wbDesignLocationChange;
OnNavigate:=@wbDesignNavigate;
OnProgress:=@wbDesignProgress;
OnRequest:=@wbDesignRequest;
end;
FWIDesign:=TWebInspector.Create(Self);
With FWIDesign do
begin
Parent:=TSInspector;
Align:=alClient;
Active:=True;
WebBrowser:=FWBDesign;
end;
TSInspector.TabVisible:=true;
PCDesigner.ActivePage:=TSBrowser;
end;
procedure TMainForm.wbDesignConsoleMessage(Sender: TObject; const Message, Source: string; Line: Integer);
begin
Log('Console message: %s (%s: %d)',[Message,Source,Line]);
end;
procedure TMainForm.wbDesignError(Sender: TObject; const Uri: string; ErrorCode: LongWord; const ErrorMessage: string;
var Handled: Boolean);
begin
Log('Error: %s, code: %d, Message: %s',[URI,ErrorCode,ErrorMessage]);
Handled:=True;
end;
procedure TMainForm.wbDesignFavicon(Sender: TObject);
begin
Log('Favicon available/missed');
end;
procedure TMainForm.wbDesignHitTest(Sender: TObject; X, Y: Integer; HitTest: TWebHitTest; const Link, Media: string);
begin
// Log('Hit test (%d,%d) link: %s, media: %s',[x,y,link,media]);
end;
procedure TMainForm.wbDesignLoadStatusChange(Sender: TObject);
begin
Log('Load status change');
end;
procedure TMainForm.wbDesignLocationChange(Sender: TObject);
begin
Log('Location change');
end;
procedure TMainForm.wbDesignNavigate(Sender: TObject; const Uri: string; var aAction: TWebNavigateAction);
begin
Log('Navigation: %s',[URI]);
aAction:=naAllow;
end;
procedure TMainForm.wbDesignProgress(Sender: TObject; Progress: Integer);
begin
Log('Progress: %d',[Progress])
end;
procedure TMainForm.wbDesignRequest(Sender: TObject; var Uri: string);
begin
if Uri<>FLastEmbeddedURI then
Log('Embedded browser doing request : %s',[URI]);
FLastEmbeddedURI:=URI;
end;
procedure TMainForm.wbDesignScriptDialog(Sender: TObject; Dialog: TWebScriptDialog; const Message: string; var Input: string;
var Accepted: Boolean; var Handled: Boolean);
begin
Log('Script dialog Message: %s; Input : %s',[message,Input]);
Accepted:=true;
Handled:=true;
end;
{$ENDIF}
procedure TMainForm.DoAction(Sender: TObject; aExchange: TIDEExchange);
@ -537,7 +325,7 @@ begin
B.Height:=32;
B.Action:=A;
inc(FWidgetCount);
// TBWidgets.AddControl;;
// TBWidgets.AddControl;
end;
@ -552,5 +340,25 @@ begin
end;
initialization
{$IFDEF DARWIN}
AddCrDelegate;
{$ENDIF}
if GlobalCEFApp = nil then begin
CreateGlobalCEFApp;
if not GlobalCEFApp.StartMainProcess then begin
DestroyGlobalCEFApp;
DestroyGlobalCEFWorkScheduler;
halt(0); // exit the subprocess
end;
end;
finalization
(* Destroy from this unit, which is used after "Interfaces". So this happens before the Application object is destroyed *)
if GlobalCEFWorkScheduler <> nil then
GlobalCEFWorkScheduler.StopScheduler;
DestroyGlobalCEFApp;
DestroyGlobalCEFWorkScheduler;
end.

118
demo/webwidget/nativedesign/globalcefapplication.pas Normal file
View File

@ -0,0 +1,118 @@
// ************************************************************************
// ***************************** CEF4Delphi *******************************
// ************************************************************************
//
// CEF4Delphi is based on DCEF3 which uses CEF to embed a chromium-based
// browser in Delphi applications.
//
// The original license of DCEF3 still applies to CEF4Delphi.
//
// For more information about CEF4Delphi visit :
// https://www.briskbard.com/index.php?lang=en&pageid=cef
//
// Copyright © 2021 Salvador Diaz Fau. All rights reserved.
//
// ************************************************************************
// ************ vvvv Original license and comments below vvvv *************
// ************************************************************************
(*
* Delphi Chromium Embedded 3
*
* Usage allowed under the restrictions of the Lesser GNU General Public License
* or alternatively the restrictions of the Mozilla Public License 1.1
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
* the specific language governing rights and limitations under the License.
*
* Unit owner : Henri Gourvest <hgourvest@gmail.com>
* Web site : http://www.progdigy.com
* Repository : http://code.google.com/p/delphichromiumembedded/
* Group : http://groups.google.com/group/delphichromiumembedded
*
* Embarcadero Technologies, Inc is not permitted to use or redistribute
* this source code without explicit permission.
*
*)
unit GlobalCefApplication;
{$mode ObjFPC}{$H+}
{$DEFINE USE_MULTI_THREAD_LOOP} // Only Windows/Linux
{.$DEFINE USE_APP_HELPER} // Optional on Windows/Linux
{$IFDEF DARWIN}
{$UNDEF USE_MULTI_THREAD_LOOP} // Will fail on Mac
{$DEFINE USE_APP_HELPER} // Required on Mac
{$ENDIF}
interface
uses
uCEFApplication, uCEFWorkScheduler, FileUtil;
procedure CreateGlobalCEFApp;
implementation
procedure GlobalCEFApp_OnScheduleMessagePumpWork(const aDelayMS : int64);
begin
if (GlobalCEFWorkScheduler <> nil) then GlobalCEFWorkScheduler.ScheduleMessagePumpWork(aDelayMS);
end;
procedure CreateGlobalCEFApp;
begin
if GlobalCEFApp <> nil then
exit;
{$IFnDEF USE_MULTI_THREAD_LOOP}
// TCEFWorkScheduler will call cef_do_message_loop_work when
// it's told in the GlobalCEFApp.OnScheduleMessagePumpWork event.
// GlobalCEFWorkScheduler needs to be created before the
// GlobalCEFApp.StartMainProcess call.
GlobalCEFWorkScheduler := TCEFWorkScheduler.Create(nil);
{$ENDIF}
GlobalCEFApp := TCefApplication.Create;
// GlobalCEFApp.CheckCEFFiles := False;
{$IFnDEF DARWIN}
GlobalCEFApp.FrameworkDirPath := 'B:\laz_other\CEF4Delphi\LIB_CEF_BIN\';
{$ENDIF}
{$IFDEF USE_MULTI_THREAD_LOOP}
// On Windows/Linux CEF can use threads for the message-loop
GlobalCEFApp.MultiThreadedMessageLoop := True;
{$ELSE}
// use External Pump for message-loop
GlobalCEFApp.ExternalMessagePump := True;
GlobalCEFApp.MultiThreadedMessageLoop := False;
GlobalCEFApp.OnScheduleMessagePumpWork := @GlobalCEFApp_OnScheduleMessagePumpWork;
{$ENDIF}
{$IFnDEF DARWIN}
{$IFDEF USE_APP_HELPER}
(* Use AppHelper as subprocess, instead of the main exe *)
GlobalCEFApp.BrowserSubprocessPath := 'AppHelper' + GetExeExt;
{$ENDIF}
{$ENDIF}
{$IFDEF DARWIN}
(* Enable the below to prevent being asked for permission to access "Chromium Safe Storage"
If set to true, Cookies will not be encrypted.
*)
GlobalCEFApp.UseMockKeyChain := True;
{$ENDIF}
{$IFDEF LINUX}
// This is a workaround for the 'GPU is not usable error' issue :
// https://bitbucket.org/chromiumembedded/cef/issues/2964/gpu-is-not-usable-error-during-cef
GlobalCEFApp.DisableZygote := True; // this property adds the "--no-zygote" command line switch
{$ENDIF}
{
GlobalCEFApp.LogFile := 'cef.log';
GlobalCEFApp.LogSeverity := LOGSEVERITY_VERBOSE;
}
end;
end.

64
demo/webwidget/nativedesign/initsubprocess.pas Normal file
View File

@ -0,0 +1,64 @@
// ************************************************************************
// ***************************** CEF4Delphi *******************************
// ************************************************************************
//
// CEF4Delphi is based on DCEF3 which uses CEF to embed a chromium-based
// browser in Delphi applications.
//
// The original license of DCEF3 still applies to CEF4Delphi.
//
// For more information about CEF4Delphi visit :
// https://www.briskbard.com/index.php?lang=en&pageid=cef
//
// Copyright © 2021 Salvador Diaz Fau. All rights reserved.
//
// ************************************************************************
// ************ vvvv Original license and comments below vvvv *************
// ************************************************************************
(*
* Delphi Chromium Embedded 3
*
* Usage allowed under the restrictions of the Lesser GNU General Public License
* or alternatively the restrictions of the Mozilla Public License 1.1
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
* the specific language governing rights and limitations under the License.
*
* Unit owner : Henri Gourvest <hgourvest@gmail.com>
* Web site : http://www.progdigy.com
* Repository : http://code.google.com/p/delphichromiumembedded/
* Group : http://groups.google.com/group/delphichromiumembedded
*
* Embarcadero Technologies, Inc is not permitted to use or redistribute
* this source code without explicit permission.
*
*)
unit InitSubProcess;
{$mode ObjFPC}{$H+}
{ $I cef.inc}
interface
uses
GlobalCefApplication, uCEFApplication, uCEFWorkScheduler;
implementation
initialization
CreateGlobalCEFApp;
GlobalCEFApp.FrameworkDirPath:='/opt/CEF/current/dist';
GlobalCEFApp.ResourcesDirPath:='/opt/CEF/current/dist';
GlobalCEFApp.LocalesDirPath:='/opt/CEF/current/dist/locales';
if not GlobalCEFApp.StartMainProcess then begin
if GlobalCEFWorkScheduler <> nil then
GlobalCEFWorkScheduler.StopScheduler;
DestroyGlobalCEFApp;
DestroyGlobalCEFWorkScheduler;
halt(0); // exit the subprocess
end;
end.

58
demo/webwidget/nativedesign/nativedesigner.lpi
View File

@ -27,18 +27,17 @@
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<RequiredPackages>
<Item>
<PackageName Value="CEF4Delphi_Lazarus"/>
</Item>
<Item>
<PackageName Value="weblaz"/>
</Item1>
<Item2>
<PackageName Value="WebBrowser"/>
</Item2>
<Item3>
</Item>
<Item>
<PackageName Value="LCL"/>
</Item3>
</Item>
</RequiredPackages>
<Units>
<Unit>
@ -56,7 +55,20 @@
<Filename Value="webideintf.pp"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<Filename Value="globalcefapplication.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="GlobalCefApplication"/>
</Unit>
<Unit>
<Filename Value="initsubprocess.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="InitSubProcess"/>
</Unit>
</Units>
<Debugger>
<Backend Value="{989A9BD5-DAAD-47D7-9EAF-B5A5EA0B17B7}"/>
</Debugger>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
@ -68,24 +80,28 @@
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item1>
<Item2>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item3>
</Item>
<Item>
<Name Value="EHTTPClient"/>
</Item>
<Item>
<Name Value="ESocketError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

5
demo/webwidget/nativedesign/nativedesigner.lpr
View File

@ -6,6 +6,9 @@ uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
{$IFDEF LINUX}
InitSubProcess, // On Linux this unit must be used *before* the "interfaces" unit.
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, frmmain, webideintf
{ you can add units after this };
@ -14,7 +17,7 @@ uses
begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Scaled := True;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;

BIN
demo/webwidget/nativedesign/nativedesigner.res
View File

Binary file not shown.