サインの画面表示

 /----- マクロ本体(Dnoによるループ) --------------

  if 条件 then writeUnderMark(Dno);


/------------------- ユーザー関数 -----------------------
/種別毎のﾏｰｸ
function writeUnderMark(Dno);
var x,y;
begin
  x:=GetX(Dno);
  y:=ChartH*0.75;
  fillrectD(red,1,x-Dw,y-2,x+Dw,y+2);
end;