| Author |
 Topic  |
|
|
Voland
91 Posts |
 Posted - 10/31/2005 : 15:04:07
|
Вобщем то вот такая проблема. Кидаю шейп на лист, потом программно создаю ему секцию конекшен поинтов, добавляю строку, вношу в нее нужные координаты, тип. И так добавляю несколько точек. Вопрос в том, что все эти строки задаются без имени :(, в этом поле пустота, А хотелось бы задать туда имя, например, ConPoint_1 и т.д. Чтобы потом можно было удобно к ним обращаться, да и удалить при случае. А то по индексам уже голова кружиться их перебирать :).
Программно добавляю строку так:
Shape.AddRow(visSectionConnectionPts,visRowLine,visRowConnectionPts);
Затем пишу в нее параметры:
Shape.CellsSRC[visSectionConnectionPts, Row-1, 0].Formula:='Width*0.2';
Shape.CellsSRC[visSectionConnectionPts, Row-1, 1].Formula:='Height*0.2';
Shape.CellsSRC[visSectionConnectionPts, Row-1, 4].Formula:='2';
Как видите, ячейка X находится в нулевом индексе, а где же тогда ячейка с именем строки? Не -1 же :(....
___ Кто ищет тот найдет __ |
|
|
Voland
91 Posts |
Posted - 10/31/2005 : 15:38:47
|
Вопрос снимается. Разобрался, да еще и упрастил себе жизнь с индексами ячеек :). Если кому интересно, делается это так:
Shape.AddRow(visSectionConnectionPts,visRowLine,visRowConnectionPts);
Row:=Shape.RowCount[visSectionConnectionPts];
Shape.CellsSRC[visSectionConnectionPts, Row-1, visCnnctX].Formula := 'Width*0';
Shape.CellsSRC[visSectionConnectionPts, Row-1, visCnnctY].Formula := 'Height*0';
Shape.CellsSRC[visSectionConnectionPts, Row-1, visCnnctDirX].Formula := '0 mm';
Shape.CellsSRC[visSectionConnectionPts, Row-1, visCnnctDirY].Formula := '0 mm';
Shape.CellsSRC[visSectionConnectionPts, Row-1, visCnnctType].Formula := '2';
Shape.CellsSRC[visSectionConnectionPts, Row-1, visCnnctAutoGen].Formula := '0 mm';
Shape.CellsSRC[visSectionConnectionPts, Row-1, visCnnctX].RowNameU := 'Point1';
последняя строка и добавляет имя добавленой строки в конекшен поинте
___ Кто ищет тот найдет __ |
 |
|
| |
Topic |
|
|
|
All Forums
Как задать имя в ShapeSheet строке?