23.11.2014, 06:03
[ab3]*TextBox.tuiTextBox = (.tuiTextBox)ntui_GetObjectByID{*engine,"SourceBox"} ; Textboxadresse holen
If *TextBox
ntui_GetAttrByID{*engine,"SourceBox",#TUITBA_CURSORLINE,&CursorLine.l} ; Cursorline finden
ntui_GetAttrByID{*engine,"SourceBox",#TUITBA_CURSORCHAR,&CursorChar.l} ; Cursorchar finden
ntui_SetTextBoxSelection{*TextBox, Null, CursorLine, CursorChar, CursorLine, CursorChar}
ntui_ReplaceTextBoxSelection{*TextBox, Objekt, Flen(Object)}
ntui_SetFocus{*TextBox} ; Fokus auf textbox setzen
Else
message{"Konnte TextBoxadresse nicht ermitteln"}
EndIf[/ab3]
Die API ist aber nicht nicht ganz ausgereift.
If *TextBox
ntui_GetAttrByID{*engine,"SourceBox",#TUITBA_CURSORLINE,&CursorLine.l} ; Cursorline finden
ntui_GetAttrByID{*engine,"SourceBox",#TUITBA_CURSORCHAR,&CursorChar.l} ; Cursorchar finden
ntui_SetTextBoxSelection{*TextBox, Null, CursorLine, CursorChar, CursorLine, CursorChar}
ntui_ReplaceTextBoxSelection{*TextBox, Objekt, Flen(Object)}
ntui_SetFocus{*TextBox} ; Fokus auf textbox setzen
Else
message{"Konnte TextBoxadresse nicht ermitteln"}
EndIf[/ab3]
Die API ist aber nicht nicht ganz ausgereift.