Canvas TextRect -> zentrierter Text und Überladene Version

[Klaus01]

sodele, schon ham was wieder ..
Naja, so schnell ging es auch nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ARect: TRect;
  s : Ansistring;
begin
  s :='abc';
  ARect := rect(10,10,50,50);
  Form1.Canvas.TextRect(ARect,s,[tfCenter]);
  Form1.Canvas.Brush.Color := clBlack;
  Form1.Canvas.FrameRect(ARect);
end;

man beachte die var Deklaration im Prozedurkopf:

Delphi-Quellcode:

procedure TCanvas.TextRect(var Rect: TRect; var Text: string;
  TextFormat: TTextFormat = []);

Grüße
Klaus