Get design time size of a Form at runtime?

[winni]

Hi!

Is there an chance to get the design time size of a form at runtime -
after it may be resized a lot of times?

Winni

[howardpc]

Could you not do something like this:

Code: Pascal  [Select][+][-]

1. const
2.   form_size: Types.TSize = (cx: 250, cy:300);  // or whatever ...
3.  
4. procedure TForm1.FormCreate(Sender: TObject);
5. begin
6.   SetInitialBounds(0, 0, form_size.cx, form_size.cy);
7. end;  

where form_size if effectively the design time size?

[winni]

Hi!

Thanx for the reply - I had the same idea.

I just asked if in the depth of TForm somewhere the design time size is hidden.

If not I will work with cx/cy const.

Winni

[furious programming]

I just asked if in the depth of TForm somewhere the design time size is hidden.

What about resources? There are hidden lfm's — as RCDATA, for all forms.

Use Resource Hacker or similar software and you'll see.