Printer.Canvas.TextOut... rechtsbündig???

[Mavarik]

Oder du füllst Deinen "Geld"-String einfach entsprechend auf...

In einen "normalen" TTF-Font sind Spaces halb so lang wie Zahlen...
Also für jede fehlende Zahl einfach 2x Space davor... Fertig.

Mavarik

[DeddyH]

Hier noch ein Beispiel für DrawText (die Zahlen sind alle willkürlich gewählt):

Delphi-Quellcode:

procedure TFormDruck.btnDruckClick(Sender: TObject);
const Zahlen: array[0..4] of double = (1,23.56,2345.9,12.5,Pi);
var oben, i: integer;
    R: TRect;
begin
  oben := 50;
  Printer.BeginDoc;
  try
    for i := Low(Zahlen) to High(Zahlen) do
      begin
        R := Rect(250,oben,1000,oben + Printer.Canvas.TextHeight('X') + 5);
        DrawText(Printer.Canvas.Handle,
                 PChar(Format('%.2f',[Zahlen[i]])),
                 -1,
                 R,
                 DT_SINGLELINE or DT_RIGHT);
        inc(oben,R.Bottom - R.Top);
      end;
  finally
    Printer.EndDoc;
  end;
end;