PureBasic - форум

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

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

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

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

Страница: 1

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

1

  • Автор: Goga
  • Активный участник
  • Зарегистрирован: 08.08.2020
  • Приглашений: 0
  • Сообщений: 99
  • Уважение: [+0/-0]
  • Позитив: [+3/-0]
  • Провел на форуме:
    1 день 5 часов
  • Последний визит:
    12.10.2024 06:05:11

Под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
  • Сообщений: 3033
  • Уважение: [+99/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 10 дней
  • Последний визит:
    Сегодня 01:24:13

Где в коде обработка событий? Нет ни 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
  • Сообщений: 99
  • Уважение: [+0/-0]
  • Позитив: [+3/-0]
  • Провел на форуме:
    1 день 5 часов
  • Последний визит:
    12.10.2024 06:05:11

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

0

Страница: 1

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