Вставить картинку из буфера в RichViewEdit

[Shouldercannon]

Не получается вставить картинку из буфера обмена в RichViewEdit (картинка была скопирована из того же RichViewEdit). Вот что имеется:
Параметры RichViewEdit

        object SendRVEdit: TRichViewEdit
          Left = 1
          Top = 1
          Width = 594
          Height = 104
          AcceptDragDropFormats = [rvddRVF, rvddText]
          EditorOptions = [rvoCtrlJumps, rvoWantTabs, rvoNoImageResize]
          ReadOnly = False
          OnChange = SendTextChange
          OnPaste = SendRVEditPaste
          Align = alClient
          Color = 16773874
          ParentShowHint = False
          PopupMenu = PopupSendRVEditMenu
          ShowHint = True
          TabOrder = 0
          OnKeyDown = SendRVEditKeyDown
          OnKeyUp = SendRVEditKeyUp
          AnimationMode = rvaniOnFormat
          BackgroundStyle = bsBottomLeft
          BottomMargin = 2
          DoInPaletteMode = rvpaCreateCopies
          LeftMargin = 2
          Options = [rvoAllowSelection, rvoScrollToEnd, rvoShowPageBreaks, rvoAutoCopyText, rvoAutoCopyRVF, rvoFormatInvalidate, rvoDblClickSelectsWord, rvoRClickDeselects, rvoShowItemHints, rvoFastFormatting]
          RightMargin = 2
          RTFReadProperties.TextStyleMode = rvrsAddIfNeeded
          RTFReadProperties.ParaStyleMode = rvrsAddIfNeeded
          RVFOptions = [rvfoSavePicturesBody, rvfoSaveControlsBody, rvfoSaveBinary, rvfoSaveTextStyles, rvfoSaveParaStyles, rvfoSaveDocProperties, rvfoLoadDocProperties]
          Style = RVEditStyle
          TopMargin = 2
          OnItemHint = SendRVEditItemHint
        end

Так я копирую содержимое RichViewEdit в буфер обмена

SendRVEdit.Copy;

так вставляю из буфера обмена

procedure TFormMain.SendRVEditPaste(Sender: TCustomRichViewEdit;
  var DoDefault: Boolean);
begin
  if Clipboard.HasFormat(CF_TEXT) Then DoDefault := True Else DoDefault := False;
end;
...
SendRVEdit.Paste;

Версия RichView 12

[mss]

CF_TEXT - это не картинка. Далеко не картинка)

[Shouldercannon]

procedure TFormMain.SendRVEditPaste(Sender: TCustomRichViewEdit;
  var DoDefault: Boolean);
begin
  if Clipboard.HasFormat(CF_TEXT) Then DoDefault := True Else DoDefault := False;
end;

Это всеголишь проверка на содержимое буфера. Даже без этой проверки не вставляется картинка.

[mss]

TRichViewEdit - а это что за класс ?
Версия Делфи какая ?

[Shouldercannon]

TRichViewEdit это компонент от RichView. Delphi 7

[mss]

Тогда ты обязан был проштудировать это
http://www.trichview.com/help/idh_tr...dit_paste.html

[Shouldercannon]

Обидно, что код идентичный с тем кто давал и не хочет работать.