Класс PopUP Hint окон с примером

[Игорь Столяров]

Кстати, да. Я заметил, что сейчас пошла мода на звуковое информирование.
Например в том же OZON'е когда заказ получаешь - его данные "проговаривают" громко.
Видимо "чтецы" с успешно сданным ЕГЭ уже вышли на работу !

[Admin]

Что-то мне кажется, через день работы этот плюс 1 начнет во сне приходить.

Без проблем могу поменять на любой сигнал. Я спрашивал. Все устраивает.

[finsoftrz]

Раньше beep использовали с разной длительностью/частотой. Сейчас модно голосовые сообщения. Это делает всех вокруг счастливыми, так как думают, что у них тоже используется ИИ, и они идут в ногу с временем.
Мне тут очки массажеры подарили. Прикольно так, надеваешь, они тебя приветствуют приятным женским голосом, потом начинают надуваться и спускаться минут 15, а в конце спасибо говорят, что выбрал путь заботы о себе.

[Игорь Столяров]

Всем привет !

На основании штатного примера класса, сделал процедуру для показа быстрого сообщения в любом месте программы.
Всё работает, код простой, может быть будет кому-нибудь полезно для теста класса:

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

HintMess    Procedure(String sHintText,Long lBackgroundColor = Color:Orange,Long lFontColor = Color:White)
Hint        cHint
HintParams  Like(MsgOptions)
bFlag       Byte(False)
Action      Long,Auto
NotifyPar   Long,Auto
MyWin       Window,AT(,,1,1).  

  Code
  Open(MyWin)
  MyWin{Prop:Hide} = True  
  
  ! Запомним HWMD активного окна
  Hint.HwndActiveWindow = 0{Prop:Handle}
  
  Accept
    Case Event()
    Of Event:Notify
       If Notification(Action,,NotifyPar)
          If Action = NOTIFY:SetFocusHint
             hint.Set_Active_Windows()             
             If bFlag then Post(Event:CloseWindow) else bFlag = True.
          end
       end
       
    Of Event:OpenWindow   
       
       Clear(HintParams)
       HintParams.MainThead        = Thread()
       HintParams.AbsolutePosition = WND:CENTER
       HintParams.CloseTimeOut     = 3
       HintParams.Cascade          = 1       
       HintParams.Round            = 30
       HintParams.Fade             = 1       
       HintParams.BackgroundColor  = lBackgroundColor
       HintParams.FontColor        = lFontColor
       HintParams.FontSize         = 20
       HintParams.FontStyle        = 400
       HintParams.FontName         = 'Arial Narrow'
       HintParams.CloseImage       = 'none'       
       Hint.Show(Clip(sHintText),Address(HintParams))       
       
    Of Event:CloseWindow
       Hint.CloseAll()
    end
  end

И позвольте высказать моё сугубо субъективное мнение: это вообще не то, что я хотел бы видеть в своих программах.
Ни по размещению, ни по оформлению, ни по содержанию окна с быстрым сообщением ...