Re: [Lazarus] Form always 400 x 300 initially
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@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Form always 400 x 300 initially
Correct, does not work when TMyForm is registered with IDE via FormEditingHook.RegisterDesignerBaseClass. Thanks. -Phil - Bart bartjun...@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@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Form always 400 x 300 initially
On 17 Dec 2009 18:40:13 - Phil Hess macp...@fastermac.net wrote: In my TCustomForm-based design control, I would like it to have an initial size of my choosing rather than the default 400 wide, 300 high. It appears as though these values are hardwired in the FormEditor1.CreateComponent call in TMainIDE.CreateNewForm, ignoring anything that I set Width or Height to. All other properties that I set in my constructor are honored, just not these. Any workaround for this? The IDE now uses the default width/height. Mattias -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Form always 400 x 300 initially
Many thanks. Now works fine. -Phil - Mattias Gaertner nc-gaert...@netcologne.de wrote: On 17 Dec 2009 18:40:13 - Phil Hess macp...@fastermac.net wrote: In my TCustomForm-based design control, I would like it to have an initial size of my choosing rather than the default 400 wide, 300 high. It appears as though these values are hardwired in the FormEditor1.CreateComponent call in TMainIDE.CreateNewForm, ignoring anything that I set Width or Height to. All other properties that I set in my constructor are honored, just not these. Any workaround for this? The IDE now uses the default width/height. Mattias -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Form always 400 x 300 initially
In my TCustomForm-based design control, I would like it to have an initial size of my choosing rather than the default 400 wide, 300 high. It appears as though these values are hardwired in the FormEditor1.CreateComponent call in TMainIDE.CreateNewForm, ignoring anything that I set Width or Height to. All other properties that I set in my constructor are honored, just not these. Any workaround for this? Thanks. -Phil -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Form always 400 x 300 initially
I'm guessing then that setting the width and height OnCreate won't work because that's where they're overridden; a very messy solution would be to set a TTimer to 5ms or so and then change the width. On Thu, Dec 17, 2009 at 1:40 PM, Phil Hess macp...@fastermac.net wrote: In my TCustomForm-based design control, I would like it to have an initial size of my choosing rather than the default 400 wide, 300 high. It appears as though these values are hardwired in the FormEditor1.CreateComponent call in TMainIDE.CreateNewForm, ignoring anything that I set Width or Height to. All other properties that I set in my constructor are honored, just not these. Any workaround for this? Thanks. -Phil -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus