Как вставить Bitmap в TRichEdit?

Delphi , Компоненты и Классы , TMemo и TRichEdit

Вот так можно вставить картинку в формате Bitmap в позицию курсора в TRichEdit:

Примеры использования:

Таким же образом можно вставлять картинки не только в TRichEdit, но и в RxRichEdit, стандартный виндовый RichEdit, etc.
 
 

Автор: Krid

Перевод контента на русский язык:

Для вставки битмапа в контрол TRichEdit в Delphi можно использовать следующие шаги:

1. Создайте экземпляр класса TImageDataObject и установите свойство Bitmap в handle вашего битмапа.
2. Вызовите метод InsertBitmap на экземпляре класса TImageDataObject, передав handle RichEdit-контрола в качестве параметра.

Вот пример кода, демонстрирующий это:

uses ..., re_bmp;

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: HBITMAP;
begin
   // Загрузите ваш битмап из файла или создайте его программно
  bmp := Image1.Picture.Bitmap.Handle;

   // Создайте экземпляр класса TImageDataObject и установите свойство Bitmap
  with TImageDataObject.Create do
  try
    SetBitmap(bmp);
     // Вставьте битмап в RichEdit-контрол
    InsertBitmapToRE(RichEdit1.Handle, bmp);
  finally
    Free;
  end;
end;

Метод InsertBitmapToRE определен в unit re_bmp и принимает два параметра: handle RichEdit-контрола и handle битмапа для вставки.

Также можно использовать подход с потоками (Stream) для вставки изображения в RichEdit-контрол. Вам нужно будет преобразовать ваш битмап в код RTF с помощью функции BitmapToRTF, создать экземпляр класса TStream, записать код RTF в него и затем передать этот поток методу PutRTFSelection RichEdit-контрола.

Вот пример кода, демонстрирующий это:

uses ..., re;

procedure TForm1.Button2Click(Sender: TObject);
var
  SS: TStringStream;
  BMP: TBitmap;
begin
   // Загрузите ваш битмап из файла или создайте его программно
  BMP := Image1.Picture.Bitmap;

   // Преобразуйте битмап в код RTF
  SS := TStringStream.Create(BitmapToRTF(BMP));
  try
     // Вставьте код RTF в RichEdit-контрол
    PutRTFSelection(RxRichEdit1, SS);
  finally
    SS.Free;
  end;
end;

Обратите внимание, что вам нужно будет реализовать функцию BitmapToRTF и метод PutRTFSelection в вашем коде. Функция BitmapToRTF преобразует битмап в код RTF, а метод PutRTFSelection вставляет этот код RTF в RichEdit-контрол.

Как вставить Bitmap в TRichEdit? Вставка bitmap в RichEdit.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TMemo и TRichEdit ::