Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Плоский Webbrowser 
V
    Опции темы
namra
Дата 7.1.2009, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Привет всем! Хочу сделать плоский Webbrowser, но не получается выдает ошибки. Подскажите что исправить?

Код

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc : IHTMLDocument2;
  Element : IHTMLElement;
begin
  Doc := IHTMLDocument2(TWebBrowser(Sender).Document);
  if Doc = nil then
    Exit;
  Element := Doc.body;
  if Element = nil then
    Exit;
  case Make_Flat of
    TRUE : Element.style.borderStyle := 'none';
    FALSE : Element.style.borderStyle := '';
  end;
end;


 

Присоединённый файл ( Кол-во скачиваний: 12 )
Присоединённый файл  Untitled_2.gif 4,22 Kb
PM MAIL   Вверх
hkdkest
Дата 7.1.2009, 23:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
модуля наверное не хватает )
PM MAIL WWW   Вверх
namra
Дата 7.1.2009, 23:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Да оказывается забыл подключить модуль, спс hkdkest. А какой тип данных у этой переменной -    Make_Flat. Если определяю как boolean, выдает:
Код

Unit1.pas(45): Variable 'Make_Flat' might not have been initialized
 
PM MAIL   Вверх
namra
Дата 7.1.2009, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Вот нашел еще один пример, делает браузер и скроллбар плоским, только не знаю где эту функцию прописать:

Код

function TCustomizedWebBrowser.GetHostInfo(
  var pInfo: TDocHostInfo): HRESULT; stdcall; 
begin
  with pInfo do
    dwFlags := dwFlags or DOCHOSTUIFLAG_NO3DBORDER or 
      DOCHOSTUIFLAG_FLAT_SCROLLBAR;
  Result := S_OK;
end;
PM MAIL   Вверх
Данкинг
Дата 7.1.2009, 23:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(namra @  7.1.2009,  23:28 Найти цитируемый пост)
А какой тип данных у этой переменной -    Make_Flat.

Это ты ответа телепатов ждёшь? smile 

Цитата(namra @  7.1.2009,  23:28 Найти цитируемый пост)

Код

Unit1.pas(45): Variable 'Make_Flat' might not have been initialized


Ну пусть выдаёт, это же не ошибка. smile 

Цитата(namra @  7.1.2009,  23:45 Найти цитируемый пост)
Вот нашел еще один пример, делает браузер и скроллбар плоским, только не знаю где эту функцию прописать:

А TCustomizedWebBrowser - это что? smile 

Это сообщение отредактировал(а) Данкинг - 7.1.2009, 23:54


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
namra
Дата 8.1.2009, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Цитата(Данкинг @  7.1.2009,  23:53 Найти цитируемый пост)
Ну пусть выдаёт, это же не ошибка.  


Данкиг когда выдает эту ошибку
 
Код

Variable 'Make_Flat' might not have been initialized

 проект компилируется, но браузер остается 3D, так как эта переменная не скомпилирована.

А на счет  TCustomizedWebBrowser вот нашел док один но что-то  у меня не получилось


Это сообщение отредактировал(а) namra - 8.1.2009, 00:16

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  WebBrowser.doc 83,50 Kb
PM MAIL   Вверх
Данкинг
Дата 8.1.2009, 00:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(namra @  8.1.2009,  00:14 Найти цитируемый пост)
так как эта переменная не скомпилирована.

 smile  smile 

Цитата(namra @  8.1.2009,  00:14 Найти цитируемый пост)
А на счет  TCustomizedWebBrowser вот нашел док один но что-то  у меня не получилось

Ты документ этот хорошо читал? Это какая-то самодельная функция для самодельного же браузера. smile 
Код

function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; 
      stdcall;





--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
namra
Дата 8.1.2009, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
все разобрался smile  smile  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0465 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.