TransForm - нестандартные виды форм
Некоторое разнообразие интерфейса VFP ... позволяет изменять форму уже СУЩЕСТВУЮЩЕЙ формы на выбранную вами. Т.е. вы создаете обычную форму и в событие Init вставляете код конвертации формы.
Создание формы в виде эллипса
SetFormElliptic (toFormRef, tnx, tny)
Параметры:
toFormRef - название формы для конвертирования
tnx - нижняя правая X-координата прямоугольника в который вписан эллипс
tny - нижняя правая Y-координата прямоугольника в который вписан эллипс
Возвращаемые значения:
.T. если удачно; иначе .F.
Пример:
oformtrans = newobject('cusformtransformer','frmtrans')
oformtrans.SetFormElliptic(THIS, 100, 200)
Создание прозрачной формы, т.е. все объекты на форме как бы "висят" сами по себе. Заголовок формы остается видимым.
SetFormTransparent (toFormRef)
Параметры:
toFormRef - название формы для конвертирования
Возвращаемые значения
.T. если удачно; иначе .F.
Пример
oformtrans = newobject('cusformtransformer','frmtrans')
oformtrans.SetFormTransparent (THIS)
Создание многоугольной формы
SetFormUDF (toFormRef, tapoints)
Параметры:
toFormRef - название формы для конвертирования
tapoints - двумерный массив с координатами
Возвращаемые значения
.T. если удачно; иначе .F.
Пример
oformtrans = newobject('cusformtransformer','frmtrans')
local array lapoints[9,2]
lapoints[1,1] = 0
lapoints[1,2] = 0
lapoints[2,1] = 10
lapoints[2,2] = 5
lapoints[3,1] = 100
lapoints[3,2] = 50
lapoints[4,1] = 200
lapoints[4,2] = 75
lapoints[5,1] = 60
lapoints[5,2] = 100
lapoints[6,1] = 300
lapoints[6,2] = 10
lapoints[7,1] = 250
lapoints[7,2] = 35
lapoints[8,1] = 10
lapoints[8,2] = 300
lapoints[9,1] = 25
lapoints[9,2] = 100
oformtrans.SetFormUDF (THIS, @lapoints)
В прилагаемом архиве лежит чуть более подробная документация на английском языке ... Удачи !
Автор публикации
Вложенные файлы
# |
Название |
Тип файла |
Размер |
|---|---|---|---|
| 1 | formtrans | .zip | 10,10 КБ |