Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.015 c
14-43143          Vad                   2002-01-27 15:17  2002.03.14  
NIC Merlin


1-43006           LasyCat               2002-02-28 13:13  2002.03.14  
Как проверить пароль на вход в сеть


1-42991           lsiSerg               2002-02-28 13:31  2002.03.14  
PopUp и логотип


1-43002           greenrul              2002-02-28 11:43  2002.03.14  
Посоветуйте способ реализации -


4-43212           - Andrew -            2002-01-15 14:40  2002.03.14  
Как отловить хэндл меню при его активации в