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

added TScreen handlers, implemented TMainIDE.UnHideIDE

Browse Source 
git-svn-id: trunk@2633 -
This commit is contained in:
mattias 2002-08-17 23:41:32 +00:00
parent 89f8378cf9
commit 2549812cff
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lcl/lclproc.pas
View File

@ -41,6 +41,7 @@ type
public
destructor Destroy; override;
function Count: integer;
function NextDownIndex(var Index: integer): boolean;
function IndexOf(AMethod: TMethod): integer;
procedure Delete(Index: integer);
procedure Remove(AMethod: TMethod);
@ -300,17 +301,34 @@ end;
function TMethodList.Count: integer;
begin
Result:=FCount;
if Self<>nil then
Result:=FCount
else
Result:=0;
end;
function TMethodList.NextDownIndex(var Index: integer): boolean;
begin
if Self<>nil then begin
dec(Index);
if (Index>=FCount) then
Index:=FCount-1;
end else
Index:=-1;
Result:=(Index>=0);
end;
function TMethodList.IndexOf(AMethod: TMethod): integer;
begin
Result:=FCount-1;
while Result>=0 do begin
if (FItems[Result].Code=AMethod.Code)
and (FItems[Result].Data=AMethod.Data) then exit;
dec(Result);
end;
if Self<>nil then begin
Result:=FCount-1;
while Result>=0 do begin
if (FItems[Result].Code=AMethod.Code)
and (FItems[Result].Data=AMethod.Data) then exit;
dec(Result);
end;
end else
Result:=-1;
end;
procedure TMethodList.Delete(Index: integer);
@ -325,8 +343,10 @@ procedure TMethodList.Remove(AMethod: TMethod);
var
i: integer;
begin
i:=IndexOf(AMethod);
if i>=0 then Delete(i);
if Self<>nil then begin
i:=IndexOf(AMethod);
if i>=0 then Delete(i);
end;
end;
procedure TMethodList.Add(AMethod: TMethod);