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

IDE: fixed typo

Browse Source 
git-svn-id: trunk@34806 -
This commit is contained in:
mattias 2012-01-19 22:06:56 +00:00
parent 380ab6721d
commit 595b29af86
5 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codetoolmanager.pas
View File

@ -671,7 +671,7 @@ type
function CheckLFM(UnitCode, LFMBuf: TCodeBuffer;
out LFMTree: TLFMTree;
RootMustBeClassInUnit, RootMustBeClassInIntf,
ObjectsMustExists: boolean): boolean;
ObjectsMustExist: boolean): boolean;
function FindNextResourceFile(Code: TCodeBuffer;
var LinkIndex: integer): TCodeBuffer;
function AddLazarusResourceHeaderComment(Code: TCodeBuffer;
@ -4709,7 +4709,7 @@ end;
function TCodeToolManager.CheckLFM(UnitCode, LFMBuf: TCodeBuffer;
out LFMTree: TLFMTree; RootMustBeClassInUnit, RootMustBeClassInIntf,
ObjectsMustExists: boolean): boolean;
ObjectsMustExist: boolean): boolean;
begin
Result:=false;
{$IFDEF CTDEBUG}
@ -4718,7 +4718,7 @@ begin
if not InitCurCodeTool(UnitCode) then exit;
try
Result:=FCurCodeTool.CheckLFM(LFMBuf,LFMTree,OnFindDefinePropertyForContext,
RootMustBeClassInUnit,RootMustBeClassInIntf,ObjectsMustExists);
RootMustBeClassInUnit,RootMustBeClassInIntf,ObjectsMustExist);
except
on e: Exception do HandleException(e);
end;

2
converter/convertdelphi.pas
View File

@ -615,7 +615,7 @@ begin
LfmFixer.UsedUnitsTool:=fUsedUnitsTool;
LfmFixer.RootMustBeClassInUnit:=true;
LfmFixer.RootMustBeClassInIntf:=true;
LfmFixer.ObjectsMustExists:=true;
LfmFixer.ObjectsMustExist:=true;
if LfmFixer.Repair<>mrOk then begin
LazarusIDE.DoJumpToCompilerMessage(-1,true);
exit(mrAbort);

2
converter/missingpropertiesdlg.pas
View File

@ -483,7 +483,7 @@ begin
LoopCount:=0;
repeat
if CodeToolBoss.CheckLFM(fPascalBuffer,fLFMBuffer,fLFMTree,
fRootMustBeClassInUnit,fRootMustBeClassInIntf,fObjectsMustExists) then
fRootMustBeClassInUnit,fRootMustBeClassInIntf,fObjectsMustExist) then
Result:=mrOk
else // Rename/remove properties and types interactively.
Result:=ShowRepairLFMWizard; // Can return mrRetry.

24
ide/checklfmdlg.pas
View File

