Many thanks. Now works fine.
-Phil
- "Mattias Gaertner" wrote:
> On 17 Dec 2009 18:40:13 -
> Phil Hess 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
On 17 Dec 2009 18:40:13 -
Phil Hess 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.
Correct, does not work when TMyForm is registered with IDE via
FormEditingHook.RegisterDesignerBaseClass.
Thanks.
-Phil
- "Bart" wrote:
> You mean that this does not work?
>
> TMyForm = class(TCustomForm)
> public
> constructor Create(AOwner: TComponent); override;
> end;
>
> consruct
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
--
_
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 wrote:
> In my TCustomForm-based design control, I wo
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 Heig