PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Получить событие клика по текстовому гаджету

Получить событие клика по текстовому гаджету

Страница: 1

Сообщений 1 страница 18 из 18

1

  • Автор: haav
  • Активный участник
  • haav
  • Зарегистрирован: 20.12.2009
  • Приглашений: 0
  • Сообщений: 440
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    6 дней 22 часа
  • Последний визит:
    02.12.2012 09:07:36

Почему  не работает этот код? Неужели нельзя связать клик с текстовым гаджетом?

Код:
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )

      TextGadget(#Text_0, 130, 55, 405, 185, "hghghfghfhgfghfghfghfghfghg")
      
    EndIf

EndProcedure

Open_Window_0()
Repeat
ev=WaitWindowEvent()

If ev= #PB_Event_Gadget
 If EventGadget()=#Text_0
    
     End

 EndIf
EndIf     
      
Until ev=#PB_Event_CloseWindow

0

2

  • Автор: haav
  • Активный участник
  • haav
  • Зарегистрирован: 20.12.2009
  • Приглашений: 0
  • Сообщений: 440
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    6 дней 22 часа
  • Последний визит:
    02.12.2012 09:07:36

Только вычитал в справке, оказывается этот гаджет не поддерживает событий.  :disappointed:

0

3

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01

Вот так вот можно

Код:
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
EndEnumeration

Procedure IsMouseOver(wnd) 
 GetWindowRect_(wnd,re.RECT) 
 GetCursorPos_(pt.POINT) 
 Result.l = PtInRect_(@re, pt\x | (pt\y<<32) ) 
ProcedureReturn Result 
EndProcedure 



Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )

      TextGadget(#Text_0, 130, 55, 405, 18, "hghghfghfhgfghfghfghfghfghg")
      
    EndIf

EndProcedure

Open_Window_0()
Repeat
ev=WaitWindowEvent()

If ev= #WM_LBUTTONUP ;#PB_Event_Gadget
 If IsMouseOver(GadgetID(#Text_0))  ;EventGadget()=#Text_0
    
     End

 EndIf
EndIf     
      
Until ev=#PB_Event_CloseWindow

0

4

  • Автор: haav
  • Активный участник
  • haav
  • Зарегистрирован: 20.12.2009
  • Приглашений: 0
  • Сообщений: 440
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    6 дней 22 часа
  • Последний визит:
    02.12.2012 09:07:36

Спасибо Петр!  Где то я эту процедуру уже видел, может даже слепо использовал.

0

5

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

Вот так вот можно


нет не работает, а так работает

Код:
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
EndEnumeration

Procedure IsMouseOver(wnd) 
 GetWindowRect_(wnd,re.RECT) 
 GetCursorPos_(pt.POINT) 
 Result.l = PtInRect_(@re, pt\x | (pt\y<<32) ) 
ProcedureReturn Result 
EndProcedure 



Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )

      TextGadget(#Text_0, 130, 55, 405, 18, "hghghfghfhgfghfghfghfghfghg",#SS_NOTIFY)
      
    EndIf

EndProcedure

Open_Window_0()
Repeat
ev=WaitWindowEvent()

If ev= #WM_LBUTTONUP ;#PB_Event_Gadget
 If IsMouseOver(GadgetID(#Text_0))  ;EventGadget()=#Text_0
    
     End

 EndIf
EndIf     
      
Until ev=#PB_Event_CloseWindow

0

6

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01

При использовании флага #SS_NOTIFY, код можно упростить.

Код:
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar)
    TextGadget(#Text_0, 130, 55, 405, 18, "hghghfghfhgfghfghfghfghfghg",#SS_NOTIFY)
  EndIf
  
EndProcedure

Open_Window_0()
Repeat
  ev=WaitWindowEvent()
  
  If ev= #PB_Event_Gadget
    If EventGadget()=#Text_0
      End
    EndIf
  EndIf     
  
Until ev=#PB_Event_CloseWindow

0

7

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

Пётр
вот так на кнопке почему нету событие после отпускания мыши?

Код:
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
EndEnumeration

Procedure IsMouseOver(wnd) 
 GetWindowRect_(wnd,re.RECT) 
 GetCursorPos_(pt.POINT) 
 Result.l = PtInRect_(@re, pt\x | (pt\y<<32) ) 
ProcedureReturn Result 
EndProcedure 



Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
     ButtonGadget(5,5,5,155,55,"ButtonGadget" )

      TextGadget(#Text_0, 130, 55, 405, 18, "hghghfghfhgfghfghfghfghfghg",#SS_NOTIFY)
      
    EndIf

EndProcedure

Open_Window_0()
Repeat
ev=WaitWindowEvent()

If ev= #WM_LBUTTONUP ;#PB_Event_Gadget
 If IsMouseOver(GadgetID(#Text_0))  ;EventGadget()=#Text_0
    
   Debug "#Text_0"
 ElseIf  IsMouseOver(GadgetID(5))  
   Debug "#ButtonGadget"

 EndIf
EndIf     
      
Until ev=#PB_Event_CloseWindow

0

8

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
mestnyi написал(а):

вот так на кнопке почему нету событие после отпускания мыши?

Почему нет? В этом коде есть такое событие.

0

9

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

ну не происходит же.

0

10

  • Автор: Никита
  • Участник
  • Откуда: Ростов-на-Дону, Россия
  • Зарегистрирован: 18.06.2013
  • Приглашений: 0
  • Сообщений: 13
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Возраст: 25 [1998-11-26]
  • Провел на форуме:
    5 часов 9 минут
  • Последний визит:
    17.12.2013 22:53:26

mestnyi, только оно и происходит

0

11

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

как, вот это разве, срабатывает?

Код:
ElseIf  IsMouseOver(GadgetID(5))  
   Debug "#ButtonGadget"

Отредактировано mestnyi (15.09.2013 15:39:17)

0

12

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
mestnyi написал(а):

вот это разве, срабатывает?

Да.

0

13

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

у меня w8, а почему же у меня не работает интересно.

0

14

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01

Может потому что восьмерка кривая?
Но скорее всего потому что кнопка не поддерживает это событие о никто не гарантирует что будет работать на всех системах.

0

15

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

а вот это как должно работать, чьё то у меня ошибка при компиляции. 

Код:
Result = ExamineMouse() 
If Result
Debug MouseButton(#PB_MouseButton_Left  )
EndIf

0

16

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01
mestnyi написал(а):

у меня ошибка при компиляции

Мы должны догадаться какая?
В коде есть вызовы функций InitSprite(), InitMouse(), OpenScreen() или OpenWindowedScreen()?

0

17

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

В коде есть вызовы функций InitSprite(), InitMouse(), OpenScreen() или OpenWindowedScreen()?

нет, значить это не то что мне нужно.

0

18

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

Ну все таки как получить (WM_LBUTTONDOWN, WM_LBUTTONUP,  WM_MOUSEMOVE) на всех гаджетах или control , то есть на всём что находится в определенном окне?
В линуксе (BUTTONDOWN, BUTTONUP,  MOUSEMOVE)  реально ли получить?

Отредактировано mestnyi (18.01.2014 22:55:12)

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Получить событие клика по текстовому гаджету