Podporuje tiskárna barevný tisk?

Na závěr si dnes ukážeme, jak zjistit další neméně zajímavou a důležitou vlastnost tiskárny – zda může tisknout barevně. I v tomto případě nám pomůže knihovna Printers.
procedure TForm1.Button1Click(Sender: TObject);
var
Device, Driver, Port: array[0..255] of Char;
DM1, DM2 : PDeviceMode;
Sz: Integer;
DevMode: THandle;
begin
Printer.PrinterIndex := -1;
Printer.GetPrinter(Device, Driver, Port, DevMode);
if DevMode <> 0 then
begin