TWebBrouser

← →
KMI (2003-09-08 11:09) [0]

Пожалуйста, помогите: для докумета HTML в окне TWebBrouser надо ввести диалог изменения размера шрифта (мелкий-средний-крупный).
Как это сделать?

← →
Barmutik © (2003-09-08 11:39) [1]

А какой там диалог ???

В Internet Explorer просто выбор варианта из 5 возможных. Ну так и ты так сделай.. своё окно с 5 вариантами и потом просто зумь шрифт в зависимости от того что пользователь выбрал.

МойБраузер.Zoom(Моё_значение), где Моё_значение = (1..5) или точно не помню от 0 до 5.

← →
KMI (2003-09-08 11:57) [2]

Метода zoom у WebBrowser нет. Есть ExecWB. Но там такой фокус не проходит. Хотя, я, может быть, не так понял. Опиши идею поподробней :) Спасибо

← →
Barmutik © (2003-09-08 12:05) [3]

Извиняюсь ... я просто использую EmbeddedWB... там Zoom реализован так:

if ZoomValue < ZoomRangeLow then vaIn := ZoomRangeLow else
if ZoomValue > ZoomRangeHigh then vaIn := ZoomRangeHigh else
vaIn := ZoomValue;
InvokeCmd(FALSE, OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);

← →
KMI (2003-09-08 13:02) [4]

А как это реализовать в стандартном TWebBrowser?

TWebBrouser Найти похожие ветки