Abstand zwischen den Buchstaben

[MisterNiceGuy]

Ich möchte auf ein Image.canvas einen Text schreiben. Das klappt zwar, aber ich bin mit dem Leerraum zwischen den Buchstaben nicht zufrieden.
Wie kann ich den ändern, so wie es bei Word möglich ist?

Mng

[Daniel]

Die API-Funktion "SetTextCharacterExtra" sollte Dein Freund sein. Mit dieser Funktion kannst Du den Abstand zwischen den Buchstaben justieren.

MSDN-Library :: SetTextCharacterExtra

[MisterNiceGuy]

Danke! Wenigstens mal ein Anhaltspunkt. Kannst du mir vielleicht ein Bsp dafür formulieren?

MisterNiceGuy

[Daniel]

Mir fehlt heute Abend leider die Zeit, ein ganzes Beispiel zu machen. Deswegen nur der Anriß, wie es im Prinzip funktioniert:

Delphi-Quellcode:

SetTextCharacterExtra( myCanvas.Handle, faktor );
myCanvas.TextOut( 10, 10, 'WUPPDI' );

[MisterNiceGuy]

Thx, ich glaube, damit kann ich was anfangen :)

MisterNiceGuy

[MisterNiceGuy]

Hmmm, also ich kann den Quelltext einfügen und es gibt keine Fehlermeldung, doch so sehr ich den Integerwert auch ändere, sehe ich keinen Unterschied!

Mng

[Tpercon]

Poste mal bitte deinen Code.

[Sharky]

Zitat:

Zitat von MisterNiceGuy

...doch so sehr ich den Integerwert auch ändere, sehe ich keinen Unterschied!...

Hmmm...

geht bei mir ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 myCanvas : TCanvas;
 faktor   : Integer;
begin
 faktor := 10;
 mycanvas := PaintBox1.Canvas;
 SetTextCharacterExtra( myCanvas.Handle, faktor);
 myCanvas.TextOut( 10, 10, 'W U P P D I' );
end;

[MisterNiceGuy]

Habs damit probiert, geht aber nicht! Muss ich vielleicht irgendwelche Uses hinzufügen? Oder ist das Versionsabhängig? Ich arbeite mit Delphi 5!
HIIIILLLLLLFFFFEEEEEEEEE!!!!!

[sakura]

Gab es einen Compilerfehler, wenn ja wo, oder hat er es kompliliert, nur geändert hat sich nichts?

...:cat:...