folgende Voraussetzung ist gegeben.
Ich habe 6 StringGadget's untereinander welche der Anwender ausfüllen kann. Der Text wird ganz normal Linksbündig eingetragen.
Nun befindet sich unter den StringGadgets ein Button mit dem ich es ermöglichen möchte, nachträglich den Linksbündigen Text per Buttonklick
auf mittig (zentriert) zu setzen oder nach erneutem klicken auf den Button wieder den Text linksbündig darzustellen.
Leider hilft mir SendMessage_ mit Flag #ES_Center nicht weiter weil ich diese Info an das String nicht übergeben bekomme?
erstellt werden die StringGadgets in einer Prozedur:
Code: Alles auswählen
StringGadget(#Stamp1, 590, 350, 260, 18,"MusterText", #ES_MULTILINE)
SetGadgetFont(#Stamp1, FontID(Font2))
Code: Alles auswählen
Case #Btn_CenterStamp
; Hier am besten einen "Toggle" Effekt (Variable Global definiert am Anfang!)
; TempString.s per Define definiert ! (Vor der EventLoop)
If ToggleCenterStamp = 0
ToggleCenterStamp = 1
TempString = "Stempel links ausrichten"
; Hier müsste das kommen was ein String nachträglich zentriert (Keine Ahnung muss man suchen)
For i = #Stamp1 To #Stamp6
SendMessage_(GadgetID(i), #EM_SETMARGINS, #EC_LEFTMARGIN, 50|0 << 16) ; FALSCH
Next i
Else
ToggleCenterStamp = 0
TempString = "Stempel zentrieren"
; Hier müsste das kommen was ein String nachträglich linksbündig macht (Keine Ahnung muss man suchen)
For i = #Stamp1 To #Stamp6
SendMessage_(GadgetID(i), #EM_SETMARGINS, #EC_LEFTMARGIN, 2|0 << 16)
Next i
EndIf
SetGadgetText(#Btn_CenterStamp, TempString)
VG