FMXのTStringGridのDrawColumnCell (ID:151075)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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 else obj:=TStyleManager.ActiveStyle(Self); if LowerCase(Value.AsString)='true' then stl:=TStyleObject(obj.FindStyleResource('checkcellstyle.checkboxchecked')) else stl:=TStyleObject(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; Delphi XE10.2 Tokyo Pro では動いているように思いますが動かなかったらすいません。