VPF::Как скрыть заголовок Word в TOleContainer

cemick

Дата 6.12.2011, 17:23 (ссылка)

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

Загрузка ...

Опытный

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

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

Кажись перерыл весь MSDN и не нашел способа как скрыть в ворде все панели, оставь лишь сам текст. Как это выглядит можно посмотреть в Outlook, где вложенния к письмам отображаются непосредственно в теле письма.

Сейчас на форме имею TOleContainer:

Код


  frm.OleContainer1.CreateObjectFromFile('test.doc', False);
  frm.OleContainer1.DoVerb(ovPrimary);

перепробовал кучу всего и ничего из ниже перечисленного не помогает:

Код


    frm.OleContainer1.OleObject.ActiveWindow.DisplayRulers := false;
    for i := 1 to frm.OleContainer1.OleObject.ActiveWindow.Panes.Count do
    begin
      frm.OleContainer1.OleObject.ActiveWindow.Panes.Item(i).DisplayRulers := false;
    end;

    frm.OleContainer1.OleObject.ActiveWindow.View.Application.OpenAttachmentsInFullScreen := true;
    frm.OleContainer1.OleObject.ActiveWindow.ToggleRibbon;
    frm.OleContainer1.OleObject.Protect(ev);
    frm.OleContainer1.OleObject..ActiveWindow.View.FullScreen := true; // не разрешено в inPlace режиме

    for i:=1 to frm.OleContainer1.OleObject.CommandBars.Count do
      if frm.OleContainer1.OleObject.CommandBars.Item[i].Visible then
        frm.OleContainer1.OleObject.CommandBars.Item[i].Visible:=False;

В конце концов все равно остается меню и строка заголовка, что бы не делал. Есть мысли?

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