Changeset 87 for oup/current/Tools/Preview.pas

Timestamp:

Jan 14, 2007, 11:59:34 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/Preview.pas (modified) (2 diffs)

oup/current/Tools/Preview.pas

@@ -32 +32 @@
     bitmaps:   array of TBitmap;
     actualimg: Byte;
-    _fileid:   LongWord;
+    _fileid:   Integer;
   public
   end;
@@ -55 +55 @@
 begin
   _fileid := fileinfo.ID;
-  lbl_notpossible.Visible := False;
-  Self.img.Visible := True;
-  Self.timer.Enabled := False;
-  Self.panel_buttons.Visible := False;
-  ext     := fileinfo.Extension;
-  if (ext = 'PSpc') or (ext = 'TXMB') or (ext = 'TXMP') then
-    PreviewImage
-  else if ext = 'TXAN' then
-    PreviewTXAN
-  else
-  begin
-    Self.lbl_notpossible.Visible := True;
+  if _fileid >= 0 then
+  begin
+    lbl_notpossible.Visible := False;
+    Self.img.Visible := True;
+    Self.timer.Enabled := False;
+    Self.panel_buttons.Visible := False;
+    ext     := fileinfo.Extension;
+    if (ext = 'PSpc') or (ext = 'TXMB') or (ext = 'TXMP') then
+      PreviewImage
+    else if ext = 'TXAN' then
+      PreviewTXAN
+    else
+    begin
+      Self.lbl_notpossible.Visible := True;
+      Self.img.Visible := False;
+    end;
+  end
+  else
+  begin
     Self.img.Visible := False;
+    lbl_notpossible.Visible := False;
+    Self.timer.Enabled := False;
+    Self.panel_buttons.Visible := False;
   end;
 end;