paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers, windows, check if there are printers before calling printer document properties

Browse Source 
git-svn-id: trunk@23808 -
This commit is contained in:
jesus 2010-03-01 03:32:54 +00:00
parent fded4603bf
commit a204eebb53
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/printers/win32/winprinters.inc
View File

@ -415,7 +415,10 @@ Var Flags : DWORD;
PDev : TPrinterDevice;
TmpDevMode : PDeviceMode;
begin
{$IFDEF NOPRINTERS}
Lst.Clear;
exit;
{$ENDIF}
DefaultPrinter := GetDefaultPrinter;
Flags:=PRINTER_ENUM_CONNECTIONS or PRINTER_ENUM_LOCAL;
@ -818,14 +821,17 @@ procedure TWinPrinter.AdvancedProperties;
var
PDev: TPrinterDevice;
begin
PDev:=TPrinterDevice(Printers.Objects[PrinterIndex]);
DocumentProperties(
Widgetset.AppHandle,
FPrinterHandle,
pchar(PDev.Name),
Pdev.DevMode, Pdev.DevMode,
DM_OUT_BUFFER or DM_IN_BUFFER or DM_IN_PROMPT);
//PrinterProperties(Widgetset.AppHandle,fPrinterHandle)
if Printers.Count>0 then
begin
PDev:=TPrinterDevice(Printers.Objects[PrinterIndex]);
DocumentProperties(
Widgetset.AppHandle,
FPrinterHandle,
pchar(PDev.Name),
Pdev.DevMode, Pdev.DevMode,
DM_OUT_BUFFER or DM_IN_BUFFER or DM_IN_PROMPT);
//PrinterProperties(Widgetset.AppHandle,fPrinterHandle)
end;
end;
initialization