Обьединение ячеек в StringGrid

[WaRK]

Как можно обьединить ячейки в StringGrid ?
или с помощью этого компонента это невозможно?

[Doga]

Привет.

Для TStringGrid, чтоб работало по-человечески - практически невозможно. Может быть для TDrawGrid (в свое время, я делал такое для TRxDrawGrid (RxLib)), и то, через одно место.

Не тратте зря время, воспользуйтесь каким-либо готовым компонентом. Например,  здесь, в файловом архиве, вроде как есть бесплатный TRGrid, он это умеет.
Ну, или ещё чего-нибудь...

[WaRK]

скачал TRGrid.115.Demo.BCB6
хотел запустить проэкт и получил ошибки:
[C++ Error] uxtheme.h(176): E2146 Need an identifier to declare
[C++ Error] uxtheme.h(546): E2146 Need an identifier to declare
 здесь:

Код

typedef enum THEMESIZE
{
    TS_MIN,             // minimum size
    TS_TRUE,            // size without stretching
    TS_DRAW,            // size that theme mgr will use to draw part
};

и здесь:

Код

typedef enum PROPERTYORIGIN
{
    PO_STATE,           // property was found in the state section
    PO_PART,            // property was found in the part section
    PO_CLASS,           // property was found in the class section
    PO_GLOBAL,          // property was found in [globals] section
    PO_NOTFOUND         // property was not found
};

В чём дело? 

[immortal1977]

Объединение ячеек в StringGrid делается элементарно, вот за 3 минуты накалякал пример:

Код

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
        TRect &Rect, TGridDrawState State)
{
   AnsiString S = "Hello";
   TStringGrid *AGrid = dynamic_cast<TStringGrid*>(Sender);
   if(1==ARow && 0 != ACol)
   {
     int i = AGrid->ColWidths[0] * AGrid->ColCount - 1;
    Rect.Left = AGrid->ColWidths[0] + 1;
    Rect.Top = AGrid->RowHeights[0] + 1;
    Rect.Right = i - 1;
         AGrid->Canvas->FillRect(Rect);
 
          int txtWidth = AGrid->Canvas->TextWidth(S);
       int txtHeight = AGrid->Canvas->TextHeight("Hg");
 
       int txtX = i / 2 - txtWidth / 2 + AGrid->ColWidths[0] / 2;
        int txtY = Rect.Top + Rect.Height() / 2 - txtHeight / 2;
    AGrid->Canvas->TextOutA(txtX, txtY, S);
   }
}
 

Можно также обрабатывать и прорисовывать состояния gdSelected, gdFocused, лень было прикручивать...

[BEERZONE]

Объединение ячеек в StringGrid делается элементарно, вот за 3 минуты накалякал пример:

Не в обиду будет сказано: Вы проверяли как работает ваш пример? Практически Excel 2007...

Не тратте зря время, воспользуйтесь каким-либо готовым компонентом.

Сам занимался этим давно. Просто могу описать алгоритм:
1. Создаётся двумерный текстовый массив, равный по размеру Вашему СтрингГриду.
2. В этот массив записывается информация о всех ячейках (текст в ячейке, где начинается объединение, где оно заканчивается, цвет шрифта в ячейке, выравнивание и т.д и т.п.).
3. В OnDrawCell анализируется массив и рисуются соответствующие Rect функцией DrawTextW (позволяет выравнивать текст флагами и отображает Unicode).
4. В событии StringGridDblClick снова анализируется массив (какую ячейку кликнули 2 раза для редактирования?) и создается TEdit в соответствующем месте и соответствующего размера.
5. В событии OnKeyDown (например) проверяете, нажат ли Enter. Если да, то вносите изменение в массив и удаляете TEdit.
Это алгоритм простейшего Excel листа и непаханное поле для его усовершенствования. Оно Вам сильно надо?

[Doga]

В чём дело?

BCB6 изначально содержит некоректную версию файла Uxtheme.h. В сборке RvaLib.115.Src.Hlp.zip  есть его правильная версия (см. файл !!!.txt).

[Povorot]

Столкнулся с той же проблемой. Использовал код товарища immortal1977 , однако он выдает странный результат, вместо того, чтобы объединить ячейки определенной строки, он объединяет всю область до ячейки. Пример прилагается в архиве.
код:

Код

if((ARow==2+StrToInt(Edit7->Text))&&ACol!=1)
   {
     AnsiString S = "COCKPIT AND ATTENDANT";
     TStringGrid *AGrid = dynamic_cast<TStringGrid*>(Sender);
          int i = AGrid->ColWidths[0] * AGrid->ColCount - 1;
    Rect.Left = AGrid->ColWidths[0] + 1;
    Rect.Top = AGrid->RowHeights[0] + 1;
    Rect.Right = i - 1;
         AGrid->Canvas->FillRect(Rect);
      int txtWidth = AGrid->Canvas->TextWidth(S);
       int txtHeight = AGrid->Canvas->TextHeight("Hg");
   int txtX = i / 2 - txtWidth / 2 + AGrid->ColWidths[0] / 2;
        int txtY = Rect.Top + Rect.Height() / 2 - txtHeight / 2;
    AGrid->Canvas->TextOutA(txtX, txtY, S);
}
 

[S0mbre]

Используйте компоненты от Virtual Components, т.е. например TVirtualStringTree / TVirtualDrawTree.

[Povorot]

В помощь "потомкам":
Правильное название компонентов Virtual Controls
Брать с оф сайта (бесплатно) http://www.soft-gems.net/
Там же и инструкция на англ.