ClassAsForm

утилита для записи класса на основе FORM из библиотеки VCX в форму - наследницу SCX
[code] * утилита для записи класса на основе FORM из библиотеки VCX в форму - наследницу SCX procedure ClassAsForm #define YES 6 #define MsgTitle 'Tool ClassAsForm' local old_safety , i , classcount m.old_safety = set('safety') && запрос на подтверждение set safety off && не нужен do while messagebox('Наследовать форму от класса ?',4+32+4096,MsgTitle) = YES if agetclass(AClasses) && Выбираем Класс FORM из библиотеки AClasses[1] - Библиотека ; AClasses[2] - Класс * получили массив инфо о классах библы aClass1[1] - ObjName ; aClass1[2] - BaseClass m.classcount = avcxclasses(aClass1,AClasses[1]) m.i = ascan(aClass1,AClasses[2],1,m.classcount,1,9) if m.i > 0 and upper(aClass1[m.i,2]) == 'FORM' && могем из класса сделать форму наследник ? create form (AClasses[2]) as (AClasses[2]) from (AClasses[1]) nowait save && открыли конструктор форм с нашим классом sys(1500,'_MFI_SAVAS','_MSM_FILE') && сохранили класс как форму release windows 'Form Designer - ' + AClasses[2] + '.scx' && и закрыли конструктор else messagebox('Базовый класс должен быть FORM.',48+4096,MsgTitle,3000) endif endif enddo set safety &old_safety && восстановили запрос на подтверждение, какой он был до нашего вмешательства return [/code]
Автор: Vladimir_Knyr
0

Автор публикации

не в сети 18 лет

Vladimir_Knyr

0
Комментарии: 0Публикации: 11Регистрация: 15-12-2003
Оставить комментарий
Авторизация
*
*
Генерация пароля