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

Вниз

StringGrid, DrawGrid - кто-нибудь обьединял ячейки?   Найти похожие ветки 

← →
danilka   (2002-10-28 11:45) [0]

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

---

← →
Кулюкин Олег ©   (2002-10-28 11:47) [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;

---

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

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

Наверх

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