名前
題名
▼ おかぽんさん > ▼ Saraさん > > マスターではありませんが・・・ > > procedure TCustomplPrev.BeginDoc; > > FPrintFromPage := 1; //印刷開始頁も1 > //以下の一行追加 > if (FCanvas <> nil) and (FCanvas is TMetafileCanvas) then FCanvas.Free; > CreateMetaCanvas(True); //メタキャンバスの作成 > ScaleInitialize(FCanvas, False); //キャンバスのスケーリング > > とりあえず、これでメモリーリークなくなります。 > > ProcName を使ったときと使わないときの ShowModalのタイミングでしょうかね。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link