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

IDE: clean up

Browse Source 
git-svn-id: trunk@31088 -
This commit is contained in:
mattias 2011-06-05 08:17:45 +00:00
parent 4b57ac797b
commit 3f98f11cda
2 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
converter/missingpropertiesdlg.pas
View File

@ -189,7 +189,6 @@ end;
function TDFMConverter.ConvertDfmToLfm(const aFilename: string): TModalResult; function TDFMConverter.ConvertDfmToLfm(const aFilename: string): TModalResult;
var var
DFMStream, LFMStream: TMemoryStream; DFMStream, LFMStream: TMemoryStream;
LFMBuffer: TCodeBuffer;
begin begin
Result:=mrOk; Result:=mrOk;
DFMStream:=TMemoryStream.Create; DFMStream:=TMemoryStream.Create;

15
ide/editdefinetree.pas
View File

@ -52,10 +52,6 @@ procedure DisableDefaultsInDirectories(DefTempl: TDefineTemplate; Recurse: boole
// FPC sources // FPC sources
function CreateFPCSourceTemplate(Config: TFPCUnitSetCache; function CreateFPCSourceTemplate(Config: TFPCUnitSetCache;
Owner: TObject): TDefineTemplate; overload; Owner: TObject): TDefineTemplate; overload;
function CreateFPCSourceTemplate(const FPCSrcDir, UnitSearchPath, PPUExt,
DefaultTargetOS, DefaultProcessorName: string;
UnitLinkListValid: boolean; var UnitLinkList: string;
Owner: TObject): TDefineTemplate; overload;
function CreateLazarusSourceTemplate( function CreateLazarusSourceTemplate(
const LazarusSrcDir, WidgetType, ExtraOptions: string; const LazarusSrcDir, WidgetType, ExtraOptions: string;
Owner: TObject): TDefineTemplate; Owner: TObject): TDefineTemplate;
@ -132,17 +128,6 @@ begin
DisableDefaultsInDirectories(Result,true); DisableDefaultsInDirectories(Result,true);
end; end;
function CreateFPCSourceTemplate(const FPCSrcDir, UnitSearchPath, PPUExt,
DefaultTargetOS, DefaultProcessorName: string; UnitLinkListValid: boolean;
var UnitLinkList: string; Owner: TObject): TDefineTemplate;
begin
Result:=CodeToolBoss.DefinePool.CreateFPCSrcTemplate(FPCSrcDir,
UnitSearchPath, PPUExt,
DefaultTargetOS, DefaultProcessorName,
UnitLinkListValid, UnitLinkList, Owner);
DisableDefaultsInDirectories(Result,true);
end;
function CreateLazarusSourceTemplate(const LazarusSrcDir, WidgetType, function CreateLazarusSourceTemplate(const LazarusSrcDir, WidgetType,
ExtraOptions: string; Owner: TObject): TDefineTemplate; ExtraOptions: string; Owner: TObject): TDefineTemplate;
begin begin