How can I change the font size of the header of a Stringgrid in Delphi Firemonkey XE7?


I created a Stringgrid in Delphi Firemonkey XE7 for an application and filled it with data from my MySQL database.
To enlarge the font size I used this code:

procedure TFormSearchRecipient.sgRecipientDrawColumnCell(Sender: TObject;
const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var b : TRectF; border: integer;
//following leaves in the end a border so that the marked item can be seen
b := bounds;
border:= 2;
b.Top := b.Top + border;
b.Left := b.Left – border;
b.Height := b.Height – 2 * border;
b.Width := b.Width – 2 * border;

//colors the background white so that the data cannot be seen anymore
Canvas.Fill.Color := TAlphaColorRec.White;
Canvas.FillRect(b, 0, 0, [], 1);
//change the canvas text options
Canvas.Fill.Color := TAlphaColorRec.Black;
Canvas.Font.Size := 25;
//write the content
Canvas.FillText(Bounds, Value.AsString , False, 1, [] , TTextAlign.Leading);

I hope some of you can understand what this code does…
This picture might help.

My question is now: how can I set the header and how can I enlarge the font size of the header or – if that is not possible – how can I disabled, delete or hide the header?

Thanks in advance!

Greetings Lea

Comments are closed.