掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
GridでChartを表示するには？ (ID:15363)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
数値配列なんかいらず、Cellsに数値を文字列で書き込んでおけば procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var h:integer; r:TRect; begin h := (Rect.Bottom-Rect.Top) div 3; r := Rect; r.Top := r.Top+h; r.Bottom := r.Bottom-h; r.Right := r.Left+StrToInt(TStringGrid(Sender).Cells[ACol,ARow]); with TStringGrid(Sender).Canvas do begin Brush.Color := clBlue; FillRect(r); end; end; こんな感じで横棒グラフができるけど。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.