Список проголосовавших за комментарий "PORTFOLIO_EX SHOW_STOPS; <br/> DESCRIPTION SHOW_STOPS;<br/> CLIENTS_LIST ALL_CLIENTS;<br/> FIRMS_LIST ALL_FIRMS;<br/> USE_CASE_SENSITIVE_CONSTANTS;<br/> <br/> PROGRAM<br/> <br/> '=====================ВВОДИМЫЕ ДАННЫЕ=============================<br/> 'КОД РЫНКА<br/> SECCLASS=«SPBFUT»<br/> 'КОД КОНТРАКТА<br/> SECCODE=«RIZ3»<br/> <br/> 'НАЗВАНИЕ МЕТКИ НА ГРАФИКЕ<br/> LABEL_NAME = «MAIN»<br/> <br/> 'ПУТЬ К ЛИНИЯМ ОТРИСОВКИ .BMP<br/> DRAW_PATH_1=«C:\Users\Dmitry A Komissarov\Desktop\DATA\LINEBLUE.bmp»<br/> DRAW_PATH_2=«C:\Users\Dmitry A Komissarov\Desktop\DATA\LINERED.bmp»<br/> ' ОТСТУП ОТ ТЕКУЩЕЙ ЦЕНЫ <br/> PRICE_KFF = 50.0<br/> '===================================================================<br/> MONTH = GET_VALUE(GET_DATETIME(),«MONTH»)&""<br/> IF (LEN(MONTH)<2)<br/> MONTH = «0»&MONTH<br/> END IF<br/> HOUR = GET_VALUE(GET_DATETIME(),«HOUR»)&""<br/> IF (LEN(HOUR)<2)<br/> HOUR = «0»&HOUR<br/> END IF<br/> MIN = GET_VALUE(GET_DATETIME(),«MIN»)&""<br/> IF (LEN(MIN)<2)<br/> MIN = «0»&MIN<br/> END IF<br/> DAY = GET_VALUE(GET_DATETIME(),«DAY»)&""<br/> IF (LEN(MIN)<2)<br/> DAY = «0»&DAY<br/> END IF<br/> DRAW_LABEL("",DRAW_PATH_1,«LEFT»,GET_PARAM(SECCLASS,SECCODE,«LAST»)+PRICE_KFF,(GET_VALUE(GET_DATETIME(),«YEAR»)&""&MONTH&DAY)+0,(HOUR&MIN&«00»)+0,0,0,255,0,«Arial»,15,"",LABEL_NAME)<br/> DRAW_LABEL("",DRAW_PATH_2,«LEFT»,GET_PARAM(SECCLASS,SECCODE,«LAST»)-PRICE_KFF,(GET_VALUE(GET_DATETIME(),«YEAR»)&MONTH&DAY)+0,(HOUR&MIN&«00»)+0,0,0,255,0,«Arial»,15,"",LABEL_NAME)<br/> FUNC DRAW_LABEL(fTEXT,fIMAGE_PATH,fALIGMENT,fYVALUE,fDATE,fTIME,fR,fG,fB,fTRANSPARENCY,fFRONT_FACE_NAME,fFRONT_HEIGHT,fHINT,fLABEL)<br/> <br/> LABEL_PARAMS=CREATE_MAP() ' СОЗДАЕМ МАССИВ, КОТОРЫЙ ЗАПОЛНИМ ДАННЫМИ ДЛЯ ОТОБРАЖЕНИЯ МЕТКИ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«TEXT»,fTEXT) ' ПОДПИСЬ К МЕТКЕ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«IMAGE_PATH»,fIMAGE_PATH) ' ЛИНК НА КАРТИНКУ ДЛЯ ОТОБРАЖЕНИЯ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«ALIGNMENT»,fALIGMENT) ' ПОЛОЖЕНИЕ НАДПИСИ НАД КАРТИНКОЙ TOP BOTTOM LEFT RIGHT'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«YVALUE»,fYVALUE) ' ПОЛОЖЕНИЕ ПО ОСИ Х, Т.Е. ОТНОСИТЕЛЬНО ЦЕНЫ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«DATE»,fDATE) ' ПОЛОЖЕНИЕ ПО ДАТЕ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«TIME»,fTIME) ' ПОЛОЖЕНИЕ ПО ВРЕМЕНИ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«R»,fR) ' КРАСНЫЙ ЦВЕТ ПОДПИСИ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«G»,fG) ' ЗЕЛЕНЫЙ ЦВЕТ ПОДПИСИ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«B»,fB) ' СИНИЙ ЦВЕТ ПОДПИСИ'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«TRANSPARENCY»,fTRANSPARENCY) ' ПРОЗРАЧНОСТЬ '<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«FRONT_FACE_NAME»,fFRONT_FACE_NAME) ' ШРИФТ, НАПРИМЕР «Arial»'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«FRONT_HEIGHT»,fFRONT_HEIGHT) ' РАЗМЕР ШРИФТА'<br/> LABEL_PARAMS=SET_VALUE(LABEL_PARAMS,«HINT»,fHINT) ' ВЫСПЛЫВАЮЩАЯ ПОДСКАЗКА'<br/> LABEL_ACTION=ADD_LABEL(fLABEL,LABEL_PARAMS) ' ДОБАВЛЯЕМ МЕТКУ, фЛЕЙБЛ — ЗАДАННАЯ МЕТКА, ЗАДАЕТСЯ НА ГРАФИКЕ ЦЕНЫ В РАЗДЕЛЕ ДОПОЛНИТЕЛЬНЫХ СВОЙСТВ'<br/> END FUNC<br/> END_PROGRAM<br/> <br/> PARAMETER COLUMN2;<br/> PARAMETER_TITLE NET POS.;<br/> PARAMETER_DESCRIPTION NET POSITION;<br/> PARAMETER_TYPE NUMERIC(10,2);<br/> END<br/> <br/> END_PORTFOLIO