zmWholePage in landscape mode !

dergen

I have a version personalized of the preview, and to release 4.2 this
functioned:
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure TframePreviewReport.buttonWholePageClick(Sender: TObject);
begin
  inherited;
  frxPreview1.SetFocus;
  frxPreview1.ZoomMode := zmWholePage;
  PostMessage(Handle, WM_UPDATEZOOM, 0, 0);
end;

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


Whereas this always functions in version 4.2 just like in release 4.4:
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure TframePreviewReport.buttonPageWithClick(Sender: TObject);
begin
  inherited;
  frxPreview1.SetFocus;
  frxPreview1.ZoomMode := zmPageWidth;
  PostMessage(Handle, WM_UPDATEZOOM, 0, 0);
end;

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

procedure TframePreviewReport.buttonPageWithClick(Sender: TObject);
begin
  inherited;
  frxPreview1.SetFocus;
  frxPreview1.ZoomMode := zmDefault;
  frxPreview1.Zoom          := 1;
  PostMessage(Handle, WM_UPDATEZOOM, 0, 0);
end;

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

This problem appears in landscape mode...

But since is version 4.4 that does not running why any more, a bug or I must
modify my code?

Help me !

Dergen.