paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-04 07:04:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: bugfix for "divide by zero" exception for decked design forms created for TComponent descendants used as root.

Browse Source 
git-svn-id: trunk@50440 -
This commit is contained in:
hnb 2015-11-20 13:43:15 +00:00
parent f2c0815f29
commit 25a0220972
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/sparta/dockedformeditor/source/sparta_fakecustom.pas
View File

@ -278,10 +278,10 @@ begin
2: Result := LClientRect.Right;
3: Result := LClientRect.Bottom;
end;
end;
end;
//else
//Result := inherited GetPublishedBounds(AIndex);
end
else
Result := 0; //inherited GetPublishedBounds(AIndex);
end
end;
procedure TDesignedNonControlFormImpl.SetPublishedBounds(AIndex: Integer;
@ -625,7 +625,7 @@ begin
Width := LClientRect.Right;
Height := LClientRect.Bottom;
end else
;//WriteLn('o kurwa eh');
Width := 1;
DesignedForm.RealWidth := Width;
DesignedForm.RealHeight := Height;