Mulitple Monitors

lindagutz

I have been trying to direct the preview to a specific monitor. in PreviewFormCreate I am doing the following however it still shows on the primary monitor 0; I have hardcoded monitor 2 for testing. I have three monitors.

NumofMonitors:=Screen.MonitorCount;
TheMonitor:=Screen.Monitors[2];
Listrpt3.PreviewFormSettings.ZoomPercentage:=100;
listrpt3.Previewformsettings.WindowState:=wsMaximized;
listrpt3.PreviewForm.MakeFullyVisible(theMonitor);

ListRpt3.print

nardmoseley

Hi Linda,

1. For RB 23 the default behavior is the monitor and form bounds are saved/restored from RBuilder.ini. Run the app and position the form, then close form. Next time the app runs it will be restored.

2. To take control via code, first set Report.PreviewFormSettings.SaveWindowPlacement to False. Do this via the Designer or in code prior to calling Report.Print.

In your code above, add this as the first line

// this tells Delphi not to position the form on a monitor
ListRpt3.PreviewForm.DefaultMonitor := dmDesktop;

Here's an alternative approach that uses Monitor.WorkAreaRect to position the Form.

procedure TForm2.ppReport1PreviewFormCreate(Sender: TObject);
var
  lMonitor: TMonitor;
  liIndex: Integer;
begin

  liIndex :=  Screen.MonitorCount-1; // select a monitor

  lMonitor := Screen.Monitors[liIndex];

  ppReport1.PreviewForm.DefaultMonitor := dmDesktop;
  ppReport1.PreviewForm.Left := lMonitor.WorkareaRect.Left;
  ppReport1.PreviewForm.Top := lMonitor.WorkareaRect.Top;
  ppReport1.PreviewForm.WindowState := wsMaximized;

end;