掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Paintboxで一度消してから再度描画したい (ID:37332)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TCanvasにはClearとかいうメソッドがないので、背景色と同じ色で描いて見えなくするとか、 領域を全部背景色で塗りつぶして消したことにする、というのがよく使われる手ですね。 procedure TForm1.PaintBox1Paint(Sender: TObject); var RectSample: TRect; begin //OnPaintで色々描く前にこれを入れておく// with RectSample do begin Left:=1; Top:=1; Right:=PaintBox1.Width; Bottom:=PaintBox1.Height end; with PaintBox1.Canvas do begin Brush.Color:=clButtonFace; //ここは背景色に合わせる FillRect(RectSample) end; end; 何か描く前にこうしておけば、新規に描き始める状態になります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.