paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 11:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2jsdsgn: clean up

Browse Source
This commit is contained in:
mattias 2022-04-03 13:04:13 +02:00
parent 4d07f650b5
commit 7848544f19
4 changed files with 15 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/pas2js/frmdtstopas.pas
View File

@ -46,7 +46,7 @@ type
TSOptions: TTabSheet; TSOptions: TTabSheet;
VLEAliases: TValueListEditor; VLEAliases: TValueListEditor;
procedure cbModuleEnter(Sender: TObject); procedure cbModuleEnter(Sender: TObject);
procedure cbModuleKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure cbModuleKeyUp(Sender: TObject; var {%H-}Key: Word; {%H-}Shift: TShiftState);
procedure FEDtsEnter(Sender: TObject); procedure FEDtsEnter(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
@ -116,9 +116,6 @@ end;
procedure TGetModulesThread.DoSetStringList; procedure TGetModulesThread.DoSetStringList;
Var
I : Integer;
begin begin
ModuleList.Clear; ModuleList.Clear;
ModuleList.BeginUpdate; ModuleList.BeginUpdate;
@ -142,9 +139,7 @@ end;
procedure TGetModulesThread.Execute; procedure TGetModulesThread.Execute;
Var Var
URL,Res : String; URL: String;
I : Integer;
begin begin
FreeOnTerminate:=true; FreeOnTerminate:=true;
try try

3
components/pas2js/idedtstopas.pas
View File

@ -123,7 +123,7 @@ procedure TCreateUnitFromDTS.ExecuteLocal;
Var Var
ToolOpts : TIDEExternalToolOptions; ToolOpts : TIDEExternalToolOptions;
InFN,AliasFN,OutFN,Opts : string; AliasFN,OutFN,Opts : string;
begin begin
AliasFN:=''; AliasFN:='';
@ -134,7 +134,6 @@ begin
OutFN:=GetTempFileName; OutFN:=GetTempFileName;
ToolOpts.Executable:=PJSOptions.DTS2Pas; ToolOpts.Executable:=PJSOptions.DTS2Pas;
ToolOpts.ResolveMacros:=True; ToolOpts.ResolveMacros:=True;
InFN:=LocalFileName;
Opts:='-i '+MaybeQuote(LocalFileName)+' -o '+MaybeQuote(outFN)+' -u '+TargetUnitName; Opts:='-i '+MaybeQuote(LocalFileName)+' -o '+MaybeQuote(outFN)+' -u '+TargetUnitName;
if UseWeb then if UseWeb then
opts:=Opts+' -w'; opts:=Opts+' -w';

10
components/pas2js/regpas2jsatom.pas
View File

@ -23,12 +23,12 @@ type
FCommands : TStrings; FCommands : TStrings;
FActivationCommands : TStrings; FActivationCommands : TStrings;
FFiles : TStrings; FFiles : TStrings;
procedure AddCSSFile(aProject: TLazProject); procedure AddCSSFile({%H-}aProject: TLazProject);
procedure AddFileToProject(const aFileName: string); procedure AddFileToProject(const aFileName: string);
procedure AddGlueFile(aProject: TLazProject); procedure AddGlueFile({%H-}aProject: TLazProject);
procedure AddKeyMapFile(aProject: TLazProject); procedure AddKeyMapFile({%H-}aProject: TLazProject);
procedure AddMenuFile(aProject: TLazProject); procedure AddMenuFile({%H-}aProject: TLazProject);
procedure AddPackageJSONFile(aProject: TLazProject); procedure AddPackageJSONFile({%H-}aProject: TLazProject);
procedure AddProjectFile(AProject: TLazProject); procedure AddProjectFile(AProject: TLazProject);
procedure CreateProjectDirs; procedure CreateProjectDirs;
procedure CreateProjectSource(Src: TStrings); procedure CreateProjectSource(Src: TStrings);

14
components/pas2js/regpas2jsvscode.pas
View File

@ -5,7 +5,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
ProjectIntf, BaseIDEIntf, LazIDEIntf, LazFileUtils; ProjectIntf, LazIDEIntf, LazFileUtils;
type type
@ -24,11 +24,11 @@ type
FContributesCommands : TStrings; FContributesCommands : TStrings;
FFiles : TStrings; FFiles : TStrings;
procedure AddFileToProject(const aFileName: string); procedure AddFileToProject(const aFileName: string);
procedure AddGlueFile(aProject: TLazProject); procedure AddGlueFile({%H-}aProject: TLazProject);
procedure AddLaunchFile(aProject: TLazProject); procedure AddLaunchFile({%H-}aProject: TLazProject);
procedure AddPackageJSONFile(aProject: TLazProject); procedure AddPackageJSONFile({%H-}aProject: TLazProject);
procedure AddProjectFile(AProject: TLazProject); procedure AddProjectFile(AProject: TLazProject);
procedure AddTasksFile(aProject: TLazProject); procedure AddTasksFile({%H-}aProject: TLazProject);
procedure CreateProjectDirs; procedure CreateProjectDirs;
procedure CreateProjectSource(Src: TStrings); procedure CreateProjectSource(Src: TStrings);
procedure DoDefaultReplaceMents(Src: TStrings); procedure DoDefaultReplaceMents(Src: TStrings);
@ -56,7 +56,7 @@ implementation
uses uses
fpjson,frmpas2jsvscodeextensionsettings, CompOptsIntf, pjscontroller, fpjson,frmpas2jsvscodeextensionsettings, CompOptsIntf, pjscontroller,
NewItemIntf, MenuIntf, pjsprojectoptions, pjsdsgnoptions, strpas2jsdesign; MenuIntf, pjsprojectoptions, pjsdsgnoptions, strpas2jsdesign;
Var Var
VSCodeProjDesc:TVSCodeExtensionProjectDescriptor; VSCodeProjDesc:TVSCodeExtensionProjectDescriptor;
@ -241,7 +241,7 @@ Var
procedure AddLn(aLine : String); procedure AddLn(aLine : String);
begin begin
Src.Insert(aIndex+Cnt,' '+aLine); Src.Insert(aIndex+Cnt,Space(aIndent)+aLine);
inc(cnt); inc(cnt);
end; end;
Var Var