Schwarz/Weiß-Drucker erkennen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Wenn man in seinem Programm Grafiken ausdrucken möchte, ist es vielleicht interessant zu wissen, ob der Anwender einen Farb- oder einen S/W-Drucker installiert hat. Man kann so rechtzeitig reagieren und die Grafik in Graustufen umrechnen.
function IsBlackWhite: Boolean;
begin
Result := (GetDeviceCaps(Printer.Handle, BITSPIXEL) *
GetDeviceCaps(Printer.Handle, PLANES)) = 1;
end;
begin
Result := (GetDeviceCaps(Printer.Handle, BITSPIXEL) *
GetDeviceCaps(Printer.Handle, PLANES)) = 1;
end;
Es muss noch die Unit printers der USES-Klausel hinzugefügt werden, damit dieser Tipp funktioniert.