Форум: "Основная";
Поиск по всему сайту: 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.017 c
1-43106           Michael C             2002-02-28 10:45  2002.03.14  
Народ, как сравнить текущий выбираемый элемент массива


6-43119           daos                  2001-12-26 15:50  2002.03.14  
Как принять сообщение через сокет? до меня не доходит...


1-43108           der                   2002-02-26 09:55  2002.03.14  
запись/чтение данных из массива в файл.


1-43118           vitnt2000             2002-02-28 13:02  2002.03.14  
Как из функции вернуть масив?


3-42961           Draculenok            2002-02-13 14:44  2002.03.14  
Вопрос по Paradox