Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

Merge в KOLmdvXLGrid - а как навесить на FormOnShow?   Найти похожие ветки 

 
<Falcon>   (2003-09-05 13:15) [0]

Помогоите новичку! Не могу объеденить ячейки mdvXLGrid при показе формы. И почему при выделении ячеек мышой Merge работает, а например при Grid.SetSelectedRows[1] нет? Выдает RunTime Error 216 (Access violation)
Пробовал так:

R1:=Grid.CellToRect(0,0);
R2:=Grid.CellToRect(2,2);
R.TopLeft:=R1.TopLeft;
R.BottomRight:=R2.BottomRight;
Grid.Merge(R);
------------------------
Grid.SelectedRows[1]:=True;
Grid.Merge(Grid.Selected);


 
<Falcon>   (2003-09-10 14:02) [1]

Уже сам разобрался, но вроде и благодарить некого.


 
savva ©   (2003-09-11 10:16) [2]

ну так решение здесь напиши - кому нибудь пригодится..


 
<Falcon>   (2003-09-11 13:27) [3]

Да все до смешного просто оказалось. Переменыые в обоих случаях
TRect но Grid.CellToRect() выдает координаты четырехугольника
в пикселах. А для Merge() нужны координаты четырехугольника в таблице.

Вместо того что было выше пишем:
var
R : Trect;
begin
 R.Left:=0;
 R.Right:=2;
 R.Top:=0;
 R.Bottom:=2;
 Grid.Merge(R);
end;

А вот с
Grid.SelectedRows[1]:=True;
Grid.Merge(Grid.Selected);
трабл, помоему просто глюк в компоненте (не уверен еще не копал внимательно :) )


 
mdw ©   (2003-09-15 12:39) [4]

>Grid.SelectedRows[1]:=True;
>Grid.Merge(Grid.Selected);
>трабл, помоему просто глюк в компоненте


Grid.Selected - это прямоугольник выделенный РАМКОЙ (одна или несколько ячеек).

При Grid.SelectedRows[1]:=True; Grid.Selected не мзменяется, т.к. можно написать еще и
Grid.SelectedRows[3]:=True;
Grid.SelectedRows[8]:=True;
Grid.SelectedСols[18]:=True;
   и т.д...
и получается выделен не прямоугольник, а "зебра" какая-то, а тип Grid.Selected - TRect все таки.

Тут нужно:
   XLGrid.Merge(MakeRect(0, 1, XLGrid.ColCount-1, 1));
или, если нужно с выделением:
   XLGrid.Selected:= MakeRect(0, 1, XLGrid.ColCount-1, 1);
   XLGrid.Merge(XLGrid.Selected);


 
<Falcon>   (2003-09-15 14:07) [5]

Понял, осознал...Про зебру это я врубился с самого начала, поэтому пробовал только для одной строки. А с толку сбило то,
что при проверке произвольной ячейки из этой строки на "выделенность" выдавалось truе.
Спасибо! :)



Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
1-1081414171
Zendor
2004-04-08 12:49
2004.04.25
Hide Button


1-1081550423
Mishenka
2004-04-10 02:40
2004.04.25
Как перевести дату и время из TDateTime в Integer и обратно?


1-1081311737
Shtukos
2004-04-07 08:22
2004.04.25
Способ сделать демо-версию


1-1081429340
Russko
2004-04-08 17:02
2004.04.25
Количество файлов в каталоге


1-1081343059
Ne_Vaszno
2004-04-07 17:04
2004.04.25
Взаимодействие нескольких TStringList