Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Word в OleContainer

Страницы: 1
Word в OleContainer
#1
06.12.2009 18:19:38
Снова всем привет! Может быть кто-нибудь знает, как можно при открытии в Delphi в OleContainer документа word отображать только текст и не показовать панель интсрументов word
 
 
#2
06.12.2009 18:51:10
Например, так
Код
var
  ev: OleVariant;
  i: integer;

  ev := 2; { означает, что документ будет открыт "только для чтение" }
  for i:=1 to OleContainer1.OleObject.CommandBars.Count do
      if OleContainer1.OleObject.CommandBars.Item[i].Visible then
        OleContainer1.OleObject.CommandBars.Item[i].Visible:=False;
    OleContainer1.OleObject.Protect(ev);
 
 
#3
06.12.2009 19:57:16
Спасибо, получилось, но остались линейки от word, можно их убрать?
 
 
#4
06.12.2009 20:16:05
Да, очень просто
Код
OleContainer1.OleObject.ActiveWindow.ActivePanel.DisplayRulers := false;
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)