[CLOSED] Merge cells (Stringgrid)

[pcurtis]

I found this code to merge cells. It half works, but the cells under the spanned cells are still selecable and the grid lines are visible.

How can I fix this?

Code: Pascal  [Select][+][-]

1. procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
2.   aRect: TRect; aState: TGridDrawState);
3. var
4.   i, x, y: Integer;
5. begin
6.   if gdFixed in aState then
7.     Exit;
8.   if not (ARow in [1, 3]) then
9.     Exit;
10.   {Draw row 1 with text from cell 1,1 spanning all cells in the row}
11.   with Sender as TStringGrid do
12.   begin
13.     {Extend rect to include grid line on right, if not last cell in row}
14.     if aCol < Pred(ColCount) then
15.       aRect.Right := aRect.Right + GridlineWidth;
16.     {Figure out where the text of the first cell would start relative to the
17.                         current cells rect}
18.     y := aRect.Top + 2;
19.     x := aRect.Left + 2;
20.     for i := 1 to aCol - 1 do
21.       x := x - ColWidths[i] - GridlineWidth;
22.     {Paint cell pale yellow}
23.     Canvas.Brush.Color := $7FFFFF;
24.     Canvas.Brush.Style := bsSolid;
25.     Canvas.FillRect(aRect);
26.     {Paint text of cell 1,1 clipped to current cell}
27.     Canvas.TextRect(aRect, x, y, 'A rather long line which will span cells');
28.   end;
29. end;
30.  
31.  

[wp]

See the demo project in folder examples/gridexamples/merged_cells of your Lazarus installation.

[pcurtis]

Thanks for the pointer.
Turned mcgrid into a component and it works great.