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

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

StringGrid, DrawGrid - кто-нибудь обьединял ячейки? [D5]

danilka ©   (2002-10-28 11:45:00) 

Кто нибудь обьединял несколько ячеек StringGrid или DrawGrid в одну?

---

Кулюкин Олег   (2002-10-28 11:47:00) [1]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
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;
end;

---

Наверх