OpenOffice.info

otxtText.commit = true

osel = otxtTextctrl.Selection

otxtTextctrl.setfocus

Hi,
um sicher zu gehen, dass der Textinhalt übernommen wird, schreibe als letzte Zeile
[code]otxtText.commit = true[/code]
Ich hatte dir schon früher MRI und XRAY nahegelegt, damit kannst Du
[code]osel = otxtTextctrl.Selection[/code] analysieren und verwenden um den Cursor dahin zu bekommen, wo du ihn benötigst.
Damit das wirkt, mußt du entweder die Button-Eigenschaft "Fokussieren bei Klick" abschalten, oder durch diese Zeile
[code]otxtTextctrl.setfocus[/code] den Fokus zurück auf das Textfeld lenken.
R

[quote="miamit"]Kann man das noch realisieren?[/quote]
Klar kann [color=#0040FF]man[/color]!
Und los!
Viel Erfolg

----------

----------

Hi,
[quote="miamit"]... [color=#FF0000]heißt definitiv[/color] [color=#0040FF]Name_des_Formulars[/color] und wenn ich im Entwurfsmodus ...[/quote]
Hier ist nicht der Name des Formulardokumentes gemeint, sondern der Name, den Du siehst, wenn du im Entwurfsmodus mit dem Formularnavigator schaust, bzw. wenn du einen Rechtsklick auf ein Kontrollelement machst und dann[color=#0040FF] Formular ...[/color] wählst.
Gruß R

----------

thisComponent

Sub S_insert_Button_Tag(event)
    ocontroller = thiscomponent.currentcontroller
    obutton = event.source.model
    sTextpiece = oButton.tag
    oform = oButton.parent
    otxtText = oform.getbyname("txtText")
    sText = otxtText.Text
    otxtTextctrl = ocontroller.getcontrol(otxtText)
    osel = otxtTextctrl.Selection
    if osel.min > osel.max then
        nmin = osel.max
        nmax = osel.min
    else
        nmin = osel.min
        nmax = osel.max    
    endif
    if sText = "" then
        snewText = sTextpiece
    else
        stext1 = left(sText,nmin)
        stext2 = right(sText,len(sText)-nmax)
        snewText = stext1 + sTextpiece + stext2
    endif    
    otxtText.Text = snewText
end sub

Hi,
[quote="miamit"]Was mache ich falsch?[/quote]
Vermutlich rufst Du das Makro aus der IDE (Basic-GUI) auf, statt durch Drücken des Buttons? Denn
[code]thisComponent[/code] wäre dann nicht das Formular, sondern das gesamte Datenbankdokument, und das hat eben keine Drawpage ...

Angenommen
[list][*]dein Textfeld heißt [color=#0040FF]txtText[/color]
[*]der Button befindet sich auf dem selben Formular (im Formular Navigator)
[*]In die Zusatzinformation (.tag) des Buttons hast Du deinen Einfügetext geschrieben
[*]hänge dieses Makro an sein Ereignis [color=#0040FF]Aktion ausführen[/color][/list]

[code]Sub S_insert_Button_Tag(event)
ocontroller = thiscomponent.currentcontroller
obutton = event.source.model
sTextpiece = oButton.tag
oform = oButton.parent
otxtText = oform.getbyname("txtText")
sText = otxtText.Text
otxtTextctrl = ocontroller.getcontrol(otxtText)
osel = otxtTextctrl.Selection
if osel.min > osel.max then
nmin = osel.max
nmax = osel.min
else
nmin = osel.min
nmax = osel.max
endif
if sText = "" then
snewText = sTextpiece
else
stext1 = left(sText,nmin)
stext2 = right(sText,len(sText)-nmax)
snewText = stext1 + sTextpiece + stext2
endif
otxtText.Text = snewText
end sub[/code]

Gruß R

----------