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

added winapi printer specific TWinPrinter(Printer).Handle from Olivier

Browse Source 
git-svn-id: trunk@7094 -
This commit is contained in:
mattias 2005-04-21 15:48:04 +00:00
parent 4c93d064a5
commit a94e69edd1
3 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,12 @@ begin
inherited Destroy;
end;
function TWinPrinter.GetHandlePrinter : HDC;
begin
SetIC;
Result:=fDC;
end;
function TWinPrinter.BaseDialogs(aFlag : DWORD):boolean;
var lpp : tagPD;
PDev : TPrinterDevice;
@ -155,7 +161,7 @@ begin
fDC:=CreateIC(PChar(PDev.Driver),PChar(PDev.Device),
PChar(PDev.Port),@PDev.DevMode);
if fDC=0 then
raise EPrinter.Create('Invalide printer');
raise EPrinter.Create(Format('Invalide printer (DC=%d Driver=%s Device=%s Port=%s)',[fDC,Pdev.Driver,PDev.Device,PDev.Port]));
if Assigned(Canvas) then
Canvas.Handle:=fDC;
fLastHandleType:=1;
@ -173,7 +179,7 @@ begin
fDC:=CreateDC(PChar(PDev.Driver),PChar(PDev.Device),
PChar(PDev.Port),@PDev.DevMode);
if fDC=0 then
raise EPrinter.Create('Invalide printer');
raise EPrinter.Create(Format('Invalide printer (DC=%d Driver=%s Device=%s Port=%s)',[fDC,Pdev.Driver,PDev.Device,PDev.Port]));
if Assigned(Canvas) then
Canvas.Handle:=fDC;
fLastHandleType:=2;
@ -257,7 +263,7 @@ begin
//Evaluate buffer size
Needed:=0;
EnumPrinters(Flags,nil,Level,nil,0,Needed,PrtCount);
if Needed<>0 then
if Needed>0 then
begin
GetMem(Buffer,Needed);
try
@ -270,15 +276,9 @@ begin
end
else
begin
LstStr:=TStringList.Create;
try
GetProfileString(PChar('windows'),PChar('device'),PChar(''),DefaultPrinter,SizeOf(DefaultPrinter));
LstStr.CommaText:=DefaultPrinter;
if LstStr.Count>0 then
DefaultPrinter:=LstStr.Strings[0];
finally
LstStr.Free;
end;
if pos(',',DefaultPrinter)<>0 then
DefaultPrinter:=Copy(DefaultPrinter,1,Pos(',',DefaultPrinter)-1);
end;
Flags:=PRINTER_ENUM_CONNECTIONS or PRINTER_ENUM_LOCAL;
@ -447,7 +447,6 @@ begin
Result:=1;
end;
end;
end;
function TWinPrinter.DoSetPrinter(aName: string): Integer;
@ -537,3 +536,7 @@ INITIALIZATION

5
components/printers/win32/winprinters_h.inc
View File

@ -63,12 +63,17 @@ Type
function GetXDPI: Integer; override;
function GetYDPI: Integer; override;
function GetHandlePrinter : HDC;
public
constructor Create; override;
destructor Destroy; override;
function PrintDialog : Boolean; override;
function PrinterSetup : Boolean; override;
//Warning it is a not potable property
property Handle : HDC read GetHandlePrinter;
end;

1
components/printers/win32/winutilprn.pas
View File

@ -250,3 +250,4 @@ implementation
end.