Приходит 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, преобразовав его из трёхмерной формы в плоскую, с помощью изменения стиля границы элемента BODY документа.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.