Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизОбъединение нескольких ячеек StringGrid a Найти похожие ветки
← →
MBo (2002-02-26 13:36) [2]что-нибудь эдакое?
procedure TForm1.sg1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var l:integer;
begin
if (arow=1) and (acol in [1..2]) then begin
if acol=1 then
rect.right:=rect.right+sg1.GridlineWidth+sg1.ColWidths[2];
if acol=2 then
rect.left:=rect.left-sg1.GridlineWidth-sg1.ColWidths[1];
sg1.canvas.fillrect(rect);
l:=(rect.right-rect.left-sg1.canvas.textwidth(sg1.cells[1,1])) div 2;
sg1.canvas.textout(rect.left+l,rect.top+2,sg1.cells[1,1]);
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c