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

  Settings  =  {
    Name  =   'Example4' ,
    Mult  =   1 ,
    Identifier  =   'TESTCHART' 
}

ChartID  =   0 
 function   Init ()
     -- ChartID = 0 -- идентификатор метки 
    plDate  =   ''   -- дата метки 
    plTime  =   ''   -- время метки 
    Data  =   0   -- данные для графика 
     PrintDbgStr ( '[QLUA]: DelAllLabels '   ..  tostring( DelAllLabels (Settings.Identifier)))
     PrintDbgStr ( '[QLUA]: Init' )
    testmodify  =   false 
     return   1 
 end 

 function   OnCalculate (index)
     -- получение информации об инструменте 
     local  t  =   getDataSourceInfo ()
    SecCode  =  t.sec_code
    ClassCode  =  t.class_code

     -- Дата и время для метки 
    plDate  =   string.format ( '%4d%02d%02d' , T(index).year, T(index).month, T(index).day)
    plTime  =   string.format ( '%02d%02d%02d' , T(index).hour, T(index).min, T(index).sec)

    Data  =   getNumberOf ( 'all_trades' )  -- данные для метки 

     -- если ID метки не найден, то рисуем новую. Иначе меняем старую 
     if  index  =  =   Size ()  then 
         if  ChartID  =  =   0   then 
            ChartID  = 
                PlotLabel(
                C(index),
                plDate,
                plTime,
                'text  ' .. Data .. '   ' .. SecCode,
                Data .. '   ' .. SecCode,
                Settings.Identifier,
                ' green'
            )
             PrintDbgStr ( '[QLUA]: ChartID =0, new Label, new ChartID= '   ..  ChartID)
         else 
            testmodify  = 
                ModifyLabel(
                C(index),
                plDate,
                plTime,
                'text  ' .. Data .. '   ' .. SecCode,
                Data .. '   ' .. SecCode,
                Settings.Identifier,
                ChartID,
                ' green'
            )
             PrintDbgStr ( '[QLUA]: ChartID ='   ..  ChartID  ..   ' modified '   ..  tostring(testmodify))
         end 
     end 

     return  index
 end 

 function   PlotLabel (fPRICE, fDATE, fTIME, fTEXT, fHINT, fCHARTTAG, fCOLOR)
     local  r, g, b  =   255 ,  255 ,  255 

     if  fCOLOR  =  =   'green'   then 
        r  =   0 
        g  =   255 
        b  =   0 
     elseif  fCOLOR  =  =   'red'   then 
        r  =   255 
        g  =   0 
        b  =   0 
     end 

     local  label_params  =  {
        TEXT  =  tostring(fTEXT),
        IMAGE_PATH =   "" ,
        ALIGNMENT  =   'LEFT' ,
        YVALUE  =  fPRICE,
        DATE  =  fDATE,
        TIME  =  fTIME,
        R  =  r,
        G  =  g,
        B  =  b,
        TRANSPARENCY  =   0 ,
        TRANSPARENT_BACKGROUND  =   1 ,
        FONT_FACE_NAME  =   'Lucida Console' ,
        FONT_HEIGHT  =   10 ,
        HINT  =  tostring(fHINT)
    }

     return   AddLabel (fCHARTTAG, label_params)  or   -  1 
 end 

 function   ModifyLabel (fPRICE, fDATE, fTIME, fTEXT, fHINT, fCHARTTAG, fCHARTID, fCOLOR)
     local  r, g, b  =   255 ,  255 ,  255 

     if  fCOLOR  =  =   'green'   then 
        r  =   0 
        g  =   255 
        b  =   0 
     elseif  fCOLOR  =  =   'red'   then 
        r  =   255 
        g  =   0 
        b  =   0 
     end 

     local  label_params  =  {
        TEXT  =  tostring(fTEXT),
        IMAGE_PATH =   "" ,
        ALIGNMENT  =   'LEFT' ,
        YVALUE  =  fPRICE,
        DATE  =  fDATE,
        TIME  =  fTIME,
        R  =  r,
        G  =  g,
        B  =  b,
        TRANSPARENCY  =   0 ,
        TRANSPARENT_BACKGROUND  =   1 ,
        FONT_FACE_NAME  =   'Lucida Console' ,
        FONT_HEIGHT  =   10 ,
        HINT  =  tostring(fHINT)
    }
     return   SetLabelParams (fCHARTTAG, fCHARTID, label_params)
 end 

 function   OnDestroy ()
     DelAllLabels (Settings.Identifier)
 end