OpenOffice.info

Sorry DPUNCH. ;)
Dieter

[quote="ddraht"]Jürgen, astrein,[/quote]

Nix Jürgen, das Makro ist von DPunch.
Hat er echt klasse gemacht.

Jürgen

Jürgen, astrein,

so etwas sollte Standart sein, als ein- und ausstellbares Feature. :)

Besten Dank Dieter

Sub ResetHighlighting_OnFocus(oEvt)
	Dim oSelection
	oSelection = oEvt.Source.Selection
	oSelection.Min = oSelection.Max
	oEvt.Source.setSelection(oSelection)
End Sub

Aloha

Versuch es mal hiermit (als Ereignis >bei Fokuserhalt< zuweisen)

[code]
Sub ResetHighlighting_OnFocus(oEvt)
Dim oSelection
oSelection = oEvt.Source.Selection
oSelection.Min = oSelection.Max
oEvt.Source.setSelection(oSelection)
End Sub
[/code]

Damit stellt man zwar nicht das highlighten an sich aus, aber man muss schon sehr schnell sein, um den alten TextBox-Inhalt zu überschreiben - sollte also für den normalen Hausgebrauch reichen.

Hallo Jürgen,

bei mir führt das Makro zu einer Endlosschleife. Egal ob ich das Makro dem Texfeld oder dem Tabellenfeld zuweise.

Ich teste optimistisch weiter..

Danke für deine üppige Hilfe

Gruß
Dieter

Sub Focus_Textfield( oEvt as Object)
Dim sText , SelectedTextfield as String
Dim oDoc , oForm , oCtrl , oButton as Object
	set oButton = oEvt.Source
	SelectedTextfield = oButton.Model.Name 'Name der Textbox auslesen
	oDoc = thisComponent
	oForm = oDoc.drawpage.forms.getbyindex(0)
	oCtrl = oForm.getByName(SelectedTextfield)'Textbox ansprechen
	stext = oCtrl.String 'Text auslesen
	oCtrl.string = sText 'Text schreiben
End Sub

Hallo Dieter,

hier mal ein Beispiel für alle Textboxen in der Form:
[code]Sub Focus_Textfield( oEvt as Object)
Dim sText , SelectedTextfield as String
Dim oDoc , oForm , oCtrl , oButton as Object
set oButton = oEvt.Source
SelectedTextfield = oButton.Model.Name 'Name der Textbox auslesen
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
oCtrl = oForm.getByName(SelectedTextfield)'Textbox ansprechen
stext = oCtrl.String 'Text auslesen
oCtrl.string = sText 'Text schreiben
End Sub[/code]

Weise dieses dem Ereignis "Bei Fokuserhalt" zu.

Nachteil ist, dass der Cursor dann immer am Anfang des Textes steht. :?


Viel Erfolg.

Jürgen

Hallo OOs,

weiß jemand, wie ich die automatische Selektion der Feldinhalte durch drücken der TAB-Taste ausschalten kann?
Zu häufig passiert es, dass der Text in dem Feld ausversehen durch Tastendruck gelöscht wird, weil dieser im Feld komplett
selektiert ist.

Gruß
Dieter