Position of PrintPreview window

[prosoft]

Hallo Alex,
Is any chance to move PrintPreview form to any other position?
When i do print grid table PrintPreview window is off screen.
How do you set up position of PrintPreview?
Thanks Josef.

[AlexZencovich]

Hello,
It just set by Form.Position := poMainFormCenter in DFM file. You may change it if you need in event handler TPivotGrid.OnMetafilePrepared event or just edit DFM file if you need it at once.

[prosoft]

I changed in PrintPreview_SRC.dfm position to poMainFormCenter and i cretated

procedure TfrmOlapDBF.frCacheOlapext1pvGridMetafilePrepared(
Sender: TObject; MetafileName: String; Col, Row: Integer;
var ABreak: Boolean);
begin
TForm(Sender).Position :=poMainFormCenter ; //Is this sender pointer to preview form ?
end;

but it doesn't work.

Is anything wrong?

[AlexZencovich]

I changed in PrintPreview_SRC.dfm position to poMainFormCenter and i cretated

procedure TfrmOlapDBF.frCacheOlapext1pvGridMetafilePrepared(
Sender: TObject; MetafileName: String; Col, Row: Integer;
var ABreak: Boolean);
begin
TForm(Sender).Position :=poMainFormCenter ; //Is this sender pointer to preview form ?
end;

but it doesn't work.

Is anything wrong?

Sorry, that was my mistake in prev. answer. You cannot use that constrcution (TForm(Sender).Position) as Sender is TPivotGrid, not TForm.

You may need create inherited class from TPivotGrid with override TPivotGrid.CreatePrintPreviewForm method and set required parameters at that like

function TNewPivotGrid.CreatePrintPreviewForm : TCustomPrintPreviewForm
begin
Result := inherited CreatePrintPreviewForm;
Result.Position := ....
...etc
end;

There is most safe and clear way, I think