paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 08:59:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

Printers, implemented page setup dialog for qt, from zeljko

Browse Source 
git-svn-id: trunk@16170 -
This commit is contained in:
jesus 2008-08-20 17:35:32 +00:00
parent 504381f826
commit ec5eed13d3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/printers/qt/qtprndialogs.inc
View File

@ -15,14 +15,19 @@ var
{ TPageSetupDialog }
function TPageSetupDialog.Execute: Boolean;
var
PgDlg: QPageSetupDialogH;
begin
Result := False;
// TODO: set and get paper margins, title - wait for bindings update (Den)
if not Assigned(Printer) then Exit;
if Printer.Printers.Count <= 0 then Exit;
raise Printers.EPrinter.Create('Qt: TPageSetupDialog() under construction !');
PgDlg := QPageSetupDialog_create(QtDefaultPrinter.Handle, nil);
try
Result := QPageSetupDialog_exec(PgDlg) = Ord(QDialogAccepted);
finally
QPageSetupDialog_destroy(PgDlg);
end;
end;
{ TPrinterSetupDialog }