Delphi/Rave Report/はじめてみよう「4」

2005-06-17

Rave レポートを　ゼロからはじめてみよう[4]

もしかして　文字化けしないかもと　淡い期待を寄せて
公式サイト公言　RTF対応というサンプルを試してみた

procedure TForm1.RvSystem1Print(Sender: TObject);
var MemoBuf: TMemoBufEx;
begin
With Sender as TBaseReport do begin
    MemoBuf := TMemoBufEx.Create;
    MemoBuf.BaseReport := Sender as TBaseReport;
    try
      MemoBuf.RichEdit := RichEdit1;
      MemoBuf.PrintStart := 1.0;
      MemoBuf.PrintEnd := 7.0;
      While not MemoBuf.Empty do begin
        MemoBuf.PrintHeight(SectionBottom - LineTop,false);
        If not MemoBuf.Empty then begin
          NewPage;
        end; { if }
      end; { while }
    finally
      MemoBuf.Free;
    end; { tryf }
end; { with }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RvSystem1.Execute
end;

実行画像サンプル

結論

　文字化け万歳
　重なり　万歳
　フォント不適応万歳

ふふふ　文字の重なりならともかく、フォントくらい再現

してほしいものだ　

ふふふ　このレベルでは　PDF対応なんて　夢だな・・・

RTF出力がいるときは、使えないな・・・・

後日解読用　リンク
C# .NET を使用して RichTextBox の内容を印刷する方法
RichEditを印刷プレビュー1
RichEditを印刷プレビュー2

どうやって、RaveにTRichEditの親を持たせるかが問題だな・・・
うーん。。。いい案がないので隠しフォーム作ってその上にRichEdit載せるかな・・・
表示させるのには、成功したけど
Expandとtruncateにも対応させるしかないなぁ・・・

ダミーつくってみよう♪