Показать сообщение отдельно
  #14  
Старый 02.03.2017, 16:44
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Оффтоп: Респект за упёртость и въедчивость, хорошо ведь, когда досконально всё прорабатывается

Мож поможет:
Цитата:
Сообщение от Samum2000
... У WebBrowser...есть метод execCommand интерфейса IHTMLTxtRange (он описан в модуле MSHTML_TLB). Рассмотрим простой пример.

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

Сначала в этой процедуре создается объект Range. После этого вызывается метод execCommand:

function execCommand(cmdID: WideString; ShowUI: WordBool; Value: OleVariant): wordbool;
cmdID – это строка идентификатор команды (в нашем примере 'bold' заставляет редактор переключаться между жирным и обычным начертанием текста); полный список команд смотри в приложении.
ShowUI – Show User Interface - показывать интерфейс пользователя (если таковой имеется, как правило это различные диалоговые окна). Если параметр равен False, то команда выполняется без предупреждения.
value – содержит дополнительную информацию в зависимости от команды.

Несколько слов об объекте Range. Помимо уже знакомого нам execCommand этот объект обладает еще рядом свойств и методов, некоторые из которых сейчас рассмотрим.

Text WideString Содержит текст выделения (без тегов HTML)
HTMLText WideString Полный текст выделения
moveStart(const unit_:widestring;
count:integer) procedure Перемещает начальную позицию выделения на count символов вправо (если count<0, то влево), unit_-единицы измерения смещения (чаще всего используется 'character': 1 символ). При этом конечная позиция не смещается.
moveStart(const unit_:widestring;count:integer) procedure То же самое, только для конечной позиции выделения.
PasteHTML(const html: widestring); procedure Вставляет HTML-строку
execCommandShowHelp(cmdID: widestring); Function,
wordbool Отображает помощь по команде, указанной в cmdID

...

Доступные команды

BackColor Устанавливает или получает цвет фона текущего выделения. Value должно содержать имя цвета или его шеснадцитиричный RGB эквивалент (например, #FFCC00).
Bold Переключает начертание текста текущего выделения между полужирным и нормальным.
Copy Копирует выделение в буфер обмена
CreateBookmark Получает имя якоря или создает его для текущего выделения. Value - строка, содержащая имя якоря.
CreateLink Получает URL ссылки или создает новую ссылку. Параметр Value должен содержать URL.
Cut Вырезает текущее выделение в буфер обмена.
Delete Очищает текущее выделение (удаляет всё его содержимое).
Find Находит текст, заданный в параметре Value в текущем выделении.
FontName Устанавливает шрифт для текущего выделения. Value содержит описание этого шрифта (как в теге FONT).
FontSize Устанавливает размер шрифта. Value - число от 1 до 7 включительно.
ForeColor Устанавливает цвет текста. Value должно содержать имя цвета или его шеснадцитиричный RGB эквивалент (например, #FFCC00)
FormatBlock Устанавливает или получает форматирование текущего блока. Value может содержать теги-описатели.
Indent Увеличивает отступ выделенного текста на одну единицу приращения
InsertButton Записывает идентификатор кнопки вместо текущего выделения. Value - строка, содержащая идентификатор кнопки.
InsertFieldset То же для поля ввода.
InsertHorizontalRule То же для горизонтальной полосы.
InsertIFrame То же для встроеных фреймов (IFRAME).
InsertImage То же для изображений.
InsertInputButton То же для кнопки.
InsertInputCheckbox То же для чекбоксов (checkBox).
InsertInputFileUpload То же для элемента выбора файла.
InsertInputHidden То же для скрытого поля (hidden)
InsertInputImage То же для изображения.
InsertInputPassword То же для поля ввода пароля.
InsertInputRadio То же для радио-кнопок (Radio)
InsertInputReset То же для кнопки reset.
InsertInputSubmit То же для кнопки Submit.
InsertInputText То же для поля ввода текста.
InsertParagraph Вставляет новый раздел (абзац).
InsertOrderedList Переключает стиль текущего выделения между списком и простым текстом.
InsertUnorderedList То же самое.
InsertSelectDropdown Записывает элемент Drop-down вместо текущего выделения. Value должно содержать идентификатор элемента.
InsertTextArea То же для элемента TextArea.
Italic Переключает начертание текста текущего выделения между наклонным и обычным.
JustifyCenter Устанавливает выравнивание по центру для всего блока, в котором расположено текущее выделение.
JustifyLeft Устанавливает выравнивание по левому краю для всего блока, в котором расположено текущее выделение.
JustifyRight Устанавливает выравнивание по правому краю для всего блока, в котором расположено текущее выделение.
Outdent Уменьшает отступ для всего блока, в котором расположено выделение, на одну единицу.
OverWrite Переключается между режимами вставки текста и замены текста при вводе. Value: true - замена, false - вставка.
Paste Вставляет текст из буфера обмена вместо текущего выделения.
Refresh Обновляет текущий документ.
RemoveFormat Удаляет из текущего фрагмента все теги форматирования
SelectAll Выделяет все содержимое документа.
UnBookmark Удаляет все закладки из текущего выделения.
Underline Переключает начертание текста текущего выделения между подчеркнутым и обычным.
Unlink Удаляет все гиперссылки из текущего выделенного фрагмента.
Unselect Снимает выделение.
Ответить с цитированием