[Delphi] Canvas Print Right Aligned Text

As you know, TCanvas don't have a method to print right aligned text. So what to do?

If the text is left aligned, it should start at X1. Now we want to start from X2, so we use the calculation above to get our X2.

procedure TForm1.Button3Click(Sender: TObject);

var

  X1,X2,W1,W2,W3: Integer;

  _text: String;

begin

  W1 := 100;

  X1 := 5;   // Original X

  _text := '12345.78';

  with Image1.Canvas do

  begin

    W2 := TextWidth(_text);

    W3 := W1 - W2;

    X2 := X1 + W3;

    TextOut( X2, 5, _text);   // 5 = Y

  end;

end;