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;