TCustomRichViewEdit.InsertPicture

<< Нажмите, чтобы показать Содержание >>

TCustomRichViewEdit.InsertPicture

Вставляет новый рисунок в позицию каретки.

function InsertPicture(const Name: TRVUnicodeString; gr: TRVGraphic;

  VAlign: TRVVAlignImageWidth: TRVStyleLength = 0;

  ImageHeight: TRVStyleLength = 0): Boolean;

Если нужно, чтобы вставляемое изображение было гиперссылкой, используйте метод InsertHotPicture.

Параметры:

AName имя элемента-рисунка, любая строка. AName не должен содержать символы CR и LF. TRichViewEdit не использует имена элементов, они предназначены для использования программистом.

gr добавляемое изображение. По умолчанию, TRichViewEdit будет владеть этим изображением, и вы не должны уничтожать его. Однако вы можете присвоить ненулевое значение дополнительному свойству элемента rvepShared, тогда этот элемент будет общим (и вам нужно будет освобождать память под него самостоятельно).

Редко используемые изображения могут быть «деактивированы», то есть сохранены в потоки в памяти и уничтожены (см. RichViewMaxPictureCount). Общие изображения никогда не деактивируются.

VAlign выравнивание элемента относительно строки текста, см. возможные значения в разделе о типе TRVVAlign.

Изображение будет показано растянутым до размера ImageWidth x ImageHeight (если эти параметры имеют положительные значения, см. rvepImageWidth и rvepImageHeight в TRVExtraItemProperty).

Тип метода: editstyle редактирование документа (вставка).

Возвращаемое значение:

True при успешной вставке (вставка может быть неуспешной из-за защиты документа, режима только для чтения, или если выделены несколько ячеек таблицы). При неуспешной вставке gr уничтожается.

Пример (VCL): вставка значка (ico) из файла:

var ico: TIcon;

...

ico := TIcon.Create;

ico.LoadFromFile('My Icon.ico');

MyRichViewEdit.InsertPicture('',ico, rvvaBaseline);

Пример 2 (вставка изображения любого поддерживаемого формата):

var gr: TRVGraphic;
...
if OpenPictureDialog1.Execute then
  gr := RVGraphicHandler.LoadFromFile(OpenPictureDialog1.FileName);
  if gr<>nil then
    MyRichViewEdit.InsertPicture('', gr, rvvaBaseline)
  else
    // здесь обработка неуспешной загрузки
end;

См. также методы TCustomRichView:

AddPicture.

См. также:

Вставка элементов документа в позицию каретки;

Типы элементов.