掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ちらつきをなくす方法 (ID：25826)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記のようにフォームにペイントボックスを貼り付けて作ってみましたが、 フォームのリサイズでちらつきがでてきます。 過去ログを見ると Form1.DoubleBuffered := True; をすれば直ると書いていたのですが、なおりません。 どうすればよいのでしょうか？ procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered := True; Bmp := TBitmap.Create; end; procedure TForm1.FormDestroy(Sender: TObject); begin Bmp.Free; end; procedure TForm1.PaintBoxPaint(Sender: TObject); begin 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); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.