Seite 1 von 1

Frage zum StringGadget

Verfasst: 03.04.2014 11:14
von 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

Re: Frage zum StringGadget

Verfasst: 03.04.2014 11:24
von 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

Re: Frage zum StringGadget

Verfasst: 03.04.2014 15:20
von enigma
@ RSBasic
Super! Vielen Dank!

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

Gruß
Enigma

Re: Frage zum StringGadget

Verfasst: 03.04.2014 18:45
von 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

Re: Frage zum StringGadget

Verfasst: 04.04.2014 16:52
von 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

Re: Frage zum StringGadget

Verfasst: 04.04.2014 16:53
von RSBasic
Wenn du Englisch kannst, sollte das kein Problem sein. <)