PureBasic - форум

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

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

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Помогите с выводом информации в окно (Уровень elementary).

Помогите с выводом информации в окно (Уровень elementary).

Страница: 1

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

1

  • Автор: Goga
  • Активный участник
  • Зарегистрирован: 08.08.2020
  • Приглашений: 0
  • Сообщений: 84
  • Уважение: [+0/-0]
  • Позитив: [+3/-0]
  • Провел на форуме:
    1 день 0 часов
  • Последний визит:
    14.04.2024 03:28:20

Подcкажите, плиз, что надо сделать, чтобы мышь оставалась мышью в окне. Еще можете объяснить причину, почему окно виснет, если просто потыкать в него мышкой?

Код:
OpenWindow(0,     0, 0, 700, 400, "Мышь сворачивается в кружок", #PB_Window_ScreenCentered | #PB_Window_BorderLess)
SetWindowColor(0, 0) ;поставили фон черный окну
Repeat
  TextGadget(1, 100,100, 105, 25, FormatDate("%hh:%ii:%ss", Date())):SetGadgetColor(1,#PB_Gadget_FrontColor,#Cyan):SetGadgetColor(1,#PB_Gadget_BackColor,#Black) ;Текущее время
  UpdateWindow_(WindowID(0))
  Delay(500) ; без этог все глючит еще быстрее, почему?
Until Event = #PB_Event_CloseWindow

Отредактировано Goga (23.08.2020 17:30:59)

0

2

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

Где в коде обработка событий? Нет ни WindowEvent(), ни WaitWindowEvent().
События не обрабатываются. Их очередь переполняется и система считает что программа повисла.

Код:
OpenWindow(0, 0, 0, 700, 400, "Мышь сворачивается в кружок", #PB_Window_ScreenCentered | #PB_Window_BorderLess)
SetWindowColor(0, 0) ;поставили фон черный окну
TextGadget(1, 100,100, 105, 25, FormatDate("%hh:%ii:%ss", Date()))
SetGadgetColor(1,#PB_Gadget_FrontColor,#Cyan)
SetGadgetColor(1,#PB_Gadget_BackColor,#Black)

AddWindowTimer(0, 123, 1000)

Repeat
  Event = WaitWindowEvent()
  
  If Event = #PB_Event_Timer And EventTimer() = 123
    SetGadgetText(1, FormatDate("%hh:%ii:%ss", Date())) ; Текущее время
  EndIf
  
Until Event = #PB_Event_CloseWindow

0

3

  • Автор: Goga
  • Активный участник
  • Зарегистрирован: 08.08.2020
  • Приглашений: 0
  • Сообщений: 84
  • Уважение: [+0/-0]
  • Позитив: [+3/-0]
  • Провел на форуме:
    1 день 0 часов
  • Последний визит:
    14.04.2024 03:28:20

Спасибо, Петр. У меня серьезные пробелы в глобальной картине программирования. Ну, хоть одной дыркой меньше)  Но есть еще один из похожего вопрос, подготовлю корректно и выложу сюда, надеюсь, вы или кто поможет.

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Помогите с выводом информации в окно (Уровень elementary).