Вставка содержимого буфера как картинку в 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