掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListViewに棒グラフの線をリアルタイムに表示するには？ (ID:5506)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ListView2を配置してColumnを4列にしてください。 4列目の数値によりグラフが表示されます。 procedure TForm1.ListView2AdvancedCustomDrawSubItem( Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); var R:TRect; E:Extended; BrushWidth:integer; begin if SubItem = 3 then begin R := Item.DisplayRect(drBounds); R.Left := R.Left + Listview2.columns[0].Width + Listview2.columns[1].Width +Listview2.columns[2].Width; R.Right := R.Left + Listview2.columns[3].Width; if Item.SubItems[1] <> '' then begin DefaultDraw := False; //値を取得 E := StrToFloatDef( Item.SubItems[2],-1 ); //塗り潰す幅を計算 BrushWidth := Ceil( (E * 100) * (R.Right - R.Left) / 1000 ); R.Right := R.Left + BrushWidth; //塗りつぶす Sender.Canvas.Brush.Color := clRed; Sender.Canvas.FillRect(R); end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.