TMemo + OEM_CHARSET ist beim Drucken unpräzise

[marabu]

Guten Morgen Armin,

es sollte nach deinen Vorstellungen funktionieren, wenn du auch den Pitch noch auf fpFixed einstellst.

Delphi-Quellcode:

object Memo: TMemo
  Left = 184
  Top = 364
  Width = 229
  Height = 149
  Font.Charset = OEM_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'Terminal'
  Font.Pitch = fpFixed
  Font.Style = []
  ParentFont = False
  TabOrder = 29
end

procedure TDemoForm.PrintButtonClick(Sender: TObject);
var
  i: Integer;
  prn: TextFile;
begin
  with Printer do
    Canvas.Font.Assign(Memo.Font);

  AssignPrn(prn);
  Rewrite(prn);
  with Memo do
    for i := 0 to Pred(Lines.Count) do
      WriteLn(prn, Lines[i]);
  CloseFile(prn);
end;

Grüße vom marabu