forum.clarionlife.net

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

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

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

  Honest::FastMess(3,'Не удалось получить токен доступа !')

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

  Honest::FastMess(4,'Выбранные товары добавлены в корзину',1)