TransForm – нестандартные виды форм

Создание форм в виде кругов, эллипсов, квадратов, прямоугольников, многоугольников, прозрачных форм.

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)

В прилагаемом архиве лежит чуть более подробная документация на английском языке ... Удачи !

Автор: (c) Universalthread

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

не в сети 1 месяц

Joys

2
Комментарии: 4Публикации: 227Регистрация: 25-06-2000
0
Вложенные файлы
#
Тип файла
Размер
Название
1 .zip 10,10 КБ formtrans
Оставить комментарий
Авторизация
*
*
Генерация пароля