Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

Объединение нескольких ячеек StringGrid a 


KIR   (2002-02-26 13:02) [0]

Народ, как можно объединить несколько ячеек в строке StringGrid"a и вывести в эту область содержимое первой из объединяемых ячеек с центровкой по центру?



Григорий Ситнин   (2002-02-26 13:21) [1]

Рисовать руками



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;



lipskiy   (2002-02-27 00:01) [3]

Вариант, предлагаемый MBo, выводит один и тот-же текст во все ячейки, которые объединяются, но со смещением - кажется, что строчка одна и целая (если только я верно понял код :)
А как в таком случае ее редактировать, выделять? Опять руками все разрисовывать?
Нет ли принципиально иного похода?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
14-43182          Blackweber            2002-01-31 21:21  2002.03.14  
Помогите с DVD!!!!!


14-43159          Satrap                2002-01-30 09:30  2002.03.14  
Глупый вопрос


3-42957           KIR                   2002-02-15 17:04  2002.03.14  
Locate внутри SQL-Запроса


1-43044           PSERG                 2002-02-26 07:00  2002.03.14  
Delphi6 + DLL


7-43195           инкогнито             2001-12-04 16:14  2002.03.14  
Как писать .VXD драйвера?