De OnDrawColumnCell werkt toch nog gewoon??
Delphi Code:
procedure TForm11.StringGrid1DrawColumnCell(Sender: TObject;
const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
const Row: Integer; const Value: TValue; const State: TGridDrawStates);
begin
if (Row = 2) and (Column.Index = 2) then
begin
TStringGrid(Sender).DefaultDrawing := false; // <-- wel nodig
Canvas.Fill.Color := TAlphaColors.Red;
Canvas.FillText(Bounds, (Value.AsString), false, 100, [], TTextAlign.taLeading, TTextAlign.taCenter);
end;
end;
Bookmarks