diff --git a/components/jvcllaz/run/JvCustomControls/jvimagesviewer.pas b/components/jvcllaz/run/JvCustomControls/jvimagesviewer.pas
index d69bd1d43..63d551c00 100644
--- a/components/jvcllaz/run/JvCustomControls/jvimagesviewer.pas
+++ b/components/jvcllaz/run/JvCustomControls/jvimagesviewer.pas
@@ -133,6 +133,7 @@ type
       AItemRect, TextRect: TRect); override;
   public
     constructor Create(AOwner: TComponent); override;
+    function AddImageFromFile(const AFileName: String): Integer; virtual;
     function LoadImages: Boolean;virtual;
     procedure CustomSort(Compare: TListSortCompare); override;
 
@@ -364,6 +365,7 @@ begin
   FreeAndNil(FPicture);
 end;
 
+
 //=== { TJvImagesViewer } ====================================================
 
 constructor TJvImagesViewer.Create(AOwner: TComponent);
@@ -374,6 +376,21 @@ begin
   Color := clWindow;
 end;
 
+function TJvImagesViewer.AddImageFromFile(const AFileName: String): Integer;
+var
+  item: TJvViewerItem;
+  c: TJvViewerItemClass;
+begin
+  c := GetItemClass;
+  if (c <> TJvPictureItem) then
+    raise Exception.Create('TJvImagesViewer can only handle TJvPictureItem objects');
+
+  item := c.Create(self);
+  TJvPictureItem(item).FileName := AFileName;
+  Result := Add(item);
+  Invalidate;
+end;
+
 function TJvImagesViewer.ScaleRect(ARect, RefRect: TRect): TRect;
 var
   w, h, cw, ch: Integer;