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)

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

#!----------------------------------------------------------------
#TEMPLATE  (ActiveBox, '2002')
#! =============================================
#CONTROL (ActiveBox, 'Выделение активного control')
#! =============================================
#DISPLAY ('')
#DISPLAY ('Выделяет активный control прямоугольником.')
#DISPLAY ('')
  CONTROLS
    BOX,AT(3,3,5,5),USE(?ActiveBox),ROUND,LINEWIDTH(1),HIDE
  END
#!
#AT (%BeforeAccept)
  ?ActiveBox{prop:HIDE} = ''
  ?ActiveBox{prop:ROUND} = 1
 ! ?ActiveBox{prop:Color} = COLOR:InActiveCaption
  ?ActiveBox{prop:LINEWIDTH} = 2
#ENDAT
#! 
#! --- 'CASE EVENT() structure, before generated code'
#AT (%EventCaseBeforeGenerated)
  of event:Selected
    contr# = selected()
    ?ActiveBox{prop:XPos}  = contr#{prop:XPos}-2
    ?ActiveBox{prop:YPos}  = contr#{prop:YPos}-2
    ?ActiveBox{prop:Width} = contr#{prop:Width}+4
    ?ActiveBox{prop:Height}= contr#{prop:Height}+4
#ENDAT