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

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

Grid

lp ©   (2004-11-20 19:28:00) 

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

---

jack128   (2004-11-20 20:25:00) [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;

---

Наверх