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

   local  run, id  =   true 
 function   OnStop ()
  run  =   nil 
   DestroyTable (id)
   return   100 
 end 

 function   main ()
  id  =   AllocTable ()
   AddColumn (id,  1 ,  "" ,  true , QTABLE_STRING_TYPE,  20 )
   CreateWindow (id)
   SetTableNotificationCallback (id,  function  (id, event)
     if  event  =  =  QTABLE_CLOSE  then 
      run  =   false 
     elseif  event  =  =  QTABLE_VKEY  then 
       for  row  =   1 ,  2   do 
          SetColor (id, row, QTABLE_NO_INDEX,  0x0000FF , QTABLE_DEFAULT_COLOR,  0x0000FF , QTABLE_DEFAULT_COLOR)
       end 
     end 
   end )
   for  row  =   1 ,  2   do 
     InsertRow (id, row)
     SetCell (id, row,  1 , tostring(row))
   end 
   while  run  do   sleep ( 500 )  end 
 end