Re: [Lazarus] Form always 400 x 300 initially

[Bart]

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