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

IDE: fixed GetParentFormRelativeTopLeft for nested non visual components

Browse Source 
git-svn-id: trunk@23100 -
This commit is contained in:
mattias 2009-12-12 12:56:52 +00:00
parent 57d950f3f9
commit 17ddc6d07d
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/designerprocs.pas
View File

@ -146,7 +146,7 @@ begin
begin begin
Parent:=TWinControl(Component.Owner); Parent:=TWinControl(Component.Owner);
ParentForm := GetParentForm(Parent); ParentForm := GetParentForm(Parent);
if ParentForm<>Parent then if (ParentForm<>nil) and (ParentForm<>Parent) then
begin begin
p:=Parent.ClientOrigin; p:=Parent.ClientOrigin;
FormOrigin := ParentForm.ClientOrigin; FormOrigin := ParentForm.ClientOrigin;