掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
プログレスバーの枠だけ使う (ID:38964)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
わくだけ利用するなら TProgressBar = class(ComCtrls.TProgressBar) private procedure WMPAINT(var Message: TWMPAINT);message WM_PAINT; public end; procedure TProgressBar.WMPAINT(var Message: TWMPAINT); var ACanvas: TControlCanvas; Pos: Extended; begin inherited; ACanvas := TControlCanvas.Create; ACanvas.Control := Self; ACanvas.Brush.Color := clWhite; ACanvas.FillRect(Rect(2,2,Width-3,Height-2)); ACanvas.Brush.Color := clRed; Pos := (Width - 4) / (Max - Min) * Position; ACanvas.FillRect(Rect(2,2,Trunc(Pos),Height-2)); ACanvas.Free; end; これでいいんじゃないか テーマは使用していないけど
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.