Ribbon control bug? (causes cutoff in vista)

Question

I've found that when I take a simple form containing only a ribbon bar and a status bar, it's cutoff. The control you see above the status bar was later removed. The same cutoff occurs whatever control happens to be present. Later I removed the status bar & put a memo control there instead with the same result.

without ribbon bar:
_{(source: xrw.bc.ca)}

with ribbon bar:
_{(source: xrw.bc.ca)}

i've illustrated this with some drawing 2, 4, and 8 pixels from the edge.

<sub>(source: xrw.bc.ca)

(source: xrw.bc.ca)</sub>

as Chris Lively says below, there's clearly been a miscalculation of the sizes. how can i correct this?

Thank you for your comments!

Answer 1

I misunderstood the problem with my previous answer.

There is a workaround to this miscalculation problem I've been able to come up with (quickly).

You can use a custom messagehandler for WM_SYSCOMMAND with the SC_MAXIMIZE wParam parameter. You can then resize your form using the following:

type
  TForm1 = class(TForm)
    // other stuff
    procedure WMSyscommand(var Msg: TWMSYSCOMMAND); message WM_SYSCOMMAND;



procedure TForm1.WMSysCommand(var Msg: TWMSYSCOMMAND);
var
  R: TRect;
begin
  // Test for SC_MAXIMIZE. If found...
  if Msg.CmdType = SC_MAXIMIZE then
  begin
    SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);
    Top := R.Top;
    Left := R.Left;
    Width := R.Right - R.Left;
    Height := R.Bottom - R.Top;
    Msg.Result := 0; // Message handled
  end
  else
    DefaultHandler(Msg);
end;

The code above (tested on Vista 32-bit Home Premium with Aero/Glass enabled) works fine.