TStringGrid - Header

[Letos]

Доступ к заголовку TGrid

подскажите, пожалуйста, как например, выровнять текст в заголовке таблиц StringGrid, скажем, по центру

да, я нашёл тут https://stackoverflow.com/questions/32131522/change-theader-font-size-in-fmx-tstringgrid

но мне нужно на C++, я немогу перевести, компилятор затыкается уже на типе  THeader - не знает такого.

[Dev]

Кинуть на форму GridPanelLayout, разместить выше StringGrida задать в нем количество и ширину колонок под таблицу и накидать в него Label  и выравнивать как угодно

[Letos]

мне нужно программно обратиться к Хедеру. Как это сделать?

Изменено 9 марта, 2018 пользователем Letos

[Letos]

3 часа назад, Dev сказал:

Кинуть на форму GridPanelLayout, разместить выше StringGrida задать в нем количество и ширину колонок под таблицу и накидать в него Label  и выравнивать как угодно

Например, нет у меня никокого  GridPanelLayout. Есть Form1->StringGrid1, например. ГДЕ  там Header?

 

[Akad]

По аналогии с дельфёю: Form1->StringGrid1->Cells[0][0] 
 

[krapotkin]

потому что там не Grid Header а Column Header

[Letos]

Так к хэдеру есть обращение программное?

Изменено 17 марта, 2018 пользователем Letos

[Letos]

Вот решение

void __fastcall TForm1::StayingGridApplyStyleLookup(TObject *Sender)
{
	THeader *Header;
	Header=(THeader*) (Form1->StayingGrid ->FindStyleResource("header"));

	if(Header!=NULL)
		{
		for (int i = 0; i < Header->Count; i++) {
			THeaderItem *HeaderItem;
			HeaderItem=(THeaderItem*) (Header->Items[i]);

			HeaderItem->TextSettings->HorzAlign=TTextAlign::Center;

		}

	}
}

 

[Anaprilin]

Тоже пытался на Delphi сделать заголовки по центру, ничего готового не нашёл, пока выкрутился через обработчик события OnDrawColumnHeader.

procedure TForm1.StringGrid1DrawColumnHeader(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF);
begin
  // заливка "родного" заголовка
  Canvas.Fill.Color := TAlphaColors.White;
  Canvas.FillRect(Bounds, 0, 0, [], 1);
  // настройка текста нового заголовка
  Canvas.Fill.Color := TAlphaColors.Black; // Цвет текста заголовка колонки
  Canvas.Font.Size := 12; // Размер шрифта заголовка колонки
  Canvas.Font.Style := [TFontStyle.fsBold]; // Стиль шрифта заголовка колонки
  // отрисовка текста по центру
  Canvas.FillText(Bounds, Column.Header, False, 1, [], TTextAlign.Center);
end;