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

uses PD_RETURNDC option for printers dialogs and returned DC has all options selected by user applied from Boguslaw Brandys

Browse Source 
git-svn-id: trunk@8193 -
This commit is contained in:
mattias 2005-11-19 10:59:08 +00:00
parent 0dfb96f59d
commit 00d2646d1b
1 changed files with 29 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,7 +64,7 @@ begin
begin
lStructSize:=SizeOf(lpp);
hInstance:=LCLType.HInstance;
Flags:=aFlag;
Flags:=aFlag or PD_RETURNDC;
hWndOwner:=TWin32WidgetSet(WidgetSet).AppHandle;
PDev:=TPrinterDevice(Printers.Objects[PrinterIndex]);
@ -105,6 +105,10 @@ begin
//Set the properties for the selected printer
PDev:=TPrinterDevice(Printers.Objects[PrinterIndex]);
PDev.DevMode:=DevMode^;
ClearDC;
fDC := lpp.hDC;
if Assigned(Canvas) then Canvas.Handle:=fDC;
fLastHandleType:=2;
finally
GlobalUnlock(lpp.hDevMode);
GlobalFree(lpp.hDevMode);
@ -162,7 +166,7 @@ begin
PChar(PDev.Port),@PDev.DevMode);
if fDC=0 then
fDC:=CreateIC(PChar('winspool'),PChar(PDev.Device),
fDC:=CreateIC(PChar('WINSPOOL'),PChar(PDev.Device),
PChar(PDev.Port),@PDev.DevMode);
if fDC=0 then
@ -174,22 +178,35 @@ begin
end;
procedure TWinPrinter.SetDC;
var PDev : TPrinterDevice;
var
PDev : TPrinterDevice;
Driver : PChar;
function IsNT : Boolean;
var
OVI: TOsVersionInfo;
begin
OVI.dwOSVersionInfoSize := Sizeof( OVI );
GetVersionEx( OVI );
Result := (OVI.dwPlatformId = VER_PLATFORM_WIN32_NT);
end;
begin
if (fLastHandleType<>2) and (Printers.Count>0) then
begin
ClearDC;
if IsNt then Driver := pChar('WINSPOOL')
else
Driver := nil;
PDev:=TPrinterDevice(Printers.Objects[PrinterIndex]);
fDC:=CreateDC(PChar(PDev.Driver),PChar(PDev.Device),
PChar(PDev.Port),@PDev.DevMode);
fDC:=CreateDC(Driver,PChar(PDev.Device),nil,@PDev.DevMode);
if fDC=0 then fDC:=CreateDC(Driver,PChar(PDev.Driver),nil,@PDev.DevMode);
if fDC=0 then
fDC:=CreateDC(PChar('winspool'),PChar(PDev.Device),
PChar(PDev.Port),@PDev.DevMode);
if fDC=0 then
raise EPrinter.Create(Format('Invalide printer (DC=%d Driver=%s Device=%s Port=%s)',[fDC,Pdev.Driver,PDev.Device,PDev.Port]));
raise EPrinter.Create(Format('Invalid printer (Error: %s DC=%d Driver=%s Device=%s Port=%s)',[SysErrorMessage(GetLastError),fDC,Pdev.Driver,PDev.Device,PDev.Port]));
if Assigned(Canvas) then
Canvas.Handle:=fDC;
fLastHandleType:=2;