INPUT:N(12,0,50,1);
X1:=5 ; X2:=155; X3:=305; X4:=455; X5:=605; X6:=1000; Y1:=0; Y2:=Y1+N; Y3:=Y2+N; Y4:=Y3+N; Y5:=Y4+N; Y6:=Y5+N; Y7:=Y6+N; Y8:=Y7+N; Y9:=Y8+N; Y10:=Y9+N;
IF STKINDI('1A0001','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(30,0,'上证指数:' +NUMTOSTRN(STKINDI('1A0001','涨幅引用.A')*100,2)+'%'),COLOR7711EE;END;
IF STKINDI('1A0001','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(30,0,'上证指数:' +NUMTOSTRN(STKINDI('1A0001','涨幅引用.A')*100,2)+'%'),COLORB48C33;END;
{IF STKINDI('993124','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(78,0,'深证:' +NUMTOSTRN(STKINDI('993124','涨幅引用.A')*100,2)+'%'),COLOR7711EE;END;
IF STKINDI('993124','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(78,0,'深证:' +NUMTOSTRN(STKINDI('993124','涨幅引用.A')*100,2)+'%'),COLORB48C33;END;}
IF STKINDI('991036','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y2,'991036 券 商:' +NUMTOSTRN(STKINDI('991036','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991036','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y2,'991036 券 商:' +NUMTOSTRN(STKINDI('991036','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991017','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y3,'991017 银 行 类:' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991017','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y3,'991017 银 行 类:' +NUMTOSTRN(STKINDI('991017','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991028','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y4,'991028 医 药:' +NUMTOSTRN(STKINDI('991028','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991028','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y4,'991028 医 药:' +NUMTOSTRN(STKINDI('991028','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991007','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房 地 产:' +NUMTOSTRN(STKINDI('991007','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991007','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房 地 产:' +NUMTOSTRN(STKINDI('991007','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991024','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y6,'991024 建 材:' +NUMTOSTRN(STKINDI('991024','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991024','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y6,'991024 建 材:' +NUMTOSTRN(STKINDI('991024','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991021','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y7,'991021 农林牧渔:' +NUMTOSTRN(STKINDI('991021','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991021','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y7,'991021 农林牧渔:' +NUMTOSTRN(STKINDI('991021','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993128','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 农业龙头:' +NUMTOSTRN(STKINDI('993128','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993128','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 农业龙头:' +NUMTOSTRN(STKINDI('993128','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993795','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y3,'993795 中 字 头:' +NUMTOSTRN(STKINDI('993795','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993795','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y3,'993795 中 字 头:' +NUMTOSTRN(STKINDI('993795','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991018','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y1,'991018 旅游酒店:' +NUMTOSTRN(STKINDI('991018','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991018','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y1,'991018 旅游酒店:' +NUMTOSTRN(STKINDI('991018','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991023','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y2,'991023 商业连锁:' +NUMTOSTRN(STKINDI('991023','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991023','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y2,'991023 商业连锁:' +NUMTOSTRN(STKINDI('991023','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991020','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y3,'991020 酿酒食品:' +NUMTOSTRN(STKINDI('991020','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991020','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y3,'991020 酿酒食品:' +NUMTOSTRN(STKINDI('991020','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991008','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y4,'991008 纺织服装:' +NUMTOSTRN(STKINDI('991008','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991008','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y4,'991008 纺织服装:' +NUMTOSTRN(STKINDI('991008','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991006','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y5,'991006 电子信息:' +NUMTOSTRN(STKINDI('991006','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991006','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y5,'991006 电子信息:' +NUMTOSTRN(STKINDI('991006','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991004','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y6,'991004 计 算 机:' +NUMTOSTRN(STKINDI('991004','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991004','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y6,'991004 计 算 机:' +NUMTOSTRN(STKINDI('991004','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991026','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y7,'991026 汽 车 类:' +NUMTOSTRN(STKINDI('991026','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991026','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y7,'991026 汽 车 类:' +NUMTOSTRN(STKINDI('991026','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991014','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y8,'991014 电 器:' +NUMTOSTRN(STKINDI('991014','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991014','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y8,'991014 电 器:' +NUMTOSTRN(STKINDI('991014','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993745','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y1,'993745 稀缺zi源:' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993745','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y1,'993745 稀缺zi源:' +NUMTOSTRN(STKINDI('993745','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991019','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y2,'991019 煤炭石油:' +NUMTOSTRN(STKINDI('991019','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991019','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y2,'991019 煤炭石油:' +NUMTOSTRN(STKINDI('991019','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991009','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y3,'991009 钢 铁:' +NUMTOSTRN(STKINDI('991009','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991009','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y3,'991009 钢 铁:' +NUMTOSTRN(STKINDI('991009','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991034','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y4,'991034 有色金属:' +NUMTOSTRN(STKINDI('991034','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991034','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y4,'991034 有色金属:' +NUMTOSTRN(STKINDI('991034','涨幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991027','涨幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 机 械:' +NUMTOSTRN(STKINDI('991027','涨幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991027','涨幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 机 |