Bug in printers.pas beim Umstellen des Druckers

[himitsu]

Hab diese Versionen aktuell nicht installiert und kann nicht nachsehn.

Zitat von BadenPower:

aber leider finde ich im Netz keinen Quellcode der Datei.

Diese Dateien sollte es eigentlich dort auch nicht geben, da man sie ausschließlich beim Kauf eines Delphi (ab Prof) erhält.

[DeddyH]

Aber der Lazarus-Code ist AFAIK einsehbar, vielleicht besteht das Problem dort nicht?

[Bjoerk]

Mal Printer.Refresh versucht?

Delphi-Quellcode:

var
  Device, Driver, Port: array [0..200] of char;
  DeviceMode: Cardinal;
begin
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  if DeviceMode <> 0 then
  begin
    Result := Device;
    Printer.Refresh; // ***
  end
  else
    Result := 'Druckstatus';
end;

[BadenPower]

Hallo zusammen,

Zitat von Bjoerk:

Mal Printer.Refresh versucht?

Bringt auch keine Änderung.


So, habe nun noch ein bischen herumgepielt.

Wenn ich nur die Papiergröße im Dialog umstelle, dann ist die PaperLength-Angabe immer die, welche 1 zuvor ausgewählt wird.

Wenn ich also den Dialog beim 2. mal beende habe ich die Einstellung vom 1. mal. Rufe ich es ein drittes mal auf, dann habe ich die Einstllung vom 2.mal.

Wenn ich aber auch gleichzeitig die Druckqualität ändere, dann stimmt auch die Papierlänge.

Muss mir mal die printers.pas nochmals genauer vormehmen.

.


EDIT:

So habe noch eine neue Erkenntnis erlangt.

Rufe ich im TPrinterSetupDialog "Einstellungen" für den Drucker auf und ändere dort die Papiergröße, dann wird es auch sofort automatisch richtig übernommen.