| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Объединение ячеек [D4, D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]

Lexer ©   (2002-10-04 16:20:00) 

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

---

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

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

---

Кулюкин Олег   (2002-10-04 16:27:00) [2]

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;

---

Наверх