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

IDE: codetools defines templates: fixed paths

Browse Source 
git-svn-id: trunk@53225 -
This commit is contained in:
mattias 2016-10-26 16:43:54 +00:00
parent 56ea37d276
commit b9ff9978e4
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/codetoolsdefines.pas
View File

@ -48,7 +48,7 @@ uses
ComCtrls, LCLType, ExtCtrls, Menus, LCLProc, Graphics, Dialogs, ButtonPanel, ComCtrls, LCLType, ExtCtrls, Menus, LCLProc, Graphics, Dialogs, ButtonPanel,
SynEdit, SynEdit,
CodeToolManager, DefineTemplates, CodeToolManager, DefineTemplates,
IDEWindowIntf, IDEImagesIntf, IDEDialogs, IDEWindowIntf, IDEImagesIntf, IDEDialogs, LazFileUtils,
LazarusIDEStrConsts, CodeToolsOptions, CodeToolsDefPreview, TransferMacros, LazarusIDEStrConsts, CodeToolsOptions, CodeToolsDefPreview, TransferMacros,
EditorOptions, InputFileDialog, IDEOptionDefs, LazConf, IDEProcs, EditorOptions, InputFileDialog, IDEOptionDefs, LazConf, IDEProcs,
EditDefineTree, CompilerOptions; EditDefineTree, CompilerOptions;
@ -773,7 +773,7 @@ begin
FileTitles[0]:=Format(lisCodeToolsDefsdirectory, [DelphiName]); FileTitles[0]:=Format(lisCodeToolsDefsdirectory, [DelphiName]);
FileDescs[0]:=Format(lisCodeToolsDefsDelphiMainDirectoryDesc, [DelphiName, FileDescs[0]:=Format(lisCodeToolsDefsDelphiMainDirectoryDesc, [DelphiName,
LineEnding, DelphiName, LineEnding, IntToStr(DelphiVersion)]); LineEnding, DelphiName, LineEnding, IntToStr(DelphiVersion)]);
FileNames[0]:=SetDirSeparators( FileNames[0]:=GetForcedPathDelims(
'C:/Programme/Borland/Delphi'+IntToStr(DelphiVersion)); 'C:/Programme/Borland/Delphi'+IntToStr(DelphiVersion));
FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist]; FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist];
@ -813,14 +813,14 @@ begin
FileTitles[0]:=Format(lisCodeToolsDefsprojectDirectory2, [DelphiName]); FileTitles[0]:=Format(lisCodeToolsDefsprojectDirectory2, [DelphiName]);
FileDescs[0]:=Format(lisCodeToolsDefsTheProjectDirectory, [DelphiName, LineEnding]); FileDescs[0]:=Format(lisCodeToolsDefsTheProjectDirectory, [DelphiName, LineEnding]);
FileNames[0]:=SetDirSeparators('C:/Programme/Borland/Delphi' FileNames[0]:=GetForcedPathDelims('C:/Programme/Borland/Delphi'
+IntToStr(DelphiVersion)+'/YourProject'); +IntToStr(DelphiVersion)+'/YourProject');
FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist]; FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist];
FileTitles[1]:=Format(lisCodeToolsDefsdirectory, [DelphiName]); FileTitles[1]:=Format(lisCodeToolsDefsdirectory, [DelphiName]);
FileDescs[1]:=Format(lisCodeToolsDefsDelphiMainDirectoryForProject, [DelphiName, FileDescs[1]:=Format(lisCodeToolsDefsDelphiMainDirectoryForProject, [DelphiName,
LineEnding, DelphiName, LineEnding, DelphiName, LineEnding, IntToStr(DelphiVersion)]); LineEnding, DelphiName, LineEnding, DelphiName, LineEnding, IntToStr(DelphiVersion)]);
FileNames[1]:=SetDirSeparators('C:/Programme/Borland/Delphi'+IntToStr(DelphiVersion)); FileNames[1]:=GetForcedPathDelims('C:/Programme/Borland/Delphi'+IntToStr(DelphiVersion));
FileFlags[1]:=[iftDirectory,iftNotEmpty,iftMustExist]; FileFlags[1]:=[iftDirectory,iftNotEmpty,iftMustExist];
EndUpdate; EndUpdate;
@ -866,7 +866,7 @@ begin
FileTitles[0]:=Format(lisCodeToolsDefsdirectory, [KylixName]); FileTitles[0]:=Format(lisCodeToolsDefsdirectory, [KylixName]);
FileDescs[0]:=Format(lisCodeToolsDefsKylixMainDirectoryDesc, [KylixName, FileDescs[0]:=Format(lisCodeToolsDefsKylixMainDirectoryDesc, [KylixName,
LineEnding, KylixName, LineEnding, IntToStr(KylixVersion)]); LineEnding, KylixName, LineEnding, IntToStr(KylixVersion)]);
FileNames[0]:=SetDirSeparators('/home/'+UserName+'/kylix'+IntToStr(KylixVersion)); FileNames[0]:=GetForcedPathDelims('/home/'+UserName+'/kylix'+IntToStr(KylixVersion));
FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist]; FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist];
EndUpdate; EndUpdate;
@ -904,7 +904,7 @@ begin
FileTitles[0]:=Format(lisCodeToolsDefsprojectDirectory2, [KylixName]); FileTitles[0]:=Format(lisCodeToolsDefsprojectDirectory2, [KylixName]);
FileDescs[0]:=Format(lisCodeToolsDefsTheProjectDirectory, [KylixName, LineEnding] FileDescs[0]:=Format(lisCodeToolsDefsTheProjectDirectory, [KylixName, LineEnding]
); );
FileNames[0]:=SetDirSeparators('/home/'+UserName+'/kylix' FileNames[0]:=GetForcedPathDelims('/home/'+UserName+'/kylix'
+IntToStr(KylixVersion)+'/YourProject'); +IntToStr(KylixVersion)+'/YourProject');
FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist]; FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist];
@ -912,7 +912,7 @@ begin
FileDescs[1]:=Format(lisCodeToolsDefsKylixMainDirectoryForProject, [KylixName, FileDescs[1]:=Format(lisCodeToolsDefsKylixMainDirectoryForProject, [KylixName,
LineEnding, KylixName, LineEnding, KylixName, LineEnding, IntToStr(KylixVersion) LineEnding, KylixName, LineEnding, KylixName, LineEnding, IntToStr(KylixVersion)
]); ]);
FileNames[1]:=SetDirSeparators('/home/'+UserName+'/kylix'+IntToStr(KylixVersion)); FileNames[1]:=GetForcedPathDelims('/home/'+UserName+'/kylix'+IntToStr(KylixVersion));
FileFlags[1]:=[iftDirectory,iftNotEmpty,iftMustExist]; FileFlags[1]:=[iftDirectory,iftNotEmpty,iftMustExist];
EndUpdate; EndUpdate;