PDA

Просмотр полной версии : Delphi - Задание межстрочного интервала в WebBrowser


Flame of Soul
04.02.2009, 09:31
Каким параметром задать межстрочный интервал в webbrowser.

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Range: IHTMLTxtRange;
begin
Range := (editor.selection.createRange as IHTMLTxtRange);
Range.execCommand('bold', false, emptyparam)
end;

тут в качестве параметра cmdID идет bold, а вот команду на изменение межстрочного интервала найти немогу;

Разобрала mshtml.dll mshtmler.dll mshtmled.dll искала команды вызовов, много чего перепробовала но ничего неподошло.

Просьба подскажите команду или функцию для изменения межстрочного интервала в этом компоненте в режиме редактирования.

Flame of Soul
16.02.2009, 16:13
Простите, что подымаю тему 12 дневной давности, но вопрос остается открытым, а проблема не решенной(((

Большое спасибо за понимание!

eskander
19.02.2009, 17:52
Как вариант можно подменять CSS файл страницы своим, в котором уже будет изменяться междустрочный интервал:
line-height: 120%;

Flame of Soul
19.02.2009, 19:48
Идея конечно неплохая, но тогда получится что если надо изменить 1000 строку придется парсингом приписывать данный код в нужное место или задавать как стиль, потом а потом рефрешить.

Но это пока единственное решение которое мне удалось релизовать, но это неправильное решение, так как где-то должен быть системный вызов данной функции, просто обязан(((

есть обращение через оле
OleObject.document.Body.Style.Lineheight:=0.5;
но изменение в данном случае затрагивает весь текс находящийся там, а метод Select и его аналоги при использовании их вместо Body вызывают ошибку. Манипуляции с IHTMLTxtRange тоже результата не принесли. Надеюсь кто нибудь мне поможет решить эту задачу, для изменения межстрочного интервала выделенных строк.