drawtext rechts ausrichten

[sobi]

Hallo Jungs und Mädels,

wie ist es möglich, einen Text über "DrawText" rechts auszurichten?

Liebe Grüße,
Simon

[Pelagio]

Hallo sobi,

versuch es doch mal mit Locate, habe leider keine Zeit für längere ausführung, daher ein Codesnipsel als Beispiel:

Code: Alles auswählen

If OpenWindow(0, 10, 10, 100, 100, #PB_Window_SystemMenu|#PB_Window_ScreenCentered, "PureBasic Window") 
   
   If StartDrawing(WindowOutput())
      Locate(10, 10): DrawText("Teststring")
      Locate(48, 30): DrawText("Test")
      Locate(40, 50): DrawText("String")
      StopDrawing()
   EndIf
      
   Repeat
      myEvent.l = WaitWindowEvent()
   Until (myEvent=#PB_Event_CloseWindow)
   
EndIf

[Tafkadasom2k5]

Als totaler Schwachkopf und Anfänger rate ich mal....

....mit Leerzeichen?

Klappt bestimmt-is bloss umständlich wei dus ausprobioeren musst....


Ich hab ansonsten keine Ahnung....aber versuche dir immerhin zu helfen....
Gr33tz
Tafkadasom2k5

[Green Snake]

habs nicht probiert, sollte aber damit zu berechnen sein

Code: Alles auswählen

TextLength()

Syntax

Länge = TextLength(Text$) 
Beschreibung

Ermittelt die Länge (in Pixel) des angegebenen Strings, der auf dem aktuellen Ausgabekanal mittels des aktuellen Zeichensatzes dargestellt wird. Diese Funktion ist sehr nützlich, um die tatsächliche Länge eines mit einem nicht-proportionalen Zeichensatz dargestellten Strings zu ermitteln. 
Unterstützte OS 

All

ps: da die hilfe eine hilfe ist, hilft sie bestimmt immer, wenn jemand hilfe von der hilfe braucht^^

[sobi]

Code: Alles auswählen

Länge = TextLength(Text$) 

Dankeschön, damit müsste es funktionieren!

@Pelagio
danke für deine Antwort. Allerdings brauche ich ihn rechts ausgerichtetet nicht links.

@Tafkadasom2k5
Is ein bisschen Umständlich und wenn ich nur zwei Zeilen hätte, würde ich das auch so machen, aber bei mehr Zeilen...? [außerdem ist das "nicht so schön]


Liebe Grüße,


Simon

[sobi]

wie ist es möglich, einen Text über "DrawText" rechts auszurichten?

Danke für jeden Hinweis. Ich habe das so gelöst:

Code: Alles auswählen

Procedure DT_rechts(Text$,  x, y)  
  l=TextLength(Text$)
  Locate(x-l,y) 
  DrawingFont(LoadFont (2, "Arial", 10))
  DrawText(Text$) 
EndProcedure

[shadow]

Hmm, um die Länge des Textes in Pixel genau ermitteln zu können, musst du den Font vorher laden und als Zeichenfont setzen

[DarkDragon]

Hmm, um die Länge des Textes in Pixel genau ermitteln zu können, musst du den Font vorher laden und als Zeichenfont setzen

Er hats doch mittels

Code: Alles auswählen

TextLength(Text$)

gelöst.

[shadow]

ja, aber da wird die länge mit dem aktuell geladenen font ermittelt. erst nach dem TextLength() lädt er ja den font und gibt ihn aus. d. h. wenn er von Courier auf Verdana wechselt stimmt die länge nicht mehr.

so meine ich das:

Code: Alles auswählen

Procedure DT_rechts(Text$,  x, y) 
  DrawingFont(LoadFont (2, "Arial", 10))
  l=TextLength(Text$)
  Locate(x-l,y)
  DrawText(Text$)
EndProcedure 

[DarkDragon]

ja, aber da wird die länge mit dem aktuell geladenen font ermittelt. erst nach dem TextLength() lädt er ja den font und gibt ihn aus. d. h. wenn er von Courier auf Verdana wechselt stimmt die länge nicht mehr.

so meine ich das:

Code: Alles auswählen

Procedure DT_rechts(Text$,  x, y) 
  DrawingFont(LoadFont (2, "Arial", 10))
  l=TextLength(Text$)
  Locate(x-l,y)
  DrawText(Text$)
EndProcedure 

aso, ja da hast du recht.