Пишу код

Код

procedure TForm1.Button1Click(Sender: TObject); begin  with WebBrowser1 do  begin    OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';    OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF';    OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF';    OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF';    OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF';    OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF';    OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF';  end; end;

Вроде все правильно, но выходит ошибка Missing operator or semicolon в чем дело???

У меня нормально...
На какой строчке пишет ?

тут with WebBrowser1 do
Добавлено @ 11:07
У меня компонет браузера был сразу на вкладке ИНТЕРНЕТ после установки Дельфи 7, и я его сам в ручную не устанавливал, может в этом дело???

ауууууууу

Цитата(proger @ 15.11.2004, 11:02)

У меня компонет браузера был сразу на вкладке ИНТЕРНЕТ после установки Дельфи 7, и я его сам в ручную не устанавливал, может в этом дело???

У меня тоже он там с самого начала висит, специально не устанавливал...
Да и вряд ли ошибка в этом, т.к. это ошибка компиляции...
Странно это всё...
Быстрее будет, если ты пришлёшь мне исходник...

Это почти весь код:
procedure Tgramm.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('bmp/win6.bmp')

with WebBrowser1 do
begin
WebBrowser1.OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';
OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF';
OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF';
OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF';
OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF';
OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF';
OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF';
end;
end;

И возникают ошибки:
[Предупреждение] grammatica.pas(7): Unit 'OleAuto' is deprecated
[Ошибка] grammatica.pas(81): Missing operator or semicolon
[Фатальная Ошибка] komek.dpr(15): Could not compile used unit 'grammatica.pas'
Если не трудно, опиши каждую из них, спасибо!

Если бы ещё строчки , на которых ошибка вылетает написал...

После Image1.Picture.LoadFromFile('bmp/win6.bmp') надо поставить точку с запятой

Поставил, но теперь на строчке OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';

Цитата(proger @ 16.11.2004, 19:06)

Поставил, но теперь на строчке OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';

Если исправить тот код? который ты привёл (поставить ";"), то никаких ошибок не должно быть...
Видимо, ты еще что-то подправил. Покажи, какой код у тебя теперь.

Это сообщение отредактировал(а) p0s0l - 16.11.2004, 20:14

Возникает ошибка винды, что то сввязанное с памятью по адресу (Read for address 0000000), прога запускается, но эта ошибка вылезает!

Либо WebBrowser не создан...
Но скорее всего, т.к. это происходит в OnCreate, у тебя в WebBrowser не загружена страничка... Нет никакого Document'а еще...
Сделай вначале WebBrowser1.Navigate ( ... ), подожди пока загрузится, потом уже меняй стиль скроллбара...
Хотя это имхо...

Ладно, попробую, но ты не мог бы скинуть пример кода, от начала до конца, как у тебя это работает! Спасибо!

Вот полный код:

Код

