paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 04:40:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: debug msg

Browse Source
This commit is contained in:
mattias 2022-04-17 20:04:30 +02:00
parent f71858d9de
commit 361b7db393
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/pas2js/pjscontroller.pp
View File

@ -122,16 +122,16 @@ begin
aProject:=LazarusIDE.ActiveProject;
if ConsoleVerbosity>0 then
DebugLN(['LazarusIDE.ActiveProject.CustomData[PJSProjectWebBrowser]: ',aProject.CustomData[PJSProjectWebBrowser]]);
DebugLN(['Hint: (lazarus) [TPJSController.GetPas2jsProjectURL] LazarusIDE.ActiveProject.CustomData[PJSProjectWebBrowser]: ',aProject.CustomData[PJSProjectWebBrowser]]);
Abort:=aProject.CustomData[PJSProjectWebBrowser]<>'1';
if Abort then
exit;
if ConsoleVerbosity>0 then
DebugLN(['LazarusIDE.ActiveProject.CustomData[PJSProjectURL]: ',aProject.CustomData[PJSProjectURL]]);
DebugLN(['Hint: (lazarus) [TPJSController.GetPas2jsProjectURL] LazarusIDE.ActiveProject.CustomData[PJSProjectURL]: ',aProject.CustomData[PJSProjectURL]]);
Result:=GetProjectURL(aProject);
Abort:=(Result='');
if ConsoleVerbosity>0 then
DebugLN(['GetPas2jsProjectURL : ',Result]);
DebugLN(['Hint: (lazarus) [TPJSController.GetPas2jsProjectURL] Result="',Result,'"']);
end;
procedure TPJSController.OnLoadSaveCustomData(Sender: TObject; Load: boolean;