FreeBasic
Главная
Вход
Регистрация
Четверг, 28.03.2024, 11:45Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Вопросы по языку FreeBasic » Затруднение с поведением гаджетов в окне
Затруднение с поведением гаджетов в окне
РуевитДата: Вторник, 20.10.2020, 02:28 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 2
Репутация: 0
Статус: Offline
Доброго здравия всем.
Не разберусь, в чём причина. Должно быть: при выборе пункта меню, через таймер, должны постепенно добавляться гаджеты, фиксация, и быстрая очистка окна.
Получилось: сначала отрабатывается полностью вся пауза, затем всем скопом накидываются в окно гаджеты, а затем окно очищается.
Подскажите пожалуйста, что-где не вижу, или не уразумею.
код:


Сообщение отредактировал Руевит - Вторник, 20.10.2020, 02:31
 
haavДата: Вторник, 20.10.2020, 08:28 | Сообщение # 2
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Привет! Попробуй переписать процедуру Delay так:

Код
Sub Delay (z as double)
    Dim Start As Double
    Start = Timer
    Do
  if WindowEvent = EventClose Then End
  Sleep 1, 1
    Loop Until (Timer - Start) > z
end sub


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
РуевитДата: Вторник, 20.10.2020, 11:25 | Сообщение # 3
Рядовой
Группа: Пользователи
Сообщений: 2
Репутация: 0
Статус: Offline
haav
спасибо за подсказку
и ОГРОМНЕЙШЕЕ спасибо за библиотеку windows9
 
Форум » Freebasic » Вопросы по языку FreeBasic » Затруднение с поведением гаджетов в окне
  • Страница 1 из 1
  • 1
Поиск: