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

    while columnlinesleft > 0 do begin

      println(inttostr(linesleft) + '/' + inttostr(columnlinesleft) + '/' +

       inttostr(linenum) + '/' + inttostr(columnnum));

    end; { while }

  { 具有边框的分栏报表 }

    cleartabs;

    settopofpage;

    sectionbottom := 10.5;

    home;

    setfont('times new roman',12);

    bold := true;

    italic := true;

    print('boxed columns');

    settopofpage; { set top of page to current ypos }

    bold := false;

    italic := false;

    home; { goto home position }

    cleartabs;

    setpen(clblack,pssolid,1,pmcopy);

    settab(0.5,pjcenter,0.375,0,boxlineall,0);

    settab(na,pjcenter,0.375,0,boxlineall,0);

    settab(na,pjcenter,0.375,0,boxlineall,0);

    settab(na,pjcenter,0.375,0,boxlineall,0);

    setcolumns(4,0.5); { create 4 columns with 0.5" between each }

    while columnlinesleft > 0 do begin

      if linenum = 1 then begin

        tabshade := 15;