Объединение ячеек в шапке таблицы TStringGrid

Запись от Arigato размещена 21.06.2016 в 09:33

Показов 18201 Комментарии 11

Столкнулся с необходимостью объединить ячейки в заголовке таблицы TStringGrid. Загуглив понял, что штатными средствами объединять нельзя. В итоге было найдено самое простое решение проблемы в лоб. Идея заключается в том, что мы будем вместо одного StringGrid использовать два: один для шапки, другой для самой таблицы. Вот что у нас должно получиться:

Нажмите на изображение для увеличения
Название: StringGrid.png
Просмотров: 4072
Размер: 10.4 Кб
ID: 3903

Краткая инструкция:

1. Размещаем на форме StringGrid1 для шапки и настраиваем его свойства:
ColCount - количество ячеек в шапке (в нашем примере 4);
RowCount - количество строк, ставим 2;
FixedRows - количество заголовочных строк, ставим 1;
FixedCols - количество заголовочных столбцов, ставим 0;
ScrollBars - отключаем полосы прокрутки, ставим ssNone;
Enabled - ставим False;
Ctrl3D - я поставлю False, чтобы получить простую таблицу, без псевдо-3D;
Height - высота таблицы, подбираем так, чтобы была видна только одна строка шапки, вторая строка должна оказаться невидимой.

2. Размещаем на форме StringGrid2 для основной таблицы и настраиваем свойства:
ColCount - количество столбцов (в примере 8);
RowCount - количество строк в таблице, не считая заголовочную (допустим, 10);
FixedRows - ставим 1;
FixedCols - ставим 0;
Ctrl3D - тоже самое, что и для заголовочной таблицы (в нашем случае False).

3. Выставляем ширину столбцов, обе таблицы размещаем на форме так, чтобы шапка оказалась над основной таблицей, подгоняем все размеры.

4. Для StringGrid2 с основной таблицей меняем свойства:
FixedRows - ставим 0;
FixedCols - количество заголовочных столбцов (поставим 1, но можно и 0).
Дело в том, что только при наличии заголовочной строки в редакторе формы мышкой можно настраивать ширину отдельных столбцов, поэтому мы сначала добавили такую строку, настроили размеры колонок, а теперь убираем ее.

5. Заполняем шапку данными, для этого на обработчик события OnShow формы вписываем следующий код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormShow(Sender: TObject);
var
  i: Integer;
begin
  with StringGrid1 do begin
    Cells[0,0] := ' №';
    Cells[1,0] := ' Ф.И.О.';
    Cells[2,0] := ' Баллы';
    Cells[3,0] := ' Итого';
  end;
  for i := 0 to StringGrid2.RowCount do
    StringGrid2.Cells[0,i] := ' ' + IntToStr(i+1);
end;

Во вложении готовый проект-пример:

Размещено в Delphi

« Шаблоны для решения задач с массивами в Pascal, Delphi Главная страница

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

Всего комментариев 11

Комментарии

	Дело в том что при смене "стиля" зазоры и линии между гридами изменятся и отображение может быть корявым. Так что советую это проверить.
	Запись от Avazart размещена 21.06.2016 в 14:01

	Ну это не интересно. Был бы хотя бы функционал сортировки/выделения столбцов, кратного изменения ширины столбцов. Хоть что-нибудь.
	Запись от SatanaXIII размещена 21.06.2016 в 14:42

Это только идея, все можно дописать, таблицы можно связать и так далее. Но если надо быстро сделать таблицу с объединениями, то это самый простой и надежный способ.
На счет стилей, то не должно бы ничего поплыть, высота и ширина задана в пикселях, рамочка между ячейками у таблицы в один пиксель.

Запись от Arigato размещена 21.06.2016 в 22:59 Arigato вне форума

	Это 1 пиксель в вашей системе, как это будет выглядеть Win7 не очевидно. Плюс стоит проверить VCL-стили. И еще стоит приделать изменяемость размеров ширины колонок.
	Запись от Avazart размещена 22.06.2016 в 17:09

	У меня и есть Win7 Про ширину в предыдущем комментарии написал. Тут только идея. Связать таблицы не проблема, чтобы изменения ширины колонок в шапке меняли ширину и в основной таблице.
	Запись от Arigato размещена 22.06.2016 в 23:03

	А это же Delphi7 я то думаю чего интерфейс убогий... Ну что ли манифест прикрутите.
	Запись от Avazart размещена 23.06.2016 в 15:55

	Это у меня такой стиль в системе выставлен. Но на таблицу оно никак не влияет: https://yadi.sk/i/UZeeApB_skV7G
	Запись от Arigato размещена 24.06.2016 в 01:12

Не по теме:

Это у меня такой стиль в системе выставлен.

