Print TMemo with Lazreport
lazarus / 13-General

----------------------------------------------------------------------
lco · 2016-02-06 14:23

Hello,
Can somebody help me how to print the contents of TMemo with
Lazreport,
as well as with pascal code
I prefer Lazreport

Thanks

----------------------------------------------------------------------
balazsszekely · 2016-02-06 14:55

1. Drop a TButton and a TfrReport to your form. Make sure StoreInform
property is set to true.
2. Double click TfrReport, after the designer appears, drop a
Rectangle object to the desinger, rename it to Memo1
3. Close the designer, click to report, create OnEnterRect event.
Paste this code:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);begin  if
(View is TfrMemoView) then   if (View as TfrMemoView).Name = 'Memo1'
then     (View as TfrMemoView).Memo.Text := 'test test test';end;4. On
Button1 click:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.Button1Click(Sender: TObject);begin  frReport1.ShowReport;end;