I’ve searched this question and found this.
so, I wrote a OnApplyStyleLookup event handler like this:
procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject);
var
Header: THeader;
I: Integer;
begin
Header := THeader((Sender as TStringGrid).FindStyleResource(‘header’));
if Assigned(Header) then
begin
for I := 0 to Header.Count – 1 do
with Header.Items[I].Font do
begin
Header.Items[I].TextSettings.HorzAlign := TTextAlign.Center;
Size := 100;
Style := [TFontStyle.fsBold];
// SetSettings(‘Arial’, 100, [TFontStyle.fsBold]);
end;
Header.Height := 48;
end;
// TStringGrid(Sender).Realign;
end;
text align is changed, but font size and style are not applied.
I’m using XE7.
