--- oup/current/Tools/Preview.pas	2007/05/26 18:26:48	194
+++ oup/current/Tools/Preview.pas	2007/06/18 13:41:12	220
@@ -1,19 +1,21 @@
 unit Preview;
+
 interface
+
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, Template, ExtCtrls, Math, StrUtils,
-  ConnectionManager, OniImgClass, Data, TypeDefs, Menus, Buttons;
+  Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons,
+  TypeDefs, OniImgClass;
 
 type
-  TForm_Preview = class(TForm_ToolTemplate)
-    lbl_notpossible: TLabel;
+  TForm_Preview = class(TForm_TemplateFileList)
+    img: TImage;
     panel_buttons: TPanel;
     btn_dec: TButton;
     btn_startstop: TButton;
     btn_inc: TButton;
-    img: TImage;
     timer: TTimer;
+    lbl_notpossible: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure NewFile(fileinfo: TFileInfo);
 
@@ -36,12 +38,10 @@ type
   public
   end;
 
-var
-  Form_Preview: TForm_Preview;
-
 implementation
 {$R *.dfm}
-uses Imaging, ImagingComponents, ImagingTypes, jpeg;
+uses
+  ConnectionManager, Math, _TemplateFile;
 
 
 procedure TForm_Preview.FormCreate(Sender: TObject);
@@ -213,3 +213,4 @@ end;
 begin
   AddToolListEntry('preview', 'Preview-Window', '');
 end.
+