designer: don't position new frame form at the default position (by request of Phil in issue #0013695)

git-svn-id: trunk@19934 -
This commit is contained in:
paul 2009-05-12 02:51:25 +00:00
parent 0f86b2e7f3
commit 84fe092b0e

View File

@ -57,7 +57,7 @@ implementation
constructor TFrameDesignerForm.Create(AOwner: TComponent);
begin
Position := poDefaultPosOnly; // let it be at default position since frame TopLeft is always (0,0)
Position := poDesigned;
inherited Create(AOwner);
// workaround problem with out assumption that Width = ClientWidth, Height = ClientHeight
AutoScroll := False;