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

        println(#9'll'#9'cll'#9'l#'#9'c#'); { 打印标题栏 }

      end else begin

        tabshade := 0;

        println(#9 + inttostr(linesleft) + #9 + inttostr(columnlinesleft) +

         #9 + inttostr(linenum) + #9 + inttostr(columnnum));

      end; { else }

    end; { while }

    setcolumns(1,0);

  { 在指定位置绘出文本 }

    newpage;

    originx := 0.0; { set origin to normal }

    originy := 0.0;

    gotoxy(1.0,1.5);

    print('text @ 1.0,1.5');

    gotoxy(6.0,1.5);

    println('text @ 6.0,1.5');

    gotoxy(2.0,2.0);

    println('text @ 2.0,2.0');

    gotoxy(3.0,2.5);

    println('text @ 3.0,2.5');

  {*** 图形　图片***}

    newpage;

    resetsection;

    setfont('arial',24);

    underline := true;

    home;

    printcenter('graphics page demo',pagewidth / 2);

    setfont('times new roman',8);