forum.clarionlife.net

kreator писал(а): 30 Ноябрь 2025, 15:02 Modal Window - нерабочая опция сейчас вроде бы. А в какой момент вызывается это окно? Я бы перенёс вызов до открытия фрейма. Уточните этот момент.

Дед Пахом писал(а): 30 Ноябрь 2025, 15:33 Я бы вызывал в Event:OpenWindow фрейма.

gopstop2007 писал(а): 30 Ноябрь 2025, 16:18 Не совсем понял, что в чем вызвать )

Дед Пахом писал(а): 30 Ноябрь 2025, 16:22

gopstop2007 писал(а): 30 Ноябрь 2025, 16:18 Не совсем понял, что в чем вызвать )

Я бы вызывал процедуру ввода пароля в Event:OpenWindow фрейма.

Дед Пахом писал(а): 30 Ноябрь 2025, 16:44 Я предпочитаю такие вещи проверять при уже открытом фрейме, так юзер видит, куда он, собственно, логинится.
И все изменения, насколько я понимаю, должны свестись к переносу 3-х строчек в другую точку.

Код: Выделить всё

!- это после OPEN(AppFrame)
!IF Login() = FALSE
!  RETURN Level:Cancel
!END

!- это в Event:OpenWindow
IF Login() = FALSE
  POST(Event:CloseWindow)
END

gopstop2007 писал(а): 30 Ноябрь 2025, 17:04 сначала ввод пароля, потом загрузка данных(если есть изменения) с сервера

  StartMySoft Procedure
    Code  
    If CheckPasswordWindow() = True
       If LoadInfoServer() = True   
          Main()
       end          
    end

Дед Пахом писал(а): 30 Ноябрь 2025, 16:22

gopstop2007 писал(а): 30 Ноябрь 2025, 16:18 Не совсем понял, что в чем вызвать )

Я бы вызывал процедуру ввода пароля в Event:OpenWindow фрейма.

Игорь Столяров писал(а): 30 Ноябрь 2025, 17:44

gopstop2007 писал(а): 30 Ноябрь 2025, 17:04 сначала ввод пароля, потом загрузка данных(если есть изменения) с сервера

Ну так и сделайте как написали. Т.е.:

Код: Выделить всё

  StartMySoft Procedure
    Code  
    If CheckPasswordWindow() = True
       If LoadInfoServer() = True   
          Main()
       end          
    end

Нет ведь необходимости обязательно всё делать внутри фрейма (Main) ...

gopstop2007 писал(а): 30 Ноябрь 2025, 20:16 Вы предложили принцип такой же какой у меня сейчас, как сделать окно CheckPasswordWindow из Вашего примера всегда активным при запуске

Игорь Столяров писал(а): 30 Ноябрь 2025, 20:43

gopstop2007 писал(а): 30 Ноябрь 2025, 20:16 Вы предложили принцип такой же какой у меня сейчас, как сделать окно CheckPasswordWindow из Вашего примера всегда активным при запуске

Попробуйте пожалуйста не запутываться в наворотах.

Я предложил (*1):
1. Сделать Source-процедуру для запуска программы и в ней установить все настройки, локализацию и т.д.
2. После этого открыть отдельное (есстессно NOT MDI) окно для авторизации пользователя (*2)
3. При успешной авторизации пользователя выполнить (если есть) загрузку данных и собственно потом уже открыть фрейм.
4. Всё.

В этом случае все ниже описанные навороты по согласованию работы двух окон просто не нужны.
Из плюсов - можно менять пользоватлей, фреймы и т.д. не сохраняя текущие настройки программы.
До открытия фрейма - мы уже знаем все настройки и права доступа пользователя.

*1. Не предложил. Мы сами так 20 лет работаем во всех проектах.
*2. Авторизация - это не обязательно ввод пароля. Например у нас уже лет 5 все перешли на считывание
сканером QR кода с хешем на пропуске. Очень удобно. А ручной ввод пароля - это аварийная ситуация.

gopstop2007 писал(а): 30 Ноябрь 2025, 16:18 Открывается до открытия App Frame приложения, открытие в app frame в Embeds - Run Procedute(), BYTE, Virtual (Preority - 2250)

  CLEAR(GlobalRequest)                                     ! Clear GlobalRequest after storing locally
  CLEAR(GlobalResponse)
  SELF.AddItem(Toolbar)

kreator писал(а): 30 Ноябрь 2025, 22:10

gopstop2007 писал(а): 30 Ноябрь 2025, 16:18 Открывается до открытия App Frame приложения, открытие в app frame в Embeds - Run Procedute(), BYTE, Virtual (Preority - 2250)

Перенесите свой текст в метод Init фрейма, в начало. У нас вызов стоит после:

Код: Выделить всё

  CLEAR(GlobalRequest)                                     ! Clear GlobalRequest after storing locally
  CLEAR(GlobalResponse)
  SELF.AddItem(Toolbar)

Проблем никогда не было. В методе Run для фрейма разве есть точки вставки?