Отправлено: 11.02.08 09:57. Заголовок: Изменить Picture

Всем привет ! Вопрос такой - для GET нужно изменять Picture при получении/потери фокуса(99 999 999.99 на 99999999.99) Делал вроде стандартно
oGet:oGet:Picture:=
oGet:Refresh()
в общем по всякому, однако не вышло

 Отправлено: 11.02.08 10:17. Заголовок: Очень грубо, но рабо..

Очень грубо, но работает... :)

LOCAL c1 := "Строка "
LOCAL c2 := 123456789

CLS
@ 0, 1 GET c1 PICTURE "@K!"
@ 1, 1 GET c2 WHEN ChPict() PICTURE "@K 999999999.99"
READ



FUNCTION ChPict


LOCAL o := GetActive()


IF o:Picture == "@K 999999999.99"
o:Picture := "@K 99999999999999999999999.99"
ELSE
o:Picture := "@K 999999999.99"
END // IF

o:Display()


RETURN .T.

 Отправлено: 11.02.08 17:06. Заголовок: Спасибо. Написал нем..

Спасибо. Написал немного иначе, но тоже работает