richmemo: Print() method introduced and implemented for Win32.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4056 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/richmemo/richmemohelpers.pas

@@ -86,6 +86,7 @@ type
     function SelAttributes: TTextAttributes;
     function Paragraph: TParaAttributes;
     function FindText(const SearchStr: String; StartPos, Length: Integer; Options: TSearchTypes): Integer;
+    procedure Print(const ACaption: String); overload;
   end;
 {$ELSE}
   {$WARNING Class Helpers require FPC 2.6.0 or later, RichEdit compatible methods will not be available }
@@ -339,6 +340,15 @@ begin
   else Result:=StartPos+Result-1;
 end;
 
+procedure TRichEditForMemo.Print(const ACaption: String);
+var
+  prm : TPrintParams;
+begin
+  InitPrintParams(prm);
+  prm.Title:=ACaption;
+  Print(prm);
+end;
+
 {$ENDIF}
 
 end.