Frage zum StringGadget

[enigma]

Hallo,
ich möchte in einem StringGadget eine Textzeile Anzeigen. Allerdings ist diese Zeile länger als das Gadget und der Rest wird abgeschnitten.
Ist es möglich die Anzeige so darzustellen wie die Texteingabe. Soll heißen der Text wird so verschoben das immer das Ende zu lesen ist und der Anfang der Zeile verschwindet.

Gruß
Enigma

[RSBasic]

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(1, 10, 10, 100, 20, "", 0)
  SetGadgetText(1, "Ein langer Text wurde geschrieben.")
  
  SetActiveGadget(1)
  SendMessage_(GadgetID(1), #EM_SETSEL, $fffffff, $fffffff)
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

[enigma]

@ RSBasic
Super! Vielen Dank!

Ich verstehe zwar nicht was du da machst, aber genau so soll es sein.

Gruß
Enigma

[Andesdaf]

Die Windows-Message EM_SETSEL dient eigentlich dazu, Text in einem StringGadget zu markieren.

http://msdn.microsoft.com/en-us/library ... 85%29.aspx

[enigma]

@Andesdaf

Danke für die Info. Ich glaube ich muss mich wirklich mal mit msdn befassen.
Aber ob ich das dann verstehe?

Gruß
Enigma

[RSBasic]

Wenn du Englisch kannst, sollte das kein Problem sein.