Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > опять OO...

Автор: kr3v3tkus 10.4.2009, 01:27

Помогите сделать Calc невидимым, нашёл код, но чтото не так делаю

Код


  function MakePropertyValue(PropertyName, PropertyValue:string):variant;
  var
    Structure: variant;
  begin
    Structure := OO.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
    Structure.Name := PropertyName;
    Structure.Value := PropertyValue;
    Result := Structure;
  end;
...
  VariantArray := VarArrayCreate([0, 0], varVariant);
  VariantArray[0] := MakePropertyValue('Hidden', BoolToStr(true));
  Document := Desktop.LoadComponentFromURL('private:factory/scalc', '_blank', 0, VariantArray);
...

и не могу нигде найти вертикальное и горизонтальное выравнивание ячейки :( то что находил не работает :(

Автор: san46 10.4.2009, 08:36

Рекомендую скачать, изучить и воспользоваться великолепным модулем для работы с ОО. До сих пор дорабатывается и улучшается.
Это всего лишь "обертка" методов сервера ОО, но здорово облегчающая жизнь всем тем, кто связался с экспортом в OpenOffice.
http://www.sql.ru/forum/actualthread.aspx?bid=20&tid=405083&pg=14.
Там же на форуме среди 15-ти страниц темы (на сегодня 15), посвященных этому модулю есть много вопросов и ответов по работе с ним и вообще работе с ОО.

Автор: kr3v3tkus 10.4.2009, 20:37

да знаком, но он огромный и реализация всего идёт через свойства объектов модуля, пока докопаешся что где..

Автор: ZCoder 4.2.2013, 09:47

Перепиши функцию так:

Код


function MakePropertyValue(PropertyName,PropertyValue:variant):variant;
var
Structure: variant;
begin
Structure :=
OO.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
Structure.Name := PropertyName;
Structure.Value := PropertyValue;
Result := Structure;
end;

и используй так:

Код


VariantArray[0] := MakePropertyValue('Hidden',True);