paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 09:57:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Martin Friebe to improve detection of designdemo

Browse Source
This commit is contained in:
michael 2021-04-05 07:09:21 +00:00
parent b8c0b0d885
commit b08c04ca65
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, webideintf, Forms, Controls, Graphics, Dialogs, EditBtn,
ExtCtrls, ComCtrls, StdCtrls, ActnList, GlobalCefApplication,
ExtCtrls, ComCtrls, StdCtrls, ActnList, LazFileUtils, GlobalCefApplication,
{$IFDEF DARWIN} uCEFLazarusCocoa, {$ENDIF}
{$IFDEF WINDOWS}
Windows, Messages,
@ -168,11 +168,19 @@ begin
end;
procedure TMainForm.FormCreate(Sender: TObject);
var
s: String;
begin
FAllowGo:=False;
FDesignCaption:=Caption;
MimeTypes.LoadKnownTypes;
FEProject.FileName:=ExtractFilePath(ExtractFilePath(Paramstr(0)))+'designdemo'+PathDelim+'designdemo.html';
s := ExtractFilePath(Paramstr(0));
if pos('nativedesign', s) > 0 then
s := StringReplace(s, 'nativedesign', 'designdemo', [rfReplaceAll, rfIgnoreCase])
else
s := s+'designdemo';
s := AppendPathDelim(s)+'designdemo.html';
FEProject.FileName:=s;
FWebIDEIntf:=TIDEServer.Create(Self);
FWebIDEIntf.ProjectDir:=ExtractFilePath(FEProject.FileName);
FWebIDEIntf.OnClientAdded:=@DoClientCame;