掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FMXのTStringGridのDrawColumnCell (ID:151077)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
度々すいません。ミスがありました。 uses FMX.Styles,FMX.Styles.Objects; procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates); var obj:TFMXObject; stl:TStyleObject; begin if Column is TCheckColumn then begin //以下は何も描画しないみたいです //TCheckColumn(Column).DefaultDrawCell( // Canvas,Bounds,Row,Value,State //); if Assigned(Self.StyleBook) then obj:=Self.StyleBook.Style //←ココミスしていました else obj:=TStyleManager.ActiveStyle(Self); if LowerCase(Value.AsString)='true' then stl:=TStyleObject(TStyleBook(obj).FindStyleResource('checkcellstyle.checkboxchecked')) else stl:=TStyleObject(TStyleBook(obj).FindStyleResource('checkcellstyle.checkboxunchecked')); stl.DrawToCanvas(Canvas,Bounds,1); end else if Column.Name='AutoNo' then Column.DefaultDrawCell( Canvas,Bounds,Row,Row+1,State ); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.