Get a form height, width, top, left poperties

[NelsonN]

Is there a way to get a form's height, width, top, left values prior to a maximize or minimize?

I can get these but only if I set the windows to wsNormal again with RestoredWidth, RestoredHeigh, RestoredTop, RestoredLeft.

Obviously the above is is a kludge and will show the form being normalized, if I set the Visible property to false prior to wsNormal, I get incorrect values.

This is for a cross platform app, so I am trying to not go for API calls specific platforms.

Any help is appreciated.

[Blaazen]

Make your own fields:  MyHeight and MyWidth and set them in method OnResize:

Code: [Select]

procedure TForm1.FormResize(Sender: TObject);
begin
  if WindowState=wsNormal then
    begin
      MyHeight:=Height;
      MyWidth:=Width;
    end;
end;   
you will always know size of wsNormal form. (The same for Top & Left).

[NelsonN]

I tried that and more, including in the WindowStateChange event.

It seems that on FormResize is not even called when maximizing in some instances.

This is the reason I want to do it prior to any maximize or minimize, I need a way to intercept that and grab the those property values myself.

Update: I just tried it again, it seems that even when the form is maximized with the above code the WindowState = wsNormal is true and gets the current values of the maximized window. (tested in Windows)

[User137]

Maybe store the values only when windowstate is not maximized or minimized.

[Blaazen]

It works on Linux+Qt.

Code: [Select]

procedure TForm1.FormResize(Sender: TObject);
begin
  if WindowState=wsNormal then
    begin
      writeln('h'+inttostr(Height));
    end;
end;   
I have verticaly 1050 pixels. When I start wsNormal Form, output is 812. When I maximalize and back, it writes 812 again. When I minimalize and back, nothing happens.

[NelsonN]

It works on Linux+Qt.

Code: [Select]

procedure TForm1.FormResize(Sender: TObject);
begin
  if WindowState=wsNormal then
    begin
      writeln('h'+inttostr(Height));
    end;
end;   


I got code working in the OnWindowStateChange event:

Code: [Select]

  if WindowState = wsNormal then
  begin
    cRestoredTop := Top;
    cRestoredLeft := Left;
    cRestoredWidth := Width;
    cRestoredHeight := Height;
  end;
The above will not work in Mac OS X. When I go to save the values they are those of the Maximized window, or close to them, for some odd reason.

So I am left with setting the Form to wsNormal prior to saving the values (the correct values). It seems that depending on the widgetset, things don't always seem to work the same. I would attribute that to bugs. This is a cross platform app, so I have to get the behavior the same on all of them: Windows, Linux (GTK2), and Mac OS X.

Also, I noticed that Top and Left values are not always returned exactly, they can have negative values, I see there is some bug reports on that.

[NelsonN]

There are several reasons why when maximizing or minimizing a window and trying to get the values via FormResize or WindowState events doesn't work to try and get the correct wsNormal values after, I force a wsNormal prior to closing the window.

There is an issue with the GTK version:

http://bugs.freepascal.org/view.php?id=8576

This code, in the FormClose event, is what I am using to get the values, but it forces me to do a wsNormal if the window is maximized or minimized:

Code: [Select]

  if (WindowState = wsMaximized) or (WindowState = wsMinimized) then
  begin
    if WindowState = wsMaximized then
      cMaximized := 1;

    WindowState := wsNormal;

    {$IFDEF LGLGTK2}
    cHeight := RestoredHeight;
    cWidth := RestoredWidth;
    cTop := RestoredTop;
    cLeft := RestoredLeft;
    {$ELSE}
    cHeight := Height;
    cWidth := Width;
    cTop := Top;
    cLeft := Left;
    {$ENDIF}
  end
The GTK version can't grabbed the Height, etc., it needs the Restored values. How odd.

Some reasons for doing it my way are:

1) If the app opens with the windows maximized, there is no Restored values, they are zero. (For first time run height, etc., are set in the code or can be read from the config file prior to running the app).

2) If you move the window and then maximize or minimize, and never restore the window, the Restored values will never be had. (Moving a window around on the screen never calls FormResize or WindowState events).

There are a few more. All this for just trying to get the value to store in a state config file for when the next time the app is opened your windows will be in the same spot (or maximized).