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

designer: fix TJITForms.IsJITForm

Browse Source 
git-svn-id: trunk@51136 -
This commit is contained in:
ondrej 2016-01-02 20:16:39 +00:00
parent 1220d1bec2
commit 00c6de89c7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/jitforms.pp
View File

@ -1895,7 +1895,7 @@ end;
function TJITForms.IsJITForm(AComponent: TComponent): Boolean; function TJITForms.IsJITForm(AComponent: TComponent): Boolean;
begin begin
Result:=(AComponent<>nil) and (AComponent is TCustomForm) Result:=(AComponent<>nil) and (AComponent is TCustomForm)
and (TCustomForm(AComponent).Parent=nil) and (IndexOf(AComponent)>=0); and (IndexOf(AComponent)>=0);
end; end;
function TJITForms.GetItem(Index: integer): TCustomForm; function TJITForms.GetItem(Index: integer): TCustomForm;