Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Окт

Вставить картинку из ImageList в RichView

Posted by maloy under Delphi, Архив

Shouldercannon

Реально ли вставить картинку из ImageList в RichView?

Greek9000

Если необходимо именно в RichView вставить картинку, то относительно простого пути скорее всего не существует. Метод PasteFromClipboard вставляет только текст, а стандартных методов вставки изображения я не нашёл. Соответственно на ум приходят два варианта:
1. отказаться от ричэдита в пользу другого компонента, либо
2: поискать описание ДЛЛ-ки RICHED32.DLL (компонент обращается именно к ней) и дописать собственный метод вставки изображения.
Если нет необходимости открывать rtf-документы, то лично я бы воспользовался THTMLViewer-ом.

Shouldercannon

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  ImageList1.GetBitmap(0, bmp);

  RichView1.AddPictureEx('', bmp1, 0, rvvaAbsMiddle);
  RichView1.Format;
end;