TLable: Zeichenabstand vergrössern?

[romber]

Gibt es generel eine Möglichkeit, den Abstand zwischen den Zeichen in der TLabel zu manipulieren?
Wenn ja, wie geht das?

[s.h.a.r.k]

Nicht direkt, außer du erzeugst eine eigene Komponente von T(Custom)Label. Solche typographischen Eigenschaften gibst kaum, soweit ich weiß.

Alternativ könntest du auch -- ich weiß, das ist weniger schön -- Leerzeichen zwischen zwei Zeichen setzen.

[toms]

Text zeichnen mit ExtTextOut und lpDx setzen.

[romber]

Vielen Dank für die schnelle Reaktionen!

Zitat von s.h.a.r.k:

Alternativ könntest du auch -- ich weiß, das ist weniger schön -- Leerzeichen zwischen zwei Zeichen setzen.

Genau, schön ist es gar nicht. Ein Leerzeichen ist zu wenig, zwei sind schon zu viel.

Zitat von toms:

Text zeichnen mit ExtTextOut und lpDx setzen.

Ich schaue mir gerade diese Funktion an. Der letzte Parameter hat den Datentyp "PInteger". Ich habe es mit einem Pointer auf ein Integer versucht,Zugriffsverletzung. Wie erzeuge ich diesen PInteger?

[toms]

einfacher geht's wohl so:

Delphi-Quellcode:

SetTextCharacterExtra(Canvas.Handle, 12);
  TextOut(Canvas.Handle, 10, 10, 'Hallo', Length('Hallo'));

[romber]

Zitat von toms:

einfacher geht's wohl so:

Delphi-Quellcode:

SetTextCharacterExtra(Canvas.Handle, 12);
  TextOut(Canvas.Handle, 10, 10, 'Hallo', Length('Hallo'));

Die TextOut-Funktion ruft doch auch ExtTextOut auf. Aber diese Funktion zeichnet den Text direkt auf der Form. Ich brauche es aber in dem TLabel.

[Luckie]

Zitat von romber:

Aber diese Funktion zeichnet den Text direkt auf der Form. Ich brauche es aber in dem TLabel.

Dann lass doch das Label weg. Ob der Text nun über ein label ausgegeben wird oder direkt auf der Form macht doch optisch keinen Unterschied.