Zeilenumbruch mit DrawText()

[Mok]

Hallo.
Ist es irgendwie möglich im DrawText()-Befehl einen Zeilenumbruch einzufügen? Ich mache gerade einen Splash-Screen und will während der Ladezeit einen "Tipp des Tages" anzeigen (welche in einem Tips.s() Array gespeichert sind). Da 100% der Texte über die Splash-Breite gehen, müsste ich jedesmal für einen Zeilenabsatz ein neues DrawText() aufrufen.

Gruß, Mok.

[X360 Andy]

Wenn CHR(10) nicht funktioniert ( weiß ich nicht mehr ob das geht bei DrawText() ) dann wirst du für jede Zeile DrawText() aufrufen müssen... ich glaube das es nur so geht.

Gruß Andreas

[c4s]

Native funktioniert das (noch) nicht, aber im Grunde genommen sollte dir folgender Code dabei helfen:
http://www.purebasic.fr/english/viewtop ... 12&t=35090

[TomS]

Code: Alles auswählen

Procedure DrawLBText(image, width, text.s)
    line.s=""
    y=5
    x=5
    
    StartDrawing(ImageOutput(0))
    
    k = CountString(text," ")
    For loop = 1 To k
        
        If TextWidth(line + StringField(text,loop," "))<width
            line = line + StringField(text,loop," ")+" "
        Else
            
            DrawText(x,y,line,$FFFFFF)
            y+30
            line=StringField(text,loop," ")+" "
        EndIf 
    Next 
    
    StopDrawing()
        
        
EndProcedure 

CreateImage(0,300,500)
DrawLBText(0, 200, "Ist es irgendwie möglich im DrawText()-Befehl einen Zeilenumbruch einzufügen? Ich mache gerade einen Splash-Screen und will während der Ladezeit einen 'Tipp des Tages' anzeigen (welche in einem Tips.s() Array gespeichert sind). Da 100% der Texte über die Splash-Breite gehen, müsste ich jedesmal für einen Zeilenabsatz ein neues DrawText() aufrufen.")

OpenWindow(0,0,0,300,500,"DrawText LineBreak",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

ImageGadget(0,0,0,300,500,ImageID(0))

Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow 

Das gleiche Spielchen kannst du mit #LFCR$, #LF$ und #CR$ machen, wenn du den Text selber formatieren möchtest.

[#NULL]

http://www.wannabephoenix.de/PB/drawTextLF.pbi

[Häns]

Hallo Tom,

danke fürs Teilen, ich konnte dein Code gut gebrauchen. Wenn man bei der Procedure nach der For-Schleife

[quote="TomS"]

Code: Alles auswählen

    For loop = 1 To k
        
        If TextWidth(line + StringField(text,loop," "))<width
            line = line + StringField(text,loop," ")+" "
        Else
            
            DrawText(x,y,line,$FFFFFF)
            y+30
            line=StringField(text,loop," ")+" "
        EndIf 
    Next 

nur noch mit

Code: Alles auswählen

line = line + StringField(text,loop," ")+" "
DrawText(x,y,line,$FFFFFF)

ergänzt, ist alles perfekt!

Häns

[GPI]

da ist ein gewaltiger Bug in Code:

Code: Alles auswählen

y+30

wie kommst du darauf, das alle Schriften gleich groß sind? Richtig wäre, hier die textheigth()-Funktion zu nutzen.

[TomS]

@GPI: Hast du eigentlich nen Besen gefressen?
Ich komme überhaupt nicht drauf. Ich hab nur keine Lust eine simple Frage mit 100% ästhetischem Code zu beantworten. Zumal Mok sich beim letzten mal nicht einmal bedankt oder mitgeteilt hat, dass es ihm geholfen hat...
Er wird wohl selber draufkommen, dass was nicht stimmt, wenn er mit seiner Schrift einen Zeilenabstand von 2.5 oder auch von 0.3 bekommt.

Hab's zwar nicht gestestet, aber afair gibt TextHeight die genaue Höhe aus. Das heißt du hast dann gar keinen Zeilenabstand.

Richtig wäre dann TextHeight()+n

[GPI]

@GPI: Hast du eigentlich nen Besen gefressen?

ne ein Clown. Mein Gott nicht immer alles auf die Goldwage legen.

Richtig wäre dann TextHeight()+n

Ich würde dann ein TextHeight()*150/100 (oder sowas, wäre dann die halbe Höhe als Zeilenabstand) einstellen - ist flexibler an der Größe.

[Mok]

Zumal Mok sich beim letzten mal nicht einmal bedankt oder mitgeteilt hat, dass es ihm geholfen hat...

Sofort nachholen...! Danke vielmals, hast mir wieder mal aus der Patsche geholfen