Форум программистов, компьютерный форум, киберфорум
Наши страницы
ILNAR_93
Войти
Регистрация
Восстановить пароль
Оценить эту запись

Firemonkey Пример изменения размера текста и высоты header (шапки, заголовка) TStringGrid

Запись от ILNAR_93 размещена 15.04.2014 в 08:48
Обновил(-а) ILNAR_93 15.04.2014 в 09:10

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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).RealignContent;
end;
Размещено в Без категории
Просмотров 1060 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru