VPF::опять OO... - Форум программистов

kr3v3tkus

Дата 10.4.2009, 01:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 8.3.2008

Репутация: 1
Всего: 1

Помогите сделать 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.11.2006

Репутация: нет
Всего: нет

Рекомендую скачать, изучить и воспользоваться великолепным модулем для работы с ОО. До сих пор дорабатывается и улучшается.
Это всего лишь "обертка" методов сервера ОО, но здорово облегчающая жизнь всем тем, кто связался с экспортом в OpenOffice.
Одна из последних страниц темы на форуме, где есть ссылка на модуль.
Там же на форуме среди 15-ти страниц темы (на сегодня 15), посвященных этому модулю есть много вопросов и ответов по работе с ним и вообще работе с ОО.

kr3v3tkus

Дата 10.4.2009, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 8.3.2008

Репутация: 1
Всего: 1

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

ZCoder

Дата 4.2.2013, 09:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.2.2012

Репутация: нет
Всего: нет

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

Код


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);

Это сообщение отредактировал(а) ZCoder - 4.2.2013, 09:50

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »