Приходит 3d художник на собеседование в компанию по созданию компьютерных игр Шеф - за неделю нарисуйте какого нибудь монстра для нашей игры... Чисто на пробу, посмотреть на что вы способны.
- Не могли бы вы повернуться, чтобы я увидел вас со всех сторон, пожалуйста?
Следующий пример устанавливает borderStyle:
uses mshtml;
procedure TForm1.WBDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Doc : IHTMLDocument2;
Element : IHTMLElement;
begin
Doc := IHTMLDocument2(TWebBrowser(Sender).Document);
if Doc = nilthen
Exit;
Element := Doc.body;
if Element = nilthen
Exit;
case Make_Flat ofTRUE : Element.style.borderStyle := 'none';
FALSE : Element.style.borderStyle := '';
end;
end;
Статья Как сделать WebBrowser плоским вместо 3D раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal.
