Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Многострочность в заголовках колонок StringGrid

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

Многострочность в заголовках колонок StringGrid

Автор: Rick Rogers

У меня есть StringGrid, который выглядит очень красивым, за исключением заголовков колонок, где я хотел бы иметь их размер равным 1 ячейке, но с заголовком, размещенным в нескольких строках, например,

Индекс Фондовой Биржи
показывалось бы как
 
   Индекс
   Фондовой
   Биржи
было бы классно, если можно было этот заголовок размещать еще и по центру.

Рисовать сами ячейки вы можете в обработчике события OnDrawCell. Для определения ячейки (заголовок?), обрабатываемой в текущий момент, используйте параметр GridState.

Я выводил тест с помощью обычных методов рисования (которые хорошо "приживаются" в данном компоненте), с поддержкой вертикального выравнивания, полей и переноса слов. Вот сам код:


TFTVerticalAlignment = (vaTop, vaMiddle, vaBottom);

procedure DrawTextAligned(const Text: string; Canvas: TCanvas; ъ
  var Rect: TRect; Alignment: TAlignment; VerticalAlignment:
  TFTVerticalAlignment; WordWrap: Boolean);
var
  P: array[0..255] of Char;
  H: Integer;
  T: TRect;
  F: Word;
begin
  StrPCopy(P, Text);
  T := Rect;
  with Canvas, Rect do
  begin
    F := DT_CALCRECT or DT_EXPANDTABS or DT_VCENTER or
      TextAlignments[Alignment];
    if WordWrap then
      F := F or DT_WORDBREAK;
    H := DrawText(Handle, P, -1, T, F);
    H := MinInt(H, Rect.Bottom - Rect.Top);
    if VerticalAlignment = vaMiddle then
    begin
      Top := ((Bottom + Top) - H) div 2;
      Bottom := Top + H;
    end
    else if VerticalAlignment = vaBottom then
      Top := Bottom - H - 1;
    F := DT_EXPANDTABS or DT_VCENTER or TextAlignments[Alignment];
    if WordWrap then
      F := F or DT_WORDBREAK;
    DrawText(Handle, P, -1, Rect, F);
  end;
end;

Статья Многострочность в заголовках колонок StringGrid раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



:: Главная :: TStringGrid и TDrawGrid ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 02:35:19/0.033470869064331/0