[DUG] Window maximised in the slightly Claytons sense

[Alan]

I always set the form size myself with the following code.

Set windowstate to wsNormal

procedure TView3Dfrm.FormCreate(Sender: TObject);
var
  r  : TRect;
begin
// position form above statusbar and not maximised but covering full screen
  SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
  left    := r.Left;
  Top     := r.top;
  Width   := r.right;
  Height  := r.bottom - 1; // allow taskbar to popup

>>-----Original Message-----
>>From: delphi-bounces at ns3.123.co.nz
>>[mailto:delphi-bounces at ns3.123.co.nz]On Behalf Of Wayne Roser
>>Sent: Friday, 19 August 2005 9:03 a.m.
>>To: NZ Borland Developers Group - Delphi List
>>Subject: [DUG] Window maximised in the slightly Claytons sense
>>
>>
>>I have an app that I want to start off maximised so I set the main form
>>WindowState to wsMaximized at design time. (Delphi 6 pro)
>>
>>On my screen, winXP pro with all possible display options set to "windows
>>classic", this is fine.
>>On other machines, winXP and all possible defaults left just as they were
>>installed, the top of the form sits below the top of the screen and more
>>than half of the status bar on my main form sits behind that big chunky 3D
>>start bar. If I normalize and maximize, bingo, just like a bought one,
>>just what I would've wanted at the beginning.
>>
>>Can anyone tell me what's going wrong? I put a lot of really useful stuff
>>(IMOhSoHO) in that status bar [bottom lip out and quivering; arms folded;
>>head turned away].
>>
>>_______________________________________________
>>Delphi mailing list
>>Delphi at ns3.123.co.nz
>>http://ns3.123.co.nz/mailman/listinfo/delphi
>>--
>>No virus found in this incoming message.
>>Checked by AVG Anti-Virus.
>>Version: 7.0.338 / Virus Database: 267.10.9/72 - Release Date: 14/08/2005
>>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.338 / Virus Database: 267.10.9/72 - Release Date: 14/08/2005