@ -59,7 +59,7 @@ type
fLFMTree: TLFMTree;
fRootMustBeClassInUnit: boolean;
fRootMustBeClassInIntf: boolean;
fObjectsMustExists: boolean;
fObjectsMustExist: boolean;
// References to controls in UI:
fLFMSynEdit: TSynEdit;
fErrorsListBox: TListBox;
@ -92,8 +92,8 @@ type
write fRootMustBeClassInUnit;
property RootMustBeClassInIntf: boolean read fRootMustBeClassInIntf
write fRootMustBeClassInIntf;
property ObjectsMustExists: boolean read fObjectsMustExists
write fObjectsMustExists;
property ObjectsMustExist: boolean read fObjectsMustExist
write fObjectsMustExist;
end;
{ TCheckLFMDialog }
@ -131,11 +131,11 @@ function QuickCheckLFMBuffer(PascalBuffer, LFMBuffer: TCodeBuffer;
function RepairLFMBuffer(PascalBuffer, LFMBuffer: TCodeBuffer;
const OnOutput: TOnAddFilteredLine;
RootMustBeClassInUnit, RootMustBeClassInIntf,
ObjectsMustExists: boolean): TModalResult;
ObjectsMustExist: boolean): TModalResult;
// Not use anywhere.
{function RepairLFMText(PascalBuffer: TCodeBuffer; var LFMText: string;
const OnOutput: TOnAddFilteredLine;
RootMustBeClassInIntf, ObjectsMustExists: boolean): TModalResult;
RootMustBeClassInIntf, ObjectsMustExist: boolean): TModalResult;
}
// dangling events
function RemoveDanglingEvents(RootComponent: TComponent;
@ -255,7 +255,7 @@ end;
function RepairLFMBuffer(PascalBuffer, LFMBuffer: TCodeBuffer;
const OnOutput: TOnAddFilteredLine;
RootMustBeClassInUnit, RootMustBeClassInIntf,
ObjectsMustExists: boolean): TModalResult;
ObjectsMustExist: boolean): TModalResult;
var
LFMChecker: TLFMChecker;
begin
@ -263,7 +263,7 @@ begin
try
LFMChecker.RootMustBeClassInUnit:=RootMustBeClassInUnit;
LFMChecker.RootMustBeClassInIntf:=RootMustBeClassInIntf;
LFMChecker.ObjectsMustExists:=ObjectsMustExists;
LFMChecker.ObjectsMustExist:=ObjectsMustExist;
Result:=LFMChecker.Repair;
finally
LFMChecker.Free;
@ -273,7 +273,7 @@ end;
{
function RepairLFMText(PascalBuffer: TCodeBuffer; var LFMText: string;
const OnOutput: TOnAddFilteredLine;
RootMustBeClassInIntf, ObjectsMustExists: boolean): TModalResult;
RootMustBeClassInIntf, ObjectsMustExist: boolean): TModalResult;
var
LFMBuf: TCodeBuffer;
begin
@ -282,7 +282,7 @@ begin
try
LFMBuf.Source:=LFMText;
Result:=RepairLFMBuffer(PascalBuffer,LFMBuf,OnOutput,RootMustBeClassInIntf,
ObjectsMustExists);
ObjectsMustExist);
LFMText:=LFMBuf.Source;
finally
CodeToolBoss.ReleaseTempFile(LFMBuf);
@ -386,7 +386,7 @@ begin
fLFMBuffer:=ALFMBuffer;
fOnOutput:=AOnOutput;
fRootMustBeClassInIntf:=false;
fObjectsMustExists:=false;
fObjectsMustExist:=false;
end;
destructor TLFMChecker.Destroy;
@ -421,7 +421,7 @@ begin
Result:=mrCancel;
if not CheckUnit then exit;
if CodeToolBoss.CheckLFM(fPascalBuffer,fLFMBuffer,fLFMTree,
fRootMustBeClassInUnit,fRootMustBeClassInIntf,fObjectsMustExists)
fRootMustBeClassInUnit,fRootMustBeClassInIntf,fObjectsMustExist)
then begin
Result:=mrOk;
exit;
@ -520,7 +520,7 @@ begin
// check LFM again
if CodeToolBoss.CheckLFM(fPascalBuffer,fLFMBuffer,fLFMTree,
fRootMustBeClassInUnit,fRootMustBeClassInIntf,fObjectsMustExists)
fRootMustBeClassInUnit,fRootMustBeClassInIntf,fObjectsMustExist)
then begin
Result:=mrOk;
end else begin

2
ide/main.pp
View File

@ -12767,7 +12767,7 @@ begin
try
LFMChecker.RootMustBeClassInUnit:=true;
LFMChecker.RootMustBeClassInIntf:=true;
LFMChecker.ObjectsMustExists:=true;
LFMChecker.ObjectsMustExist:=true;
if LFMChecker.Repair=mrOk then begin
if not Quiet then begin
IDEMessageDialog(lisLFMIsOk,