Текущий архив: 2002.10.14;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.028 c