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

Вниз

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;

---

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

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

Наверх

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