掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ペイントボックスでうまく表示するには？ (ID:19227)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは、 以下のようなプログラムを作成してみました。 スクロールボックスの中にペイントボックスをいれ、 BmpData にビットマップデータを入れています。 このビットマップデータをスクロールボックスの中で マウスを使って移動させようとしているのですが、 移動中にビットマップがパッコンパッコン、してます。 スムーズに移動するにはどうすればよいのでしょうか? procedure TFormBMPDebugViewer.PaintBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Moving := True; MovePoint := Point(X, Y); end; procedure TFormBMPDebugViewer.PaintBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Moving then begin PaintBox.Left := PaintBox.Left + (X - MovePoint.X); PaintBox.Top := PaintBox.Top + (Y - MovePoint.Y); end; end; procedure TFormBMPDebugViewer.PaintBoxMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Moving := False; end; procedure TFormBMPDebugViewer.PaintBoxPaint(Sender: TObject); begin PaintBox.Canvas.StretchDraw( Rect(0, 0, PaintBox.Width, PaintBox.Height), BmpData); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.