{引用涨幅3}
A:DYNAINFO(14);{条形伸缩}
DRAWTEXTABS(2,15,'上证 ' +NUMTOSTRN(STKINDI('1a0001','引用涨幅3.A')*100,2)+'%'),COLORwhite;
DRAWTEXTABS(2,45,'深证 ' +NUMTOSTRN(STKINDI('399001','引用涨幅3.A')*100,2)+'%'),COLORwhite;
DRAWTEXTABS(2,75,'个股 ' +NUMTOSTRN(("引用涨幅3.a"*100),2 )+'%'),COLORwhite;
DRAWTEXTABS(180,86,'0%'),COLORwhite;
DRAWTEXTABS(280,86,'5%'),COLORwhite;
DRAWTEXTABS(380,86,'10%'),COLORwhite;
DRAWRECTABS(180,85 ,180+200 ,86 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;
上证:=STKINDI('1a0001','引用涨幅3.A')*100*20;
深证:=STKINDI('399001','引用涨幅3.A')*100*20;
个股:="引用涨幅3.a"*100*20;
IF 上证>=0 THEN BEGIN DRAWRECTABS(180,15 ,180+上证 ,25 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 上证<0 THEN BEGIN DRAWRECTABS(180,15 ,180-上证 ,25 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
IF 深证>=0 THEN BEGIN DRAWRECTABS(180,45 ,180+深证 ,55 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 深证<0 THEN BEGIN DRAWRECTABS(180,45 ,180-深证 ,55 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
IF 个股>=0 THEN BEGIN DRAWRECTABS(180,75 ,180+个股 ,85 ,rgb(255,0,0 )),LAYER6,coloraaaaaa;end;
IF 个股<0 THEN BEGIN DRAWRECTABS(180,75 ,180-个股 ,85 ,rgb(0,255,0 )),LAYER6,coloraaaaaa;end;
DRAWTEXTABS(20,110,STKLABEL),LINETHICK6,Colorffff00;
DRAWTEXTABS(140,110,STKNAME),LINETHICK6,Color00ffff;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
