Egor Zaytsev (Все сообщения пользователя)

   local  sec_code       =   'SRU0' 
 local  class_code     =   'SPBFUT' 

 local   sleep           =  _G. sleep 
 local  isRun          =   true 

 local  t_id           =   nil 

 local  SeaGreen       =   12713921    --  RGB(193, 255, 193) нежно-зеленый 
 local  RosyBrown      =   12698111    --  RGB(255, 193, 193) нежно-розовый 
 local   getParamEx      =  _G. getParamEx 
 local   GetCell         =  _G. GetCell 
 local   Highlight       =  _G. Highlight 
 local   SetCell         =  _G. SetCell 
 local  ds

 function   _G.OnParam (class, sec)
     if  t_id  and  sec  =  =  sec_code  and  class  =  =  class_code  then 
         local  last_price  =  tonumber( getParamEx (class_code,  sec_code,  'LAST' ).param_value)  or   0 
         local  lp  =   GetCell (t_id,  1 ,  0 ).value  or  last_price
         if  lp  <  last_price  then 
             Highlight (t_id,  1 ,  0 , SeaGreen,  0 ,  1000 )
         elseif  lp  >  last_price  then 
             Highlight (t_id,  1 ,  0 , RosyBrown,  0 ,  1000 )
         end 
         SetCell (t_id,  1 ,  0 , tostring(last_price), last_price)
     end 
 end 

 local   function   CreateTable ()

    t_id  =   _G.AllocTable ()

     _G.AddColumn (t_id,  0 ,  "price" ,  true , _G.QTABLE_DOUBLE_TYPE,  15 )
     _G.CreateWindow (t_id)
     _G.SetWindowPos (t_id,  90 ,  120 ,  170 ,  100 )
     _G.InsertRow (t_id,  1 )
     _G.InsertRow (t_id,  2 )
 end 

 local   function   Animate ()
     local  animation_symbol  =   "|" 
     local  curSymbol  =   0 
     local  maxSymbols  =   20 
     return   function ()
        curSymbol  =  curSymbol  +   1 
        curSymbol  =  curSymbol > maxSymbols  and   1   or  curSymbol
         return   string.rep (animation_symbol,curSymbol)
     end 
 end 

 function   event_callback (_, msg)
     if  (msg  =  =  _G.QTABLE_CLOSE)  then 
        isRun  =   false 
     end 
 end 

 function   _G.OnInit ()
    CreateTable()
     _G.SetTableNotificationCallback (t_id, event_callback)
 end 

 function   _G.main ()
    ds    =   _G.CreateDataSource (class_code, sec_code,  1 )
    isRun  =  ds ~ =   nil 
     if  ds  then 
        ds: SetEmptyCallback ()
     end 
     local  GetNextAnimationSymbol  =  Animate()
     while  isRun  and  ds  do 
         SetCell (t_id,  2 ,  0 , GetNextAnimationSymbol(),  0 )
         sleep ( 60 )
     end 
 end 

 function   _G.OnStop ()
    isRun  =   false 
    ds: Close ()
    ds  =   nil 
     if  t_id  and   not   _G.IsWindowClosed (t_id)  then 
         _G.DestroyTable (t_id)
     end 
 end