Еще лучше )))

Вы видели как в современной системе в современной IDE выглядит таблица? - заголовки рисуются градиентной заливкой.

Запись от Avazart размещена 25.06.2016 в 13:09 Avazart вне форума

	Ну будет там градиент, что это меняет?
	Запись от Arigato размещена 25.06.2016 в 19:09

а почему бы не объединить ячейки визуально путем перекрытия метода отрисовки.
вот набросал код с созданием наследника таблицы в пределах проекта.
происходит визуальное объединение ячеек с возможностью изменения ширины столбца, входящего в диапазон.
единственный небольшой глюк вылазит, когда стиль таблицы равен gdsClassic.

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  // наследник таблицы
  TStringGrid = class(Vcl.Grids.TStringGrid)
  protected
    procedure DrawCell(ACol: Integer; ARow: Integer; ARect: TRect;
      AState: TGridDrawState); override;
  end;
 
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
var
  i: byte;
begin
  with StringGrid1 do
  begin
    Cells[0,0]:= '№ п/п';
    Cells[1,0]:= 'Ф.И.О.';
    Cells[7,0]:= 'Итого';
  end;
end;
 
{ TStringGrid }
 
procedure TStringGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
  AState: TGridDrawState);
var
  NewRect: TRect;
  RLeft: integer;
  Text: string;
begin
  if (gdFixed in AState) and (ACol = 6) then
  begin
    Text:= 'Баллы';
    // вычисляем объединенный Rect
    RLeft:= CellRect(2,0).Left;
    NewRect:= Bounds(RLeft,ARect.Top,CellRect(6,0).Right-RLeft,ARect.Height);
    // Рисуем стилем, установленным в винде в случае если стиль таблицы не равен gdsClassic
    DrawCellBackground(NewRect,FixedColor,AState,ACol,ARow);
    // здесь не знаю как иначе заставить текст рисоваться с отступом слева
    NewRect.Left:= NewRect.Left + 5;
    Canvas.TextRect(NewRect,Text,[tfLeft,tfSingleLine,tfVerticalCenter]);
  end else inherited;
end;
 
end.

Запись от DenNik размещена 24.11.2016 в 12:24 DenNik вне форума

	Перетащил на StringGrid кнопку Button. Нормальная "ячейка" получилась.
	Запись от Сергей 190 размещена 24.11.2016 в 12:56

Новые блоги и статьи Все статьи Все блоги /
Оптимизация производительности Express.js бэкенда Reangularity 23.05.2025 Express. js заслуженно остаётся одним из самых популярных инструментов для создания бэкенда, но даже он не застрахован от проблем с производительностью. Многие разработчики сталкиваются с ситуацией,. . .	Продвинутая обработка данных с LINQ в C# stackOverflow 23.05.2025 LINQ (Language Integrated Query) — это фундаментальное изменение парадигмы работы с данными в C#. Простые запросы Where и Select знакомы любому разработчику, но настоящая мощь LINQ раскрывается в. . .	Инфраструктура PKI и сертификатов безопасности Mr. Docker 23.05.2025 PKI (Public Key Infrastructure) — это невидимый фундамент цифрового доверия, без которого современный интернет просто рассыпался бы как карточный домик. За этой аббревиатурой скрывается целый. . .	Аутентификация OAuth в Python py-thonny 22.05.2025 OAuth (Open Authorization) — это целый стандарт для делегированного доступа. Звучит занудно? Давайте проще: OAuth позволяет приложениям получать доступ к информации пользователя на сторонних сервисах. . .	Хеширование и соль паролей в веб-приложениях C# stackOverflow 22.05.2025 Когда-то в начале своей карьеры я тоже грешил простейшими подходами к хранению паролей – MD5-хеширование казалось верхом защиты. Но технологии не стоят на месте, вычислительные мощьности растут, и. . .
Генераторы Python для эффективной обработки данных AI_Generated 21.05.2025 В Python существует инструмент настолько мощный и в то же время недооценённый, что я часто сравниваю его с тайным оружием в арсенале программиста. Речь идёт о генераторах — одной из самых элегантных. . .	Чем заменить Swagger в .NET WebAPI stackOverflow 21.05.2025 Если вы создавали Web API на . NET в последние несколько лет, то наверняка сталкивались с зелёным интерфейсом Swagger UI. Этот инструмент стал практически стандартом для документирования и. . .	Использование Linq2Db в проектах C# .NET UnmanagedCoder 21.05.2025 Среди множества претендентов на корону "идеального ORM" особое место занимает Linq2Db — микро-ORM, балансирующий между мощью полноценных инструментов и легковесностью ручного написания SQL. Что. . .	Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .

Сообщение форума

Отменить изменения