Registriert seit: 31. Okt 2004
Ort: Bremerhaven
349 Beiträge
Delphi XE7 Professional
|
AW: Lazarus: StringGrid drucken
18. Feb 2015, 15:41
So, jetzt habe ich den anderen Code eingebunden und bei dem kennt Lazarus
GetDeviceCaps
nicht.
Delphi-Quellcode:
//Druck auf mm einstellen
mmx := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALWIDTH) /
GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX) * 25.4;
mmy := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALHEIGHT) /
GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY) * 25.4;
Gruß Heiko
OS: Linux Mint 20 Cinnamon (64-Bit), Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC), Lazarus 2.1 (Freepascal 3.3.1),
|
|
Zitat
|