German Text unterstrichen ausgeben?

[Petrus]

Hallo Leute,
ich möchte eine Text unterstrichen ausgeben, weiß aber nicht wie. Wie müsste der Code lauten, damit der Text "Mein Text" unterstrichen wird?

Dim C As Canvas
C.Initialize(Panel1)
C.DrawText("Mein Text", 10, 20, Typeface.DEFAULT, 14, Colors.Red, "LEFT")

Vielen Dank im voraus
Petrus

 

[klaus]

Direkt geht es leider nicht mit dem Canvas Objekt.
Das muss aber mit der ABExtDrawing Library gehen.
Diese stellt alle Canvasfunktionen zur Verfügung.
Mit

drawText(mCanvas As CanvasWrapper, text As String, x As Float, y As Float, paint As ABPaint)

Und im ABPaint Objekt den flag_UNDERLINE_TEXT_FLAG setzen.
Habe es noch nie probiert.

Beste Grüsse.

 

[Petrus]

Vielen Dank für die schnelle Antwort! Ich werde mir das mal ansehen.

Viele Grüße
Petrus

 

[Petrus]

PS: Zur Not funktioniert es auch so, dass man den Text noch mal mit dem Unterstrich überchreibt (___).