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

IDE: clean up

Browse Source 
git-svn-id: trunk@41528 -
This commit is contained in:
mattias 2013-06-04 07:42:47 +00:00
parent 08a1b1e973
commit 4a97e0fe66
2 changed files with 1 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/checklfmdlg.pas
View File

@ -132,11 +132,6 @@ function RepairLFMBuffer(PascalBuffer, LFMBuffer: TCodeBuffer;
const OnOutput: TOnAddFilteredLine;
RootMustBeClassInUnit, RootMustBeClassInIntf,
ObjectsMustExist: boolean): TModalResult;
// Not use anywhere.
{function RepairLFMText(PascalBuffer: TCodeBuffer; var LFMText: string;
const OnOutput: TOnAddFilteredLine;
RootMustBeClassInIntf, ObjectsMustExist: boolean): TModalResult;
}
// dangling events
function RemoveDanglingEvents(RootComponent: TComponent;
PascalBuffer: TCodeBuffer; OkOnCodeErrors: boolean;
@ -270,26 +265,6 @@ begin
end;
end;
{
function RepairLFMText(PascalBuffer: TCodeBuffer; var LFMText: string;
const OnOutput: TOnAddFilteredLine;
RootMustBeClassInIntf, ObjectsMustExist: boolean): TModalResult;
var
LFMBuf: TCodeBuffer;
begin
Result:=mrCancel;
LFMBuf:=CodeToolBoss.CreateTempFile('temp.lfm');
try
LFMBuf.Source:=LFMText;
Result:=RepairLFMBuffer(PascalBuffer,LFMBuf,OnOutput,RootMustBeClassInIntf,
ObjectsMustExist);
LFMText:=LFMBuf.Source;
finally
CodeToolBoss.ReleaseTempFile(LFMBuf);
end;
end;
}
function RemoveDanglingEvents(RootComponent: TComponent;
PascalBuffer: TCodeBuffer; OkOnCodeErrors: boolean; out
ComponentModified: boolean): TModalResult;

2
ide/lfmunitresource.pas
View File

@ -126,7 +126,7 @@ class function TLFMUnitResourcefileFormat.QuickCheckResourceBuffer(PascalBuffer,
LFMBuffer: TObject; out LFMType, LFMComponentName, LFMClassName: string; out
LCLVersion: string; out MissingClasses: TStrings): TModalResult;
begin
result := QuickCheckLFMBuffer(PascalBuffer as TCodeBuffer, LFMBuffer as TCodeBuffer, LFMType, LFMComponentName, LFMClassName,
Result := QuickCheckLFMBuffer(PascalBuffer as TCodeBuffer, LFMBuffer as TCodeBuffer, LFMType, LFMComponentName, LFMClassName,
LCLVersion, MissingClasses);
end;