Модели слайдеров, имитирующих перемещаемые ползунки реостатов

 

//============================== 10 ============

Define slider sdd of F property metric 6 , top 430 , left 308 , width 135 , height 30 , ;

borderstyle 3 , tics 2 , colornormal "0x00ff4c/0x87114c" , rangemin 1.0 ,

rangemax 1000.0 , onchange change_sdd

//================================= 11 ==========

Define slider sds of F property metric 6 , left 568 , top 364 , width 135 , height 30 , ;

borderstyle 3 , tics 2 , colornormal "0x00ff4c/0x87114c" , ;

rangemin 1.0 , rangemax 1000.0 , onchange change_sds

 

 

Здесь слайдеры выполняют функции имитаторов ползунков реостатов, горизонтальное перемещение которых при помощи указателя мыши изменяет соответствующее значение сопротивления.

 

 

//===== 12 ==========

Define image img of F property metric 6 , top 436 , left 546 , ;

datasource 'file key.gif' , width 160 , height 94 , ;

OnLeftMouseDown {; SendMessage( ; F.img.Hwnd , 0x00A1 , 2 , 0) ; } , ;

borderstyle 3 , visible false , onmousemove rubilnik

 

 

 

При замене изображения выключенного рубильника на состояние рубильника “включено” , на основное окно накладывается анимированное изображение с имитацией искрения.

//============ 6 ==========

// Показания амперметра

Define text tx_1 of F property metric 6 , top 456 , left 64 , height 27 , width 120 , ;

borderstyle 3 , fontsize 18, fontbold true , text " " , ;

transparent true , colornormal "0xffffff"

//=========== 7 ===========

// Показания вольтметра

Define text tx_2 of F property metric 6 , top 526 , left 64 , ;

height 27 , width 120 , borderstyle 3 , fontsize 18, fontbold true , ;

text " " , transparent true , colornormal "0xffffff"

 

 

Эти скриншоты демонстрируют возможность реализации видеоэффекта (в нашем случае состояние рубильника включено – выключено ), а также возможности по перемещению графических объектов в пределах заданной прямоугольной области. Программно это осуществляется при помощи одной из функций WINDOWS API, вызов которой использован при описании соответствующего объекта. Это функция SendMessage, описание значений параметров которой имеет следующий вид:

Описание:

function SendMessage(Wnd: HWnd; Msg, wParam: Word; lParam: Longint): Longint;

Посылает сообщение оконной функции указанного окна. Возвpат из функции осуществляется только после обpаботки сообщения.

Wnd: Окно, пpинимающее сообщение или $FFFF для посылки всем всплывающим окнам в системе.

Msg: Тип сообщения.

wParam: дополнительная инфоpмация о сообщении.

lParam: дополнительная инфоpмация о сообщении.

Возвpащаемое значение: Значение, возвpащенное пpинимающей оконной функцией.