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;
begin
//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);
end;
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
