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

MG: started form renaming

Browse Source 
git-svn-id: trunk@3234 -
This commit is contained in:
lazarus 2002-08-23 07:05:15 +00:00
parent bde677c04c
commit 8b8fccae08
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ide/project.pp
View File

@ -254,7 +254,9 @@ type
function IndexOfUnitWithName(const AnUnitName: string; function IndexOfUnitWithName(const AnUnitName: string;
OnlyProjectUnits:boolean; IgnoreUnit: TUnitInfo): integer; OnlyProjectUnits:boolean; IgnoreUnit: TUnitInfo): integer;
function IndexOfUnitWithForm(AForm: TComponent; function IndexOfUnitWithForm(AForm: TComponent;
OnlyProjectUnits:boolean):integer; OnlyProjectUnits:boolean; IgnoreUnit: TUnitInfo): integer;
function IndexOfUnitWithFormName(const AFormName: string;
OnlyProjectUnits:boolean; IgnoreUnit: TUnitInfo): integer;
function IndexOfFilename(const AFilename: string): integer; function IndexOfFilename(const AFilename: string): integer;
function UnitWithEditorIndex(Index:integer): TUnitInfo; function UnitWithEditorIndex(Index:integer): TUnitInfo;
Function UnitWithForm(AForm: TComponent): TUnitInfo; Function UnitWithForm(AForm: TComponent): TUnitInfo;
@ -1401,12 +1403,13 @@ begin
end; end;
function TProject.IndexOfUnitWithForm(AForm: TComponent; function TProject.IndexOfUnitWithForm(AForm: TComponent;
OnlyProjectUnits:boolean):integer; OnlyProjectUnits:boolean; IgnoreUnit: TUnitInfo):integer;
begin begin
Result:=UnitCount-1; Result:=UnitCount-1;
while (Result>=0) do begin while (Result>=0) do begin
if (OnlyProjectUnits and Units[Result].IsPartOfProject) if (OnlyProjectUnits and Units[Result].IsPartOfProject)
or (not OnlyProjectUnits) then begin or (not OnlyProjectUnits)
and (IgnoreUnit<>Units[Result]) then begin
if Units[Result].Form=AForm then if Units[Result].Form=AForm then
exit; exit;
end; end;
@ -1414,6 +1417,24 @@ begin
end; end;
end; end;
function TProject.IndexOfUnitWithFormName(const AFormName: string;
OnlyProjectUnits: boolean; IgnoreUnit: TUnitInfo): integer;
begin
Result:=UnitCount-1;
while (Result>=0) do begin
if (OnlyProjectUnits and Units[Result].IsPartOfProject)
or (not OnlyProjectUnits)
and (IgnoreUnit<>Units[Result]) then begin
if (AnsiCompareText(Units[Result].FormName,AFormName)=0)
or ((Units[Result].Form<>nil)
and (AnsiCompareText(Units[Result].Form.Name,AFormName)=0))
then
exit;
end;
dec(Result);
end;
end;
function TProject.UnitWithEditorIndex(Index:integer):TUnitInfo; function TProject.UnitWithEditorIndex(Index:integer):TUnitInfo;
begin begin
Result:=fFirstUnitWithEditorIndex; Result:=fFirstUnitWithEditorIndex;
@ -1880,6 +1901,9 @@ end.
{ {
$Log$ $Log$
Revision 1.73 2002/08/23 07:05:15 lazarus
MG: started form renaming
Revision 1.72 2002/08/21 07:16:59 lazarus Revision 1.72 2002/08/21 07:16:59 lazarus
MG: reduced mem leak of clipping stuff, still not fixed MG: reduced mem leak of clipping stuff, still not fixed