[Lazarus] Form always 400 x 300 initially

[Phil Hess]

Correct, does not work when TMyForm is registered with IDE via FormEditingHook.RegisterDesignerBaseClass.

Thanks.

-Phil

----- "Bart" <bartjunk64 at gmail.com> wrote:

> You mean that this does not work?
> 
> TMyForm = class(TCustomForm)
> public
>   constructor Create(AOwner: TComponent); override;
> end;
> 
> consructor TMyForm.Create(AOwner: TComponent);
> begin
>   inherited Create(AOwner);
>   Width := 640;
>   Height := 480;
> end;
> 
> Bart
> 
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus