Delphi 7 中使用RAVE报表（四）[9]

    sectionbottom := 10.75; { temporarily move the section bottom down }

    printfooter('page ' + inttostr(currentpage),pjleft);

    printfooter('date 01/20/95',pjright);

    sectionbottom := 10.5; { reset section bottom }

    originx := 0.0;

    originy := 0.5;

    setfont('arial',10);

  { 半圆　弧线}

    setpen(clblack,pssolid,-2,pmcopy); { set pen to black 2/100ths" wide }

    ypos := 0.95;

    printcenter('arc() and chord()',2.125);

    arc(1.125,1.0,3.125,3.0,3.125,2.0,0.0,0.0);

    setbrush(clblack,bsclear,nil);

    chord(1.125,1.0,3.125,3.0,0.0,0.8,3.125,2.25);

  { 饼图 }

    ypos := 0.95;

    printcenter('pie()',4.25);

    setpen(clblack,pssolid,-2,pmcopy); { set pen to black 2/100ths" wide }

    setbrush(clblack,bshorizontal,nil);

    pie(3.25,1.0,5.25,3.0,5.25,2.0,0.0,0.0);

    setbrush(clblack,bsvertical,nil);

    pie(3.25,1.0,5.25,3.0,0.0,0.0,3.25,7.0);

    setbrush(clblack,bsbdiagonal,nil);

    pie(3.25,1.0,5.25,3.0,3.25,7.0,5.25,2.0);

   { bitmap 图片}

    ypos := 3.4;

    printcenter('paintbitmaprect()',6.375);