Всем доброго времени суток.
Из 6 формсы можно красить рамку целиком
OLE2.get_OBJ_property(cell, 'Borders');
OLE2.set_property(obj1, 'ColorIndex', '1');
а может кто-нибудь знает как покрасить только верх, низ или бок?

Модератор: Тема перенесена из форума "Oracle".

Leonid KudryavtsevПопытайся и отпиши о результатах. (я не проверял):

args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG( args, <граница> );
MyBorders:=OLE2.GET_OBJ_PROPERTY( MyRange, 'Borders' , args );
OLE2.DESTROY_ARGLIST(args);

Где <граница> одно из следующих числовых значений:

xlDiagonalDown = 5
xlDiagonalUp = 6
xlEdgeBottom = 9
xlEdgeLeft = 7
xlEdgeRight = 10
xlEdgeTop = 8
xlInsideHorizontal = 12
xlInsideVertical = 11

Не совсем понятно, OLE2.ADD_ARG( args, <граница> ) - я так понимаю, что этой процедурой задается конкретная ячейка
пример рамки:
v_args := ole2.create_arglist;
ole2.add_arg(v_args,p_row);
ole2.add_arg(v_args,p_col);
obj1 := OLE2.get_OBJ_property(v_cell, 'Borders');
OLE2.set_property(obj1, 'ColorIndex', '1');
ole2.release_obj(v_cell);
2 координаты....
и где OLE2.set_property, может я чего-то не понял....
заранее спсибо.

Leonid Kudryavtsev,
огромное спасибо.

Ваш совет очень сильно помог - всё работает.

Тема закрыта.