原碼:--------------------------------------------------------------------------------
h1:=hhv(h,0);
hh:=h1[datacount],linethick0;
bh:barslast(h=hh),linethick0;
ct:0;
m:=c*0;
for i=datacount-bh[datacount] to datacount do begin
ct:=mod(ct+1,200);
if ct=30 then m[i]:=30;
if ct=55 then m[i]:=55;
if ct=120 then m[i]:=120;
if ct=0 then m[i]:=200;
end;
vertline(bh=0),colorred;
vertline(m=200), colorwhite;
drawnumber(m=200,c,200,0),colorwhite,align5;
vertline(m=30),coloryellow;
drawnumber(m=30,c,30,0),coloryellow,align5;
vertline(m=55),colormagenta;
drawnumber(m=55,c,55,0),colormagenta,align5;
vertline(m=120),colormagenta;
drawnumber(m=120,c,120,0),colormagenta,align5;
cgjj 版大,
如何 shift 才能辦到往後再劃一組
試了多次shift , 對不到位子??
謝謝!! 
|