PureBasic 4.40 beta3 released.

[DarkDragon]

@ts-soft: Extra für dich schreib ich das jetzt in meinen Wohnort.

[ts-soft]

@ts-soft: Extra für dich schreib ich das jetzt in meinen Wohnort.

danke Dir, ich werde aber trotzdem nicht nach PB4.40b3 umziehen

[freak]

Hallo,

unter einer früheren PB Version hatte ich ein Informationstext innerhalb eines Fensters laufen lassen.
Dieses Programm wollte ich jetzt auf PB 4.4 ändern. Hierdurch habe ich festgestellt dass ein Text welcher
nicht größer als das Image ist funktioniert aber ein Text der größer ist wird einfach abgeschnitten.
Ich kann mir auch vorstellen warum, allerdings vorher funktionierte es, jetzt nicht?
Ist dies so gewollt? Wenn ja wie kann ich jetzt meinen Lauftext korrekt laufen lassen?
Zeichenweise zu verschieben ist mir zu ruckelig.

Code: Alles auswählen

Procedure Lauftext(vText.s)
   Protected pValue.s, pFont.l = LoadFont(0, "Courier NEW", 24, #PB_Font_Bold)
   Static x.l = 420

   If StartDrawing(ImageOutput(0))
      DrawingFont(pFont)
      Box(0, 0, 420, 050, #Yellow)
      pValue = vText + Space(22)
      If (x<(420-TextWidth(pValue))): x = 420: Else: x - 1: EndIf
      DrawText(x, 10, pValue, #Blue, #Yellow)
      DrawingFont(#PB_Default)
      StopDrawing()
      SetGadgetState(0, ImageID(0))
   EndIf
EndProcedure

If OpenWindow(0, 0, 0, 440, 70, "Lauftext Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   CreateImage (0, 420, 050)
   ImageGadget (0, 010, 010, 420, 050, ImageID(0))
EndIf

AddWindowTimer(0, 0, 20) 
Repeat 
   Select WaitWindowEvent()
      Case #PB_Event_CloseWindow: Break
      Case #PB_Event_Timer      : Lauftext("Dies ist ein Lauftext Versuch")
   EndSelect
ForEver

End

fixed.

[edel]

@freak

Wie greift man, per ASM, denn auf "threaded" Variablen zu?

[freak]

> Wie greift man, per ASM, denn auf "threaded" Variablen zu?

Hab ich noch nicht probiert. Schau halt mal mit /COMMENTED an was da passiert.

Ansonsten einfach den Wert in eine lokale Variable schieben und von dort aus lesen.

[Sebastian]

Ich bin schon so hibbelig: Hat schon jemand einen Tipp erhalten, wann die final erscheinen wird?

[ts-soft]

Ich bin schon so hibbelig: Hat schon jemand einen Tipp erhalten, wann die final erscheinen wird?

Montag

[edel]

Ich haette da noch eine Bitte. Ich finde es sehr muehsam alte Caret Position wieder zu finden. Strg + L ist zwar brauchbar aber es waere
doch besser auch nach vorne zu navigieren. Das ganze dann auch noch fuer die Maus, also im Prinzip so wie man es von einem Browser
gewohnt ist.

[Falko]

Ich bin schon so hibbelig: Hat schon jemand einen Tipp erhalten, wann die final erscheinen wird?

Montag

Freitag

[Kiffi]

Montag

Freitag

5 Minuten, bevor ich total übermüdet in's Bett will.

Auf jeden Fall in absehbarer Zeit:
Fred ist wieder im englischen Forum aktiv und versieht alle Betreffs mit [Done].

Grüße ... Kiffi