Text auf Canvas ausrichten

[theomega]

noch ein kleiner Beipsiel:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var h:HDC;
rec:TRect;
  Brush: HBRUSH;  //  Handle für Brush
  Pen: HPEN;  // Handle für Zeichenstift
begin
h := getdc(handle);
rec.TopLeft.X := 0;
rec.TopLeft.y := 50;

rec.BottomRight.X := 250;
rec.BottomRight.Y := 250;

Brush := CreateSolidBrush(RGB(255,255,255));
Pen := CreatePen(PS_SOLID, 1, RGB(0,0,0));

SelectObject(h, Brush);
SelectObject(h, Pen);

Rectangle (h,0,50,250,250);

drawtext(h,pchar('TEST'),4,rec,DT_CENTER+DT_VCENTER+DT_SINGLELINE);
end;

Zeichnet ein Rechteck und zentriert einen Text in die Mitte! Basiert auf Lukies Handle-Tut!