Изменить размер текста в Firemonkey StringGrid
Как изменить размер текста в заголовке строки?
2 ответа
Решение
Вы могли бы написать OnApplyStyleLookup
Обработчик события похож на этот:
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
Size := 32;
Style := [TFontStyle.fsBold];
end;
Header.Height := 48;
end;
TStringGrid(Sender).Realign;
end;
Как изменить размер шрифта в StringGrid в Rad Studio XE3 - FM2 Firemonkey 2, а не firemonkey 1