[Lazarus] Printer margins

[Felipe Monteiro de Carvalho]

Some more interresting information. Consider the following code:

procedure TfrmPrint.btnPrintClick(Sender: TObject);
var
  PrintDlg: TPrintDialog;
begin
  PrintDlg := TPrintDialog.Create(Self);
  try
    if PrintDlg.Execute then
    begin
      Caption := Printer.PaperSize.PaperName;
    end;
  finally
    PrintDlg.Free;
  end;
end;

It works under Windows. If you change the paper in the dialog, the
correct paper is used.

But it doesn't work under Mac OS X with Carbon. The returned paper
seams to be the default one, doesn't matter what is choosen in the
dialog.

I still need to check if it works under Linux.

thanks,
-- 
Felipe Monteiro de Carvalho