Недавно добавленные исходники

•  3D Designer  81

•  Sik Screen Capture  65

•  Patch Maker  62

•  Айболит (remote control)  72

•  ListBox Drag & Drop  62

•  Доска для игры Реверси  898

•  Графические эффекты  71

•  Рисование по маске  50

•  Перетаскивание изображений  57

•  Canvas Drawing  53

•  Рисование Луны  134

•  Поворот изображения  43

•  Рисование стержней  38

•  Paint on Shape  33

•  Генератор кроссвордов  49

•  Головоломка Paletto  51

•  Теорема Монжа об окружностях  98

•  Пазл Numbrix  46

•  Заборы и коммивояжеры  67

•  Игра HIP  51

•  Игра Go (Го)  45

•  Симулятор лифта  45

•  Программа укладки плитки  47

•  Генератор лабиринта  90

•  Проверка числового ввода  38

•  HEX View  93

•  Физический маятник  96

•  Задача коммивояжера  122

•  Автомобильная пробка  46

•  Квадратные сетки из слов  40

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Как сделать WebBrowser плоским вместо 3D



Автор: Donovan J. Edye

Приходит 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 = 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;





Похожие по теме исходники

Mini WebBrowser (браузер)

Simple WebBrowser (браузер)




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter