Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Categories
In this Discussion
- Eugene Balabuev (LMD) August 4
LMDRichEdit Preview
hello, unable to retrieve the contents of the LMDRichEdit.
procedure TForm1.PreviewClick(Sender: TObject);
var
Bitmap: TBitmap;
R: TRect;
I: Integer;
begin
Bitmap := TBitmap.Create;
R := LMDRichEdit.Preview(Bitmap.Canvas, True, I);
Bitmap.SetSize(R.Width, R.Height);
Image1.AutoSize := True;
Image1.Picture.Assign(Bitmap);
Bitmap.Free;
end;
var
Bitmap: TBitmap;
R: TRect;
I: Integer;
begin
Bitmap := TBitmap.Create;
R := LMDRichEdit.Preview(Bitmap.Canvas, True, I);
Bitmap.SetSize(R.Width, R.Height);
Image1.AutoSize := True;
Image1.Picture.Assign(Bitmap);
Bitmap.Free;
end;
Thank you
Tagged:
Comments