掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ちらつきをなくす方法 (ID：25829)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
最初に示されたコードを試してみましたが、ちらつきません。 DoubleBuffered := True;をコメントアウトするとちらつきが発生しましたが。 環境はどうなっていますか？ 私が試したのはWindowsXP Pro SP2, Delphi7Proです。 以下のようなコードはどうでしょう。 procedure TForm1.PaintBoxPaint(Sender: TObject); var //追加 ps: TPaintStruct; //追加 begin BeginPaint(Handle, ps); //追加 Bmp.Width := PaintBox.Width; Bmp.Height := PaintBox.Height; Bmp.Canvas.Brush.Color := clBlack; Bmp.Canvas.CopyMode := cmBlackness ; Bmp.Canvas.FillRect(Rect(0, 0, Bmp.Width, Bmp.Height)); Bmp.Canvas.Pen.Color := clWhite; Bmp.Canvas.MoveTo(100, 100); Bmp.Canvas.LineTo(200, 200); Paintbox.Canvas.StretchDraw(Rect(0, 0, PaintBox.Width, PaintBox.Height), Bmp); EndPaint(Handle, ps); //追加 end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.