PaintBox rechstbündig statt linksbündig

[Lannes]

Hallo,

so in etwa:

Delphi-Quellcode:

var x : Integer;
begin
  with PaintBox1 do
    begin
    x := Canvas.TextWidth('erster Text');
    Canvas.TextOut(Width-x,0,'erster Text');
    x := Canvas.TextWidth('etwas länger ist dieser');
    Canvas.TextOut(Width-x,20,'etwas länger ist dieser');
    end;