--- oup/current/Tools/Preview.pas	2007/05/24 17:48:18	192
+++ oup/current/Tools/Preview.pas	2007/05/26 18:26:48	194
@@ -28,6 +28,7 @@ type
     procedure DrawImage(index: Integer);
     procedure SetBitmapCount(Count: Integer);
     procedure LoadImage(fileid, index: Integer);
+    procedure Splitter1Moved(Sender: TObject);
   private
     bitmaps:   array of TOniImage;
     actualimg: Byte;
@@ -40,13 +41,14 @@ var
 
 implementation
 {$R *.dfm}
-uses Imaging, ImagingComponents, ImagingTypes;
+uses Imaging, ImagingComponents, ImagingTypes, jpeg;
 
 
 procedure TForm_Preview.FormCreate(Sender: TObject);
 begin
   inherited;
   Self.OnNewFileSelected := NewFile;
+  SetBitmapCount(0);
 end;
 
 
@@ -55,6 +57,7 @@ var
   ext: String;
 begin
   _fileid := fileinfo.ID;
+  SetBitmapCount(0);
   if _fileid >= 0 then
   begin
     lbl_notpossible.Visible := False;
@@ -90,7 +93,7 @@ end;
 
 procedure TForm_Preview.DrawImage(index: Integer);
 begin
-  bitmaps[index].DrawOnCanvas(img.Canvas, 0);
+  bitmaps[index].DrawOnCanvas(img.Canvas, 1);
 end;
 
 
@@ -114,6 +117,14 @@ begin
 end;
 
 
+procedure TForm_Preview.Splitter1Moved(Sender: TObject);
+begin
+  inherited;
+  img.Picture.Assign(nil);
+  if Length(bitmaps) > 0 then
+    DrawImage(0);
+end;
+
 procedure TForm_Preview.PreviewImage;
 begin
   SetBitmapCount(1);
@@ -159,6 +170,8 @@ begin
   Self.timer.Enabled   := not Self.timer.Enabled;
   Self.btn_dec.Enabled := not Self.timer.Enabled;
   Self.btn_inc.Enabled := not Self.timer.Enabled;
+  if self.timer.Enabled then
+    timerTimer(Self);
   if Self.timer.Enabled then
     Self.btn_startstop.Caption := 'Stop automatic'
   else
@@ -199,4 +212,4 @@ end;
 
 begin
   AddToolListEntry('preview', 'Preview-Window', '');
-end.
\ No newline at end of file
+end.