This forum is temporaily read-only. All existing discussions remain available for reference. For new questions, bug reports or support requests, please contact us at mail@lmdsupport.com.
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
Comments