Text auf Canvas ausrichten

[Daniel B]

Delphi-Quellcode:

canvas.TextOut(0,50,'LINKS'); 

canvas.TextOut(form1.clientWidth-canvas.TextWidth('RECHTS'),100,'RECHTS'); 

canvas.TextOut(round((form1.ClientWidth - canvas.TextWidth('ZENTRIERT')) / 2),200,'ZENTRIERT');

Und noch ein Bespiel:

Delphi-Quellcode:

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;

Von theomega!

Grüsse, Daniel