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

← →
Lexer © (2002-10-04 16:20) [0]

Кто-нибудь знает как в Grid(DBGrid) объединить ячейки?

← →
Кулюкин Олег © (2002-10-04 16:27) [1]

var
i, x, y: Integer;
begin
if (gdFixed in State) or (ARow > 1) then
begin

end
else
with Sender as TStringGrid do
begin
if aCol < ColCount - 1 then
Rect.Right := Rect.Right + GridlineWidth;
y := Rect.Top + 2;
x := Rect.Left + 2;
for i:= 1 to aCol - 1 do
x := x - ColWidths[i] - GridlineWidth;
Canvas.FillRect( Rect );
Canvas.TextOut( x, y, Cells[1, 1] );
end;

← →
кондратий (2002-10-04 17:38) [2]

есть ЕхЛиб для этого

Объединение ячеек Найти похожие ветки