TTMSFNCGrid - Checkboxes and showing checks

I have a TTMSFNCGrid attached to a TWebClientDataset. I have 2 columns that show a Checkbox, but they show a cross. How can I change this to show a tick for a true value?


This is unfortunately not possible right now. TTMSFNCGrid uses custom drawing for checkboxes instead of using real checkboxes. We'll investigate if we can change or use a property to control this behavior.

Is it possible to use a custom draw event to use my own checkbox images?

You could create your own cell descendant, pass it through the OnGetCellClass, and then assign the Boolean property value to the checkbox value in the OnGetCellProperties.

  TMyGridCell = class(TTMSFNCGridCell)
    procedure Draw(AGraphics: TTMSFNCGraphics; ADrawText: Boolean; ADrawBackGround: Boolean; ADrawBorder: Boolean); override;

procedure TForm2.TMSFNCGrid1GetCellClass(Sender: TObject; ACol, ARow: Integer;
  var CellClassType: TTMSFNCGridCellClass);
  CellClassType := TMyGridCell;

Hi Pieter,

Thanks for the suggestion, but I'm not sure where to start.
Any chance you could upload an example project?