Получение bitmap'а компонента TRichEdit

cfbogd — Sat, 21 Jan 2017 19:21:54 GMT

Получение изображение типа TBitmap компонента TRichEdit(с TMemo не работает).

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);    //можно OnChange, только будет опаздывать
var img:HDC;
b:TBitmap;
begin
b:=TBitmap.Create;
b.Width:=RichEdit1.Width;
b.Height:=RichEdit1.Height;
image1.Width:=RichEdit1.Width;
image1.Height:=RichEdit1.Height;
img := GetDC(RichEdit1.Handle);
BitBlt(b.Canvas.Handle,0,0,RichEdit1.Width,RichEdit1.Height,img,0,0,SRCCOPY);
image1.Canvas.Draw(0,0,b);
b.Free;
end;

Форум программистов и сисадминов Киберфорум - Блоги - Полезные и редкие строчки кода на Delphi. Автор cfbogd

Получение bitmap'а компонента TRichEdit