Zitat:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var
R: TRect;
begin
R := ClientRect;
InflateRect(R, -3, -3); //Offset von 3 Pixeln in X- und Y-Richtung
DrawText(Canvas.Handle, PChar(FText), -1, R, DT_TOP or DT_LEFT or DT_WORDBREAK);
end;
Canvas = Self.Canvas (bzw. FormX.Canvas)
und ClientRect = Größe/Position des Zeichenbereichs
Was wird man da wohl nun anpassen müssen, um die Schrift auf den Ausdruck zu bekommen?