unit grammatica; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls,OleAuto, OleCtrls, SHDocVw, StdCtrls,MSHTML, Buttons,JPEG,  XPMan, ActnMan, ActnColorMaps, OleCtnrs; type  Tgramm = class(TForm)    Image1: TImage;    Image2: TImage;    WebBrowser1: TWebBrowser;    Image3: TImage;    Image4: TImage;    Image5: TImage;    Image6: TImage;    procedure FormCreate(Sender: TObject);    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure Image2Click(Sender: TObject);    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure FormShow(Sender: TObject);    procedure Image4Click(Sender: TObject);    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image3Click(Sender: TObject);    procedure Image6Click(Sender: TObject);    procedure Image5Click(Sender: TObject);    procedure WebBrowser1DocumentComplete(Sender: TObject;      const pDisp: IDispatch; var URL: OleVariant);  private    { Private declarations }  public    { Public declarations }  end; var  gramm: Tgramm;  x0, y0: integer; // &auml;&euml;&yuml; &iuml;&aring;&eth;&aring;&igrave;&aring;&ugrave;&aring;&iacute;&egrave;&yuml;  move: boolean;  WordApp: Variant; implementation {$R *.dfm} {******************* &Ntilde;&Ograve;&Egrave;&Euml;&Uuml; &Aacute;&ETH;&Agrave;&Oacute;&Ccedil;&Aring;&ETH;&Agrave; **************************************} procedure WB_SetBorderColor(Sender: TObject;BorderColor: String); var  Document : IHTMLDocument2;  Element : IHTMLElement; begin  Document := TWebBrowser(Sender).Document as IHTMLDocument2;  if Assigned(Document) then  begin    Element := Document.Body;    if Element <> nil then    begin      Element.Style.BorderColor := BorderColor;    end;  end; end; {******************* &Ntilde;&Ograve;&Egrave;&Euml;&Uuml; &Aacute;&ETH;&Agrave;&Oacute;&Ccedil;&Aring;&ETH;&Agrave; **************************************} procedure Tgramm.FormCreate(Sender: TObject); begin Image1.Picture.LoadFromFile('bmp/win6.bmp'); // &Igrave;&aring;&iacute;&yuml;&aring;&igrave; &ouml;&acirc;&aring;&ograve; &ntilde;&ecirc;&eth;&icirc;&euml;&euml;&agrave; // with WebBrowser1 do //  begin //OleObject.document.body.Style.scrollbarArrowColor := '#0099FF'; //    OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF'; //    OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF'; //    OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF'; //    OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF'; //    OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF'; //    OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF'; // end; end; procedure Tgramm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin Image2.Picture.LoadFromFile('bmp/close_1.bmp'); // &iuml;&aring;&eth;&aring;&igrave;&aring;&ugrave;&aring;&iacute;&egrave;&aring; &ocirc;&icirc;&eth;&igrave;&ucirc;  if move=true then  begin    Gramm.Left:=Gramm.Left+x-x0; // &Egrave;&ccedil;&igrave;&aring;&iacute;&yuml;&aring;&igrave; &iuml;&icirc;&ccedil;&egrave;&ouml;&egrave;&thorn; &euml;&aring;&acirc;&icirc;&atilde;&icirc; &ecirc;&eth;&agrave;&yuml;    Gramm.Top:=Gramm.Top+y-y0; // &Egrave;&ccedil;&igrave;&aring;&iacute;&yuml;&aring;&igrave; &iuml;&icirc;&ccedil;&egrave;&ouml;&egrave;&thorn; &acirc;&aring;&eth;&otilde;&iacute;&aring;&atilde;&icirc; &ecirc;&eth;&agrave;&yuml;  end; // &Acirc;&icirc;&ccedil;&eth;&agrave;&ugrave;&agrave;&aring;&igrave; &igrave;&aring;&iacute;&thorn; if image3.hint<>'1' then begin image3.Picture.LoadFromFile('bmp\button\interface\soderzh1.bmp'); image3.Hint :='1'; end; if image4.hint<>'1' then begin image4.Picture.LoadFromFile('bmp\button\interface\print1.bmp'); image4.Hint :='1'; end; if image5.hint<>'1' then begin image5.Picture.LoadFromFile('bmp\button\interface\printgramm1.bmp'); image5.Hint :='1'; end; if image6.hint<>'1' then begin image6.Picture.LoadFromFile('bmp\button\interface\cansel1.bmp'); image6.Hint :='1'; end; end; procedure Tgramm.Image1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  if button <> mbLeft then    move:=false //&aring;&ntilde;&euml;&egrave; &iacute;&agrave;&aelig;&agrave;&euml;&egrave; &iacute;&aring; &euml;&aring;&acirc;&icirc;&eacute; &ecirc;&iacute;&icirc;&iuml;&ecirc;&icirc;&eacute;, &ograve;&icirc; &iuml;&aring;&eth;&aring;&igrave;&aring;&ugrave;&agrave;&ograve;&uuml; &iacute;&aring; &aacute;&oacute;&auml;&aring;&igrave;!  else  begin    move:=true;    x0:=x; //&ccedil;&agrave;&iuml;&icirc;&igrave;&egrave;&iacute;&agrave;&aring;&igrave; &iacute;&agrave;&divide;&agrave;&euml;&uuml;&iacute;&ucirc;&aring; &ecirc;&icirc;&icirc;&eth;&auml;&egrave;&iacute;&agrave;&ograve;&ucirc;    y0:=y; //&ccedil;&agrave;&iuml;&icirc;&igrave;&egrave;&iacute;&agrave;&aring;&igrave; &iacute;&agrave;&divide;&agrave;&euml;&uuml;&iacute;&ucirc;&aring; &ecirc;&icirc;&icirc;&eth;&auml;&egrave;&iacute;&agrave;&ograve;&ucirc;  end; end; procedure Tgramm.Image1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin move := false; end; procedure Tgramm.Image2Click(Sender: TObject); begin close; end; procedure Tgramm.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin Image2.Picture.LoadFromFile('bmp/close_2.bmp'); end; procedure Tgramm.FormShow(Sender: TObject); begin Image2.Picture.LoadFromFile('bmp/close_1.bmp'); Webbrowser1.Navigate(copy(Application.ExeName,1,length(Application.ExeName)-9)+'othercomp\gramm\index.htm'); // &ecirc;&iacute;&icirc;&iuml;&ecirc;&egrave; image3.Picture.LoadFromFile('bmp\button\interface\soderzh1.bmp'); image3.Hint :='1'; image4.Picture.LoadFromFile('bmp\button\interface\print1.bmp'); image4.Hint :='1'; image5.Picture.LoadFromFile('bmp\button\interface\printgramm1.bmp'); image5.Hint :='1'; image6.Picture.LoadFromFile('bmp\button\interface\cansel1.bmp'); image6.Hint :='1'; end; procedure Tgramm.Image4Click(Sender: TObject); var  vaIn, vaOut: OleVariant; begin  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,    vaIn, vaOut); end; procedure Tgramm.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if image3.Hint='1' then  begin  Image3.Picture.LoadFromFile('bmp/button/interface/soderzh2.bmp');  image3.Hint :='2';  end; end; procedure Tgramm.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if image4.Hint='1' then  begin  Image4.Picture.LoadFromFile('bmp/button/interface/print2.bmp');  image4.Hint :='2';  end; end; procedure Tgramm.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if image5.Hint='1' then  begin  Image5.Picture.LoadFromFile('bmp/button/interface/printgramm2.bmp');  image5.Hint :='2';  end; end; procedure Tgramm.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if image6.Hint='1' then  begin  Image6.Picture.LoadFromFile('bmp/button/interface/cansel2.bmp');  image6.Hint :='2';  end; end; procedure Tgramm.Image3Click(Sender: TObject); begin if Webbrowser1.LocationName<>'index.htm' then begin  Webbrowser1.Navigate(copy(Application.ExeName,1,length(Application.ExeName)-9)+'othercomp\gramm\index.htm'); end; end; procedure Tgramm.Image6Click(Sender: TObject); begin close; end; procedure Tgramm.Image5Click(Sender: TObject); begin WordApp := CreateOLEObject('Word.Application'); WordApp.Visible := True; WordApp.Documents.Open(copy(Application.ExeName,1,length(Application.ExeName)-9)+'othercomp\gramm\book.doc'); end; procedure Tgramm.WebBrowser1DocumentComplete(Sender: TObject;  const pDisp: IDispatch; var URL: OleVariant); begin with WebBrowser1 do begin   OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';   OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF';   OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF';   OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF';   OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF';   OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF';   OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF'; end; end; end.

