Спасибо!
standart visual - то что нужно.
автортам галка есть extend ancestor script
Да, галка есть. Она вставляет в начало метода
Это не совсем то что нужно, т.к. из предка невозможно запретить наследнику обрабатывать событие если валидация провалена и придется в наследнике обрабатывать код возврата.
Решил вопрос следующим образом:
1. Для DW
1.1. Делаю предка DW, в котором конструктор пробегает по всем полям и вставляет для них валидирующее выражение. К счастью, в данном проекте свойство validation используется всего в одном или двух местах и их легко будет переделать на itemchanged. Код конструктора выглядит примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
event constructor;string colname, colvariable, filter
int i, icount
filter = '^[0-9a-zA-ZА-Я]*$'
icount = integer(this.describe('DataWindow.Column.Count'))
FOR i = 1 TO icount
colvariable = '#'+string(i)+'.name'
colname = this.describe(colvariable)
this.modify(colname+'.validation="Match(GetText( ),~''+filter+'~')"')
this.modify(colname+'.validationmsg="validation works!"')
NEXT
end event
1.2. Прохожу по исходникам всех DW и меняю
1.
type dw_1 from datawindow
на
1.
type dw_1 from myDatawindow
Поскольку замена простая и безвариантная, ошибок быть не должно.
Минус такого решения в том, что при провале валидации в потомке после вывода соответствующего сообщения, выводится также сообщение предка, заданное свойством validationmsg, но это не критично.
2. Для single line edit
Все то же самое, но имплементирую событие modified. Поскольку нельзя отменить изменения, делаю так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
type variables
string initialvalue = ''
end variables
event modified;string filter;
filter = '^[0-9a-zA-Z]*$'
if not match(this.Text, filter) then
messagebox('','validation works!',StopSign!)
this.Text = this.initialvalue
else
this.initialvalue = this.Text
end if
end event
event constructor;this.initialvalue=this.text
end event
Кто-то знает как сделать поиск/замену в строке по регулярному выражению?
