ADD: Print command for Viewer

src/fviewer.lfm

@@ -161,6 +161,11 @@ object frmViewer: TfrmViewer
         ShortCut = 78
         OnClick = miNextClick
       end
+      object miPrint: TMenuItem
+        Caption = 'Print...'
+        ShortCut = 16464
+        OnClick = miPrintClick
+      end
       object miSeparator: TMenuItem
         Caption = '-'
       end

src/fviewer.lrt

@@ -3,6 +3,7 @@ TFRMVIEWER.PGIMAGE.CAPTION=pgImage
 TFRMVIEWER.MIFILE.CAPTION=&File
 TFRMVIEWER.MIPREV.CAPTION=&Previous
 TFRMVIEWER.MINEXT.CAPTION=&Next
+TFRMVIEWER.MIPRINT.CAPTION=Print...
 TFRMVIEWER.MISEPARATOR.CAPTION=-
 TFRMVIEWER.MISAVEPOS.CAPTION=&Save Position
 TFRMVIEWER.N1.CAPTION=-

src/fviewer.pas

@@ -40,6 +40,7 @@ type
 
   TfrmViewer = class(TForm)
     Image: TImage;
+    miPrint: TMenuItem;
     miSearchNext: TMenuItem;
     pmiSelectAll: TMenuItem;
     miDiv5: TMenuItem;
@@ -83,6 +84,7 @@ type
     procedure FormCreate(Sender : TObject);
     procedure FormKeyPress(Sender: TObject; var Key: Char);
     procedure miPluginsClick(Sender: TObject);
+    procedure miPrintClick(Sender: TObject);
     procedure miSearchNextClick(Sender: TObject);
     procedure pnlListerResize(Sender: TObject);
     procedure ScrollBoxResize(Sender: TObject);
@@ -274,6 +276,17 @@ begin
     ViewerControl.MapFile(FileList.Strings[iActiveFile]);
 end;
 
+procedure TfrmViewer.miPrintClick(Sender: TObject);
+var
+  aRect: TRect;
+begin
+  if bPlugin then
+    begin
+      aRect:= pnlLister.ClientRect;
+      WlxPlugins.GetWlxModule(ActivePlugin).CallListPrint(FileList[iActiveFile], EmptyStr, 0, aRect);
+    end;
+end;
+
 procedure TfrmViewer.miSearchNextClick(Sender: TObject);
 begin
   DoSearch(True);