| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Как Вы относитесь к курящим девушкам? Как связать ADOTable с DBGrid (Delphi)?, MS Access Сново запись данных в BD???!!! Как Вы относитесь к курящим девушкам? Пароль на DBase DBF файл?????!!!!!!, ХОЧУ ЗНАТЬ!!! Пропадают записи, в БД База данных на ClientDataSet!!!???, процедуры работы с ClientDataSet??? Установка BDE, как правильно устанавливать BDE TTable Добавление или замена данных в BD????!!!!!!, ОЧЕНЬ НАДО!!! Нашел старую лабу Навигация в BDE Delphi, BDE, Paradox, SQL запрос, как сделать запрос? пароль, bde administrator Параметры запроса, помогите Подключение к БД. Delphi+ADO Как заставить БДЕ не откатываться? Delphi, ADO, MS SQL 2000 Как определить номер текущей записи?, Использую Query (BDE). Sybase Создание инсталляции для BDE, помогите Case...of Где найти примеры БД на Delphi, inside База данных Первая колонка в базе!, хелп! BDE. Файл inmem000.rem, Почему "растет" файл inmem000.rem? Delphi & MSAccess, Можно ли в Delphi работать с MSAccess? Delphi, xml и БД Огромная проблема с BDE администратором! под win2k Ошибка в BDE Administrator Access+SQL, Ошибка в запросе Драйвера BDE, или как создать не Paradox Как запустить программу деинсталляции? пароль для поля таблицы, Help!!! БД в Delphi 6 Нужна помощь по запросу, Динамический запрос BDE, как она использует память Locate по нескольким полям в TADOQuery, Delphi, "Invalid variant type conversation" ADOQuery, CommandText does not return a result set Пароль на базу данных, использую BDE и DataBase Desktop Глюки BDE. Paradox., Пропадают данные. Прямой SQL - запрос., Subj MS Access 97 + пароль к ней + BDE Вопрос о ресурсах..., .................................. Переименование таблицы Как создать копию db таблицы? BDE Error: Index does not exist Как Вы относитесь к курящим девушкам? как добавлять, редактировать, удалять записи через, запросы SQL? Ошибка в запросе SQL Значение из таблицы получения списка таблиц Добавление изображений в базу, Подскажите пожалуста как это сделать DBgrid - Clear, как очистить DbGrid Событие OnFocus у Мемо?, Как сделать? БД Paradox Офигенно простой вопрос про TQuery TADOQuery, Как объявить параметры в TADOQuery? Delphi 5 & InterBase 6, Не могу создать хранимую процедуру Как Вы относитесь к курящим девушкам? Добавление в конец текста MS Word Своё popup меню для браузера TWebBrowser, FullScreen И снова TWebBrowser, Размер шрифта Word и компонент OleContainer, Отображаеться только одна страница Как передать параметры с hml в ocx HEX, FileStream Несколько одинаковых страниц в Word, как создать? TF1Book... |
Платные хостинги Раскрутка сайта Книги по программированию И снова TWebBrowser, Размер шрифта
- Как в TWebBrowser установить размер шрифта? Ну что-то вроде этого: Самый большой, бльшой, средний, маленький, мизерный. Как в MSDN. - Пока сам разбирался как это делается, написал по ходу примерчик:Код unit Unit1;interfaceuses Windows, Messages, Variants, Classes, Controls, Forms, ActiveX, OleCtrls, SHDocVw, StdCtrls;type TForm1 = class(TForm) WebBrowser1: TWebBrowser; ComboBox1: TComboBox; procedure FormCreate(Sender: TObject); procedure ComboBox1Change(Sender: TObject); private { Private declarations } procedure SetWBFontSz(FontSize: Byte; var WB: TWebBrowser); public { Public declarations } end;var Form1: TForm1;const WBFS_LARGEST = 4; { Самый крупный } WBFS_LARGE = 3; { Крупный } WBFS_AVERAGE = 2; { Средний } WBFS_FINE = 1; { Мелкий } WBFS_FINEEST = 0; { Самый мелкий }implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin WebBrowser1.Navigate('http://www.google.com');end;procedure TForm1.SetWBFontSz(FontSize: Byte; var WB: TWebBrowser);var Disp: IDispatch; CmdTarg: IOleCommandTarget; ZoomFaktor: OleVariant;begin Disp := WB.Document; Disp.QueryInterface(IOleCommandTarget, CmdTarg); VariantInit(ZoomFaktor); ZoomFaktor := FontSize; CmdTarg.Exec(nil, OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, ZoomFaktor, EmptyParam); VariantClear(ZoomFaktor); if Assigned(CmdTarg) then CmdTarg._Release; if Assigned(Disp) then Disp._Release;end;procedure TForm1.ComboBox1Change(Sender: TObject);begin case ComboBox1.ItemIndex of 0: SetWBFontSz(WBFS_LARGEST, WebBrowser1); 1: SetWBFontSz(WBFS_LARGE, WebBrowser1); 2: SetWBFontSz(WBFS_AVERAGE, WebBrowser1); 3: SetWBFontSz(WBFS_FINE, WebBrowser1); 4: SetWBFontSz(WBFS_FINEEST, WebBrowser1); end;end;end.highlightSyntax('delphiJlMjg0','delphi');Думаю ссылку на оригинал не нужно приводить? - Можно проще:Код procedure SetWBFontSz(FontSize: integer; var WB: TWebBrowser);var ZoomFaktor: OleVariant;begin ZoomFaktor := FontSize; wb.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, ZoomFaktor); VariantClear(ZoomFaktor);end;highlightSyntax('delphiWNhN2M','delphi');Только всё равно это не работает т.к. надо - не меняется размер шрифта всего документа... - Почему? - Спасибо не надо - и так всё понятно. Я просто не знал как команды нужные называются.Цитата (p0s0l @ 20.6.2005, 01:38)Только всё равно это не работает т.к. надо - не меняется размер шрифта всего документа...А и не должен. Меняется размер по умолчанию установленных h1, h2, h3, h4, h5, h6. Если я не вру, конечно... P.s. DRKB готова на ~ 75% - Я загрузил первый попавшийся HTML, там изменялся размер только 1 строчки - заголовка... - Ну тогда всё правильно. Просто веб-мастера для того, что бы страница выглядела на всех компах одинаково, фиксируют шрифт на странице. Причём совершенно не заботясь о тех у кого проблемы со зрением. То же самое, к стати сделано и на Vingrad'е. Размер шрифта здесь тоже нельзя менять. - А, ну тогда всё верно  |