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

IDE: codetools defines editor: removed obsolete lazarus source template

Browse Source 
git-svn-id: trunk@38513 -
This commit is contained in:
mattias 2012-09-04 08:51:16 +00:00
parent 1143e333ac
commit 262525e767
2 changed files with 0 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/codetoolsdefines.lfm
View File

@ -1627,10 +1627,6 @@ object CodeToolsDefinesEditor: TCodeToolsDefinesEditor
object MenuItem18: TMenuItem
Caption = '-'
end
object InsertLazarusSourceTemplateMenuItem: TMenuItem
Caption = 'InsertLazarusSourceTemplateMenuItem'
OnClick = InsertLazarusSourceDefinesTemplateMenuItemClick
end
object MenuItem29: TMenuItem
Caption = '-'
end

34
ide/codetoolsdefines.pas
View File

@ -141,7 +141,6 @@ type
InsertFPCProjectDefinesTemplateMenuItem: TMenuItem;
InsertFPCompilerDefinesTemplateMenuItem: TMenuItem;
InsertFPCSourceDirTemplateMenuItem: TMenuItem;
InsertLazarusSourceTemplateMenuItem: TMenuItem;
InsertDelphi5CompilerDefinesTemplateMenuItem: TMenuItem;
InsertDelphi5DirectoryTemplateMenuItem: TMenuItem;
InsertDelphi5ProjectTemplateMenuItem: TMenuItem;
@ -213,7 +212,6 @@ type
procedure InsertFPCProjectDefinesTemplateMenuItemClick(Sender: TObject);
procedure InsertFPCompilerDefinesTemplateMenuItemClick(Sender: TObject);
procedure InsertFPCSourceDirDefinesTemplateMenuItemClick(Sender: TObject);
procedure InsertLazarusSourceDefinesTemplateMenuItemClick(Sender: TObject);
procedure InsertDelphiCompilerDefinesTemplateMenuItemClick(Sender: TObject);
procedure InsertDelphiDirectoryTemplateMenuItemClick(Sender: TObject);
procedure InsertDelphiProjectTemplateMenuItemClick(Sender: TObject);
@ -743,35 +741,6 @@ begin
end;
end;
procedure TCodeToolsDefinesEditor.InsertLazarusSourceDefinesTemplateMenuItemClick
(Sender: TObject);
var
InputFileDlg: TInputFileDialog;
LazTemplate: TDefineTemplate;
begin
InputFileDlg:=GetInputFileDialog;
InputFileDlg.Macros:=Macros;
with InputFileDlg do begin
BeginUpdate;
Caption:=lisCodeToolsDefsCreateDefinesForLazarusDir;
FileCount:=1;
FileTitles[0]:=lisCodeToolsDefsLazarusDirectory;
FileDescs[0]:=lisCodeToolsDefsTheLazarusMainDirectory;
FileNames[0]:=IDEProcs.ProgramDirectory(true);
FileFlags[0]:=[iftDirectory,iftNotEmpty,iftMustExist];
EndUpdate;
if ShowModal=mrCancel then exit;
LazTemplate:=CreateLazarusSourceTemplate(FileNames[0],
'$('+ExternalMacroStart+'LCLWidgetType)','',
CodeToolsOpts);
if LazTemplate=nil then exit;
LazTemplate.Name:='Lazarus Directory ('+FileNames[0]+')';
InsertTemplate(LazTemplate);
end;
end;
procedure TCodeToolsDefinesEditor.InsertDelphiCompilerDefinesTemplateMenuItemClick
(Sender: TObject);
var DelphiVersion: integer;
@ -1041,9 +1010,6 @@ begin
InsertFPCompilerDefinesTemplateMenuItem.Caption := lisCodeToolsDefsInsertFreePascalCompilerT;
InsertFPCSourceDirTemplateMenuItem.Caption := lisCodeToolsDefsInsertFreePascalSVNSource;
// lazarus templates
InsertLazarusSourceTemplateMenuItem.Caption := lisCodeToolsDefsInsertLazarusDirectoryTem;
// Delphi 5 templates
InsertDelphi5CompilerDefinesTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi5CompilerTemp;
InsertDelphi5DirectoryTemplateMenuItem.Caption := lisCodeToolsDefsInsertDelphi5DirectoryTem;