Grid

← →
lp (2004-11-20 19:28) [0]

Уважаемые мастера.
Скажите как можно объединить ячейки в гриде.
Спасибо.

← →
jack128 © (2004-11-20 20:25) [1]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Grid: TStringGrid;
begin
if ARow = 1 then
begin
Grid := Sender as TStringGrid;
case ACol of
1: inc(Rect.Right, Grid.GridLineWidth);
2: dec(Rect.Left, Grid.GridLineWidth);
else
Exit;
end;
TStringGrid(Grid).Canvas.FillRect(Rect);
end;
end;

Grid Найти похожие ветки