Drucker liefert unterschiedliche Fontgrößen

[p80286]

@Deddyh
hab ich mich so vertan? ich mein ich hätte eben soetwas gesehen.

Mist, ist Freitag:

Delphi-Quellcode:

procedure TPrinterCanvas.UpdateFont;
var
  FontSize: Integer;
begin
  if GetDeviceCaps(Printer.DC, LOGPIXELSY) <> Font.PixelsPerInch then
  begin
    FontSize := Font.Size;
    Font.PixelsPerInch := GetDeviceCaps(Printer.DC, LOGPIXELSY);
    Font.Size := FontSize;
  end;

end;

Gruß
K-H

[marcibaer]

Ich hab's jetzt folgendermassen gemacht:

Zu Beginn setze ich die folgenden Werte bzw. den folgenden Mode:

Delphi-Quellcode:

      GesamtHoehe := GetDeviceCaps(Handle, VERTSIZE)*10;
      Gesamtbreite := GetDeviceCaps(Handle, HORZSIZE)*10;
      SetMapMode(Handle, MM_TEXT);

Die Angaben, die ich den Druckroutinen übergebe, sind in 0.1mm angrgeben, umgerechnet werden sie dann in Pixel:

Delphi-Quellcode:

FUNCTION XPosition(const x:Integer):Integer;
BEGIN
  Result := Trunc(x * Printer.PageWidth / Gesamtbreite);
END;

FUNCTION YPosition(const y:Integer):Integer;
BEGIN
  Result := Trunc(y * Printer.PageHeight / Gesamthoehe);
END;

FUNCTION XWidth(const x:Integer):Integer;
BEGIN
  Result := Trunc(x / (Printer.PageWidth / Gesamtbreite));
END;

FUNCTION YHeight(const y:Integer):Integer;
BEGIN
  Result := Trunc(y / (Printer.PageHeight / Gesamthoehe));
END;

Scheint soweit zu funktionieren.