Вставка содержимого буфера как картинку в RTF

Материал из DRKB

Вставка содержимого буфера как картинку в RTF[править | править код]

procedure TForm1.Button1Click(Sender: TObject);
var
  b: TBitmap;
  fr: TFormatRange;
  r: TRect;
begin
  b := TBitmap.create;
  b.Width := RXRichEdit1.Width;
  b.Height := RXRichEdit1.Height;
  r := Rect(0, 0, RXRichEdit1.Width * Screen.PixelsPerInch,
    RXRichEdit1.Height * Screen.PixelsPerInch);
  fr.HDC := b.Canvas.Handle;
  fr.HDCTarget := b.Canvas.Handle;
  fr.rc := r;
  fr.rcpage := r;
  fr.chrg.cpMin := 0;
  fr.chrg.cpMax := -1;
  SendMessage(RXRichEdit1.Handle, EM_FORMATRANGE, 1, LongInt(@fr));
  Image1.Picture.Assign(b);
  b.Free;
end;


Source: http://delphiworld.narod.ru/
ID: 01915