Hi serg_piter!

> На твоем месте я бы написал класс столбца с твоими методами WHEN и Valid

Не совсем так - не в методах колонки (таковых кстати у неё и нету), а в
методах контролов, в этой колонке расположенных. Т.е. например так:

> DEFINE CLASS MYCOLUMN AS COLUMN

ADD OBJECT txt AS MyColumnTextbox

ENDDEFINE
DEFINE CLASS MyColumnTextbox AS Textbox

> PROCEDURE When
> ...
> ENDPROC
> PROCEDURE Valid
> ...
> ENDPROC
> ENDDEFINE

Можно так-же и хедер описать - причём 2-мя способами :) Явно по ADD OBJECT
или косвенно через HeaderClass(Library)
А можно пойти проще - заменив только текстбоксы в колонке - причём сделать
это можно как в рантайме (циклом подобным описанному в начале темы) - но
тогда все свойства, а главное методы описанные в имеющихся в колонках
текстбоксах (т.е. в "штатных") будут утеряны... Так и в дизайнтайме (т.е. в
редакторе формы/класса) - конечно менять руками контролы в 34 колонках есть
малопродуктивно - поэтому есть смысл написать простой построитель, который и
сделает подобную замену :) Или же "обмануть" фокс, открыв scx/vcx как
таблицу и проведя замену полей Class и Classloc для нужных записей
(ориентируясь по содержимому полей Parent, текущим значениям поля Class и
т.п.)

Posted via ActualForum NNTP Server 1.3