Jak zrobić zaznaczenie (podświetlenie) pola numerycznego?

[Emart22]

Witam.
Potrzebuje procedurę która będzie zaznaczać (podświetlać na niebiesko) wpisane liczby. Wiem tylko jak zrobić focus i na tym się zatrzymałem.
Pozdrawiam
Artur

[belstar]

Tak na szybko:

Kod: Zaznacz cały

Sub Zaznacz
	oNrField = oDialog1.getControl("NumericField1")'.setFocus
	oNrField.setFocus
	'iSelection = oNrField.getSelection().max
	iSelection = Len(oNrField.text)
	dim oSelection as new com.sun.star.awt.Selection

	oSelection.min = 0
	oSelection.max = iSelection
	oNrField.setSelection(oSelection)
	'oNrField.setFocus
End Sub

Jedyna wada za pierwszym razem nie działa.

[Emart22]

Wielkie dzięki. Działa za pierwszym razem jeśli procedura zostanie przypisana do puszczenia przycisku zamiast do naciśnięcia.