|
j100:=b100-s100; j150:=b150-s150; IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(320,5,' ■总成交金额(万元):'+NUMTOSTRN(DYNAINFO(10)/10000,2)),LINETHICK4,COLORccffcc;end; IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(30,550,'■■■买入金额:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end; IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(250,550,' ■■■卖出金额:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;end; IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(30,600,' 5 万大单买入:' +NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end; IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(250,600,' 5 万大单卖出:'+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;end; IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(30,650,' 10 万大单买入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end; IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(250,650,' 10 万大单卖出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;end; IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(30,700,' 30 万大单买入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end; IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(250,700,' 30 万大单卖出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;end; IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(30,750,' 50 万大单买入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end; IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(250,750,' 50 万大单卖出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;end; IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(30,800,' 70 万大单买入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end; IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(250,800,' 70 万大单卖出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;end; IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(30,850,'100 万大单买入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end; IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(250,850,' 100 万大单卖出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;end; IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(30,900,'150 万大单买入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
(阅读次数:)
共6页: 上一页 [1] 2 [3] [4] [5] [6] 下一页
|