Text auf Canvas ausrichten

[Tpercon]

Wie kann ich Text auf ein Canvas zeichnen und diesen rechts untereinander ausrichten?

[DrDangerous]

Hallo Tpercon,

Du kannst dafür die API-Funktion "DrawText" nutzen. Weitere Informationen findest Du unter der folgenden Adresse:
MSDN-Library :: DrawText.

:firejump:

Greeeeeeeeeeeeeeeetz,
DrDangerous

[Daniel B]

Hallo DrDangerous,

Zitat:

Zitat von DrDangerous der wild auf den Tasten rumschlug und

Greeeeeeeeeeeeeeeetz, DrDangerous

Deine e-Taste klemmt. :wink:

Grüsse, Daniel :hi:

[Tpercon]

Hat jemand vielleicht nen Beispiel?
Ich tue mich da gerade ziemlich schwer.

[theomega]

Hier mal ein Beispiel, dürfte klaro sein:

Code:

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');

[Luckie]

DrawText

[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!

[Luckie]

Wer ist Lukie? :shock: Muß ich den Typen kennen? :roll:

[Tpercon]

Danke!

Das TextWidth kannte ich noch nicht, dadurch war die Lösung mit dem TextOut für mich nicht möglich! Jetzt geht's bestens!