purebasic.info

PureBasic forum
Текущее время: Сб янв 20, 2018 9:47 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Изменение формы курсора
СообщениеДобавлено: Пт июл 24, 2009 2:31 pm 
Не в сети
доцент

Зарегистрирован: Пн июл 20, 2009 10:51 am
Сообщений: 43
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Столкнулся с yеобходимостью менять форму курсора.
И вот нашел такое решение.
Цитата:
; Kubov V.I. 2009
; Управление формой курсора

Enumeration; константы с произвольными номерами
#Window
EndEnumeration

; ----------------------- Cursors -----------------------------------------
; #IDC_ARROW,#IDC_HAND,#IDC_NO,#IDC_HELP,#IDC_CROSS,#IDC_SIZEALL,#IDC_IBEAM

Cursor0=LoadCursor_(0,#IDC_ARROW); стрелка=стандартно
Cursor1=LoadCursor_(0,#IDC_HAND); рука
Cursor2=LoadCursor_(0,#IDC_NO); запрет
myCursor=Cursor0

OpenWindow(#Window,0,0,640,480,"Cursor")

; ---------------------- ожидаем завершения программы ---------------------------------
Repeat; повторяем пока окно не закроется

; ----------------- Устанавливаем форму курсора -----------------
SetCursor_(myCursor); действует только до следующего события окна

event=WaitWindowEvent(100); ожидаем события
Select event
Case #WM_RBUTTONDOWN: myCursor=Cursor1; правая кнопка мыши
Case #WM_LBUTTONDOWN: myCursor=Cursor2; левая кнопка мыши
Case #WM_KEYDOWN: myCursor=Cursor0; клавиатура
EndSelect

Until event=#PB_Event_CloseWindow

End

Если в этом примере убрать SetCursor_(myCursor) из цикла, и вставить SetCursor_(myCursor) после каждого события в соответствующее Case, то курсор восстанавливается после отпускания кнопки или клавиатуры.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB