I'm trying to merge some cells by using mcGrid with this code:
procedure TfrmMain.FormCreate(Sender: TObject);
begin
//Creación del Grid
grdAstCont := TMCStringGrid.Create(Self);
grdAstCont.Parent := self;
grdAstCont.Align := alClient;
grdAstCont.RowCount := 2;
grdAstCont.ColCount := 6;
grdAstCont.ScrollBars := ssVertical;
grdAstCont.BorderSpacing.Left:=10;
grdAstCont.BorderSpacing.Right:=10;
grdAstCont.FixedRows:=2;
grdAstCont.Options := [goFixedHorzLine, goFixedVertLine, goHorzLine, goVertLine, goRowSelect];
grdAstCont.OnMergeCells := @MergeCellsHandler;
grdAstCont.OnPrepareCanvas := @grdAstContPrepareCanvas;
grdAstCont.OnResize := @grdAstContResize;
end;
And this:
procedure TfrmMain.MergeCellsHandler(Sender: TObject; ACol, ARow: Integer;
var ALeft, ATop, ARight, ABottom: Integer);
begin
if (ACol in [1..2]) and (ARow = 0) then begin
ALeft := 1;
ARight := 2;
end;
end;
It runs, but cells don't merge.