Объедение ячеек StringGrid_a

[S_Yevgeniy]

Доброе время суток.
Встала задача объединения ячеек StringGrid. Кто-то скажет гугол в помощь, я там уже был толковых примеров к сожалению не нашел. Чаще всего предлагают сторонние компоненты, хотя и говорят про прорисовку StringGrid1DrawCell. Просто мне не хватает знаний как объединить там ячейки, или напротив разделить.
после того как мне помогли с ComboBox http://www.programmersforum.ru/showt...light=combobox, закрались сомнения в использование сторонних компонентов и появилась уверенность что и в гриде есть возможность решить поставленную задачу. Очень надеюсь на помощь.
Заранее большое спасибо!

[kropotkina-alice]

А теперь расшифруйте, что значит "объединить" и что значит "разделить" ячейки StringGrid в вашем понимании.
Или опять надо звать на помощь min@y™ и пытать вас электрошоком?

[S_Yevgeniy]

На рисунках представлено что значит объединить.

Что-то у народа наклонности странные последние время. Попытать электрошокером и так далее.

[Аватар]

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

[kropotkina-alice]

Сообщение от S_Yevgeniy

На рисунках представлено что значит объединить

А составить нужный стринггрид из нескольких в голову не пришло?
Или вообще "сконстролить" шапку из панелек?

[S_Yevgeniy]

Сообщение от kropotkina-alice

А составить нужный стринггрид из нескольких в голову не пришло?
Или вообще "сконстролить" шапку из панелек?

Ну да лучше скотчем приклеить к экрану шапку и не парится или кнопками пригвоздить.

Сообщение от Аватар

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

Аватар Вы не могли бы с прорисовкой помочь. То что у меня получилось не совсем правильно работает

Насчет проблем с текстом может что гугол подскажет или другие участники форума.

[Аватар]

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.RowCount:=6; StringGrid1.FixedRows:=0;
  StringGrid1.ColCount:=6; StringGrid1.FixedColor:=0;
  StringGrid1.Options:=StringGrid1.Options-[goVertLine,goHorzLine];
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s: String;
    Rect1,Rect2: TRect;
    xFilled: Boolean;
begin
  StringGrid1.Canvas.Brush.Color:=clBlack;
  xFilled:=True;
  if (ARow=0) and (ACol in [1..3]) then begin
    Rect1:=StringGrid1.CellRect(1,0);
    Rect2:=StringGrid1.CellRect(3,0);
    Rect:=Classes.Rect(Rect1.Left,Rect1.Top,Rect2.Right,Rect2.Bottom);
    s:='Заголовок1';
  end
  else if ARow=3 then begin
    Rect1:=StringGrid1.CellRect(0,3);
    Rect2:=StringGrid1.CellRect(5,3);
    Rect:=Classes.Rect(Rect1.Left,Rect1.Top,Rect2.Right,Rect2.Bottom);
    s:='Заголовок2';
  end
  else begin
    s:=IntToStr(ARow*10+ACol);
    xFilled:=False;
  end;
  StringGrid1.Canvas.FrameRect(Classes.Rect(Rect.Left-1,Rect.Top-1,Rect.Right+1,Rect.Bottom+1));
  if xFilled then begin
    StringGrid1.Canvas.Brush.Color:=clYellow;
    StringGrid1.Canvas.FillRect(Rect);
  end
  else StringGrid1.Canvas.Brush.Color:=clWhite;
  DrawText(StringGrid1.Canvas.Handle,PChar(s),Length(s),Rect,DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

Можно еще поиграться с заливкой для разных State

[S_Yevgeniy]

Огромное Вам Спасибо!

[S_Yevgeniy]

Возникала еще одна проблема с выделением ячеек.

Вот немного изменённый код может будет кому полезен.

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing:=false;
  StringGrid1.RowCount:=6; StringGrid1.FixedRows:=0;
  StringGrid1.ColCount:=6; StringGrid1.FixedColor:=0;
  StringGrid1.Options:=StringGrid1.Options-[goVertLine,goHorzLine];
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);
var s: String;
    Rect1,Rect2: TRect;
    xFilled: Boolean;
    Color_G, SCol, SRow : integer;

begin

     SRow:=TStringGrid(Sender).Row;
     SCol:=TStringGrid(Sender).Col;

            TStringGrid(Sender).Canvas.Brush.Color:=clBlack; Color_G:=0;
            TStringGrid(Sender).Canvas.Font.Color :=clBlack;

  xFilled:=True;

  if (ARow=0) and (ACol in [1..3]) then begin
    Rect1:=StringGrid1.CellRect(1,0);
    Rect2:=StringGrid1.CellRect(3,0);
    Rect:=Classes.Rect(Rect1.Left,Rect1.Top,Rect2.Right,Rect2.Bottom);
     Color_G:=1; s:='Заголовок1';
  end
  else if (ACol=0) and (ARow in [1..3]) then begin
    Rect1:=StringGrid1.CellRect(ACol,1);
    Rect2:=StringGrid1.CellRect(ACol,3);
    Rect:=Classes.Rect(Rect1.Left,Rect1.Top,Rect2.Right,Rect2.Bottom);
     Color_G:=2; s:='Заголовок2';
  end
  else begin
    s:=IntToStr(ARow*10+ACol);
    xFilled:=False;
    Rect:=TStringGrid(Sender).CellRect(ACol,ARow);

    if (gdSelected in State) and (SRow=ARow) and (SCol=ACol) then
       begin
          xFilled:=True;
         TStringGrid(Sender).Canvas.Font.Color := clHighlightText;
         TStringGrid(Sender).Canvas.Brush.Color := clBlack;
         Color_G:=3;
       end;

  end;
  StringGrid1.Canvas.FrameRect(Classes.Rect(Rect.Left-1,Rect.Top-1,Rect.Right+1,Rect.Bottom+1));

  if xFilled then begin
    TStringGrid(Sender).Canvas.Brush.Color:=$00D6D6D6;//clYellow;
    if Color_G=1 then TStringGrid(Sender).Canvas.Brush.Color:=clYellow;
    if Color_G=2 then TStringGrid(Sender).Canvas.Brush.Color:=clLime;
    if Color_G=3 then TStringGrid(Sender).Canvas.Brush.Color:=clBlue;
    TStringGrid(Sender).Canvas.FillRect(Rect);
    StringGrid1.Canvas.FillRect(Rect);
  end
  else StringGrid1.Canvas.Brush.Color:=clWhite;
  TStringGrid(Sender).Canvas.FillRect(Rect);
  DrawText(StringGrid1.Canvas.Handle,PChar(s),Length(s),Rect,DT_SINGLELINE or DT_CENTER or DT_VCENTER);


end;

Еще раз спасибо за помощь

[Dvoishnik]

Всем добра
Очень помогла эта тема.
Вот только не могу понять как заставить перерисовываться (выделяться) всю объеденную область а не только ячейку которая изменяет фокус?