И теперь при запуске вылазиет окно с текстом:
Method 'scrollbarArrowColor' not supported by automation object, а теперь в чем проблема???? Мож в свойствах браузера что-то надо настроить?

ауууууууу

Цитата(proger @ 17.11.2004, 15:26)

Method 'scrollbarArrowColor' not supported by automation object, а теперь в чем проблема???? Мож в свойствах браузера что-то надо настроить?

У тебя какая винда ? И какая версия IE ?

У меня это всё работает - менется стиль скроллбаров...
Возможно, твой IE не поддерживает изменения этих свойств...

Win2000, IE6. Я тоже думал что винда не поддерживает, а как тогда за место скрола хотябы сделать его не 3d а плоским, пример один нашел, не работает, посоветуй!

proger, ты можешь кинутьь мне на мыло скомпиленную на твоём компе прогу ? Посмотреть, будет ли она работать у меня...

p0s0l ok

Ошибка бывает из-за того, что в HTML-документе уже есть директивы для расскраски скроллбара. Используй или свой код или удали в HTML-документе.

Всё работает...

Странно... У меня тоже IE6... Только WinXP...
Хм...


Надо найти доки по интерфейсу HTMLBody и посмотреть инфу про Style... Может там раскроют в чём тут секрет...

p0s0lА где поискать, или просто напиши как его сделать не 3d и мне хватит. Спасибо!

p0s0lА где поискать, или просто напиши как его сделать не 3d и мне хватит. Спасибо!

Выяснил пока что одно:

Цитата(MSDN)

This feature requires Microsoft® Internet Explorer 5.5 or later.

Типа для этих фич нужно как минимум IE5.5, а у тебя IE6... Вот это очень странно...

Цитата(Guest @ 19.11.2004, 05:20)

p0s0lА где поискать, или просто напиши как его сделать не 3d и мне хватит. Спасибо!

Взято из FAQ:http://blackman.km.ru/myfaq/cont4.phtml
Перевод материала с сайта members.home.com/hfournier/webbrowser.htm



Следующий пример устанавливает borderStyle:

Код

procedure TForm1.WBDocumentComplete(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;

Автор: Donovan J. Edye

Ошибка кроется тут:

Код

Webbrowser1.Navigate(copy(Application.ExeName,1,length(Application.ExeName)-9)+'othercomp\gramm\index.htm');

И искать причину надо в загружаемом файле, поставь например так:

Код

Webbrowser1.Navigate('http://forum.vingrad.ru/index.php?');

И все будет работать

Цитата(KORN @ 18.11.2004, 19:41)

Ошибка бывает из-за того, что в HTML-документе уже есть директивы для расскраски скроллбара. Используй или свой код или удали в HTML-документе.

Проверяли на html, где нет никаких установок стилей, просто текст...

Alex, я так понял, что надо сделать плоским не сам WebBrowser, а только скроллбар... А вот с настройкой стиля скроллбара, как видишь, проблемы...


Добавлено @ 00:33
Кащей, не, проблема не в навигации ... Если бы ошибка была в навигации, то не было бы ошибки:

Цитата(proger)

И теперь при запуске вылазиет окно с текстом: Method 'scrollbarArrowColor' not supported by automation object

Возьмите пример из '\DEMOS\Coolstuf'. Заполните метод Webbrowser1.Navigate(), тем кодом, что прилогается и увидите, что все работает, но если ругнется именно на загружаемом файле, значит дело именно в нем, если не ругнется, выкидывайте из примера все лишнее, пока не наткнетесь на ошибку. А лучше оставте базой примерный браузер и доработайте его (как я)

Прошу прощение, я имел ввиду метод WebBrowser1DocumentComplete()

Да сложно, но мы пока не продвинулись

Как сделать плоским скрол???