Форум: "Основная";
Поиск по всему сайту: 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.042 c
6-43132           sdd                   2001-12-27 18:57  2002.03.14  
закачка файлов


1-43083           KvORubin              2002-02-26 15:42  2002.03.14  
TRichEdit - ПОМОГИТЕ !!!


14-43182          Blackweber            2002-01-31 21:21  2002.03.14  
Помогите с DVD!!!!!


3-42915           DmitryPV              2002-02-14 10:28  2002.03.14  
Не удается модифицировать поле!


3-42969           Lost                  2002-02-15 20:38  2002.03.14  
W2kServer + IB тормоза на Update