掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGrid上のすべてを印刷するには？ (ID：36355)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
OnDrawCellイベントで SenderがTStringGridかTPrinterかを判断して対象のCanvasを決め そのCanvasに描くような処理にしておくと。 var TempCanvas: TCanvas; begin if Sender is TStringGrid then TempCanvas := (Sender as TStringGrid).Canvas else if Sender is TPrinter then TempCanvas := (Sender as TPrinter ).Canvas; { TempCanvasに対して描画を行う } Printerで描くときも(必要ならば)枠線を描いた後に、Col, Row, Rectを きちんと与えてColCount * RowCount分同じイベントを直接コールすれば Printer.Canvaasに描いてくれるのでは。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.