paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +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;
VLEAliases: TValueListEditor;
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 FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
@ -116,9 +116,6 @@ end;
procedure TGetModulesThread.DoSetStringList;
Var
I : Integer;
begin
ModuleList.Clear;
ModuleList.BeginUpdate;
@ -142,9 +139,7 @@ end;
procedure TGetModulesThread.Execute;
Var
URL,Res : String;
I : Integer;
URL: String;
begin
FreeOnTerminate:=true;
try

3
components/pas2js/idedtstopas.pas
View File

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

10
components/pas2js/regpas2jsatom.pas
View File

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

14
components/pas2js/regpas2jsvscode.pas
View File

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