FreeBasic
Главная
Вход
Регистрация
Суббота, 23.09.2017, 10:30Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Библиотеки для FreeBasic » Библиотека Window9 для Freebasic » SpinGadget и управление им с помощью колеса мыши
SpinGadget и управление им с помощью колеса мыши
WQДата: Пятница, 10.10.2014, 16:01 | Сообщение # 1
Подполковник
Группа: Пользователи
Сообщений: 124
Репутация: 2
Статус: Offline
В SpinGadget не могу выставить стили UDS_ARROWKEYS и UDS_ALIGNRIGHT
А вообще нужно, чтобы работало изменение значений колесом мыши

Сообщение от администратора: перенесено из
этой ветки
 
haavДата: Пятница, 10.10.2014, 16:04 | Сообщение # 2
Генерал-лейтенант
Группа: Администраторы
Сообщений: 768
Репутация: 33
Статус: Offline
Вот так работает и с помощью клавиатуры и с помощью колеса мыши. Переключение между гаджетами по клавише TAB или SHIFT+TAB

Код
#Include "window9.bi"
Dim As Integer event
Dim As hwnd hwnd
Dim As Integer font = CInt(LoadFont("Arial",22))
Dim As Integer TabStop(1 To 2) = {1,2}, iNumberSelect = 1
SetGadgetFont(,font)

hwnd = OpenWindow("1",300,10,250,200)
AddKeyboardShortcut(hwnd,FVIRTKEY,VK_TAB,1001)
AddKeyboardShortcut(hwnd,FSHIFT,VK_TAB,1002)

SpinGadget(1,10,10,200,40,100,0,50,UDS_ARROWKEYS Or UDS_SETBUDDYINT Or UDS_ALIGNRIGHT)
SpinGadget(2,10,60,200,40,100,0,50,UDS_ARROWKEYS Or UDS_SETBUDDYINT Or UDS_ALIGNLEFT)
SetGadgetColor(1,50000,0,1)
SetGadgetColor(2,&hff,0,1)

SetFocus(GadgetID(TabStop(iNumberSelect)))

Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=EventMenu Then
   Select Case EventNumber
    Case 1001
     iNumberSelect = iNumberSelect + 1
     If iNumberSelect>UBound(TabStop) Then iNumberSelect = 1
     SetFocus(GadgetID(TabStop(iNumberSelect)))
    Case 1002
     iNumberSelect = iNumberSelect - 1
     If iNumberSelect<LBound(TabStop) Then iNumberSelect = UBound(TabStop)
     SetFocus(GadgetID(TabStop(iNumberSelect)))
   End Select
  EndIf
Loop


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
WQДата: Воскресенье, 12.10.2014, 20:44 | Сообщение # 3
Подполковник
Группа: Пользователи
Сообщений: 124
Репутация: 2
Статус: Offline
Спасибо!
 
Форум » Библиотеки для FreeBasic » Библиотека Window9 для Freebasic » SpinGadget и управление им с помощью колеса мыши
Страница 1 из 11
Поиск: