Changeset 87 for oup/current/Tools

Timestamp:

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

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• BinEdit.dfm (modified) (1 diff)
• BinEdit.pas (modified) (2 diffs)
• Preview.dfm (modified) (1 diff)
• Preview.pas (modified) (2 diffs)
• Template.pas (modified) (5 diffs)

oup/current/Tools/BinEdit.dfm

@@ -4 +4 @@
   OnCloseQuery = FormCloseQuery
   OnKeyUp = FormKeyUp
-  ExplicitWidth = 500
-  ExplicitHeight = 450
   PixelsPerInch = 96
   TextHeight = 13
+  inherited panel_files: TPanel
+    inherited filelist: TListBox
+      ExplicitTop = 153
+      ExplicitHeight = 270
+    end
+  end
   inherited content: TPanel
     object Splitter2: TSplitter

oup/current/Tools/BinEdit.pas

@@ -57 +57 @@
     procedure value_viewer_contextPopup(Sender: TObject);
   private
-    fileid: LongWord;
+    fileid: Integer;
   public
   end;
@@ -291 +291 @@
   if VST.RootNodeCount = 0 then
   begin
-    structs := LoadStructureDefinition(fileid);
+    structs := LoadStructureDefinition(Connection, fileid);
     if structs.Data then
     begin

oup/current/Tools/Preview.dfm

@@ -3 +3 @@
   PixelsPerInch = 96
   TextHeight = 13
+  inherited panel_files: TPanel
+    inherited filelist: TListBox
+      ExplicitTop = 153
+      ExplicitHeight = 270
+    end
+  end
   inherited content: TPanel
     object lbl_notpossible: TLabel

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;

oup/current/Tools/Template.pas

@@ -102 +102 @@
 begin
   oldcon := combo_connection.Items.Strings[combo_connection.ItemIndex];
+  combo_connection.ItemIndex := -1;
   combo_connection.Items.Clear;
-  for i := 0 to High(DataConnections) do
-  begin
-    level := DataConnections[i].LevelInfo.LevelNumber;
-    fn := ExtractFileName(DataConnections[i].FileName);
-    if DataConnections[i].Backend = ODB_Dat then
-      datatype := 'ONI-.dat: '
-    else if DataConnections[i].Backend = ODB_ADB then
-      datatype := 'OUP-DB: '
-    else
-      datatype := 'Unknown: ';
-    boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ')';
-    combo_connection.Items.Add(boxstring);
-    if oldcon = boxstring then
-      combo_connection.ItemIndex := combo_connection.Items.Count - 1;
+  if Length(DataConnections) > 0 then
+  begin
+    for i := 0 to High(DataConnections) do
+    begin
+      level := DataConnections[i].LevelInfo.LevelNumber;
+      fn := ExtractFileName(DataConnections[i].FileName);
+      if DataConnections[i].Backend = ODB_Dat then
+        datatype := 'ONI-.dat: '
+      else if DataConnections[i].Backend = ODB_ADB then
+        datatype := 'OUP-DB: '
+      else
+        datatype := 'Unknown: ';
+      boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ')';
+      combo_connection.Items.Add(boxstring);
+      if oldcon = boxstring then
+        combo_connection.ItemIndex := combo_connection.Items.Count - 1;
+    end;
+    if combo_connection.ItemIndex = -1 then
+    begin
+      combo_connection.ItemIndex := 0;
+      combo_connectionChange(Self);
+    end;
+  end
+  else
+  begin
+    FConnection := nil;
+    filelist.Items.Clear;
+    combo_extension.Items.Clear;
+    combo_connectionChange(Self);
+    FSelectedFile := GetEmptyFileInfo;
+    if Assigned(FOnNewFileSelected) then
+      FOnNewFileSelected(FSelectedFile);
   end;
 end;
@@ -127 +146 @@
 begin
   combo_connection.Items.Clear;
-  for i := 0 to High(DataConnections) do
-  begin
-    level := DataConnections[i].LevelInfo.LevelNumber;
-    fn := ExtractFileName(DataConnections[i].FileName);
-    if DataConnections[i].Backend = ODB_Dat then
-      datatype := 'ONI-.dat: '
-    else if DataConnections[i].Backend = ODB_ADB then
-      datatype := 'OUP-DB: '
-    else
-      datatype := 'Unknown: ';
-    combo_connection.Items.Add(datatype + fn + ' (Level: ' + IntToStr(level) + ')');
-  end;
-  FConnection := DataConnections[0];
-  combo_connection.ItemIndex := 0;
-  combo_connectionChange(Self);
+  if Length(DataConnections) > 0 then
+  begin
+    for i := 0 to High(DataConnections) do
+    begin
+      level := DataConnections[i].LevelInfo.LevelNumber;
+      fn := ExtractFileName(DataConnections[i].FileName);
+      if DataConnections[i].Backend = ODB_Dat then
+        datatype := 'ONI-.dat: '
+      else if DataConnections[i].Backend = ODB_ADB then
+        datatype := 'OUP-DB: '
+      else
+        datatype := 'Unknown: ';
+      combo_connection.Items.Add(datatype + fn + ' (Level: ' + IntToStr(level) + ')');
+    end;
+    FConnection := DataConnections[0];
+    combo_connection.ItemIndex := 0;
+    combo_connectionChange(Self);
+  end
+  else
+  begin
+    FConnection := nil;
+    filelist.Items.Clear;
+    combo_extension.Items.Clear;
+    combo_connectionChange(Self);
+  end;
 end;
 
@@ -150 +179 @@
 begin
   combo_extension.Items.Clear;
-  combo_extension.Items.Add('_All files_ (' +
-    IntToStr(FConnection.GetFilesCount) + ')');
-  exts := FConnection.GetExtensionsList;
-  for i := 0 to High(exts) do
-    if Length(FAllowedExts) > 0 then
-    begin
-      if Pos(MidStr(exts[i],1,4), FAllowedExts) > 0 then
+  if FConnection <> nil then
+  begin
+    combo_extension.Items.Add('_All files_ (' +
+      IntToStr(FConnection.GetFilesCount) + ')');
+    exts := FConnection.GetExtensionsList;
+    for i := 0 to High(exts) do
+      if Length(FAllowedExts) > 0 then
       begin
+        if Pos(MidStr(exts[i],1,4), FAllowedExts) > 0 then
+        begin
+          combo_extension.Items.Add(exts[i]);
+        end;
+      end else
         combo_extension.Items.Add(exts[i]);
-      end;
-    end else
-      combo_extension.Items.Add(exts[i]);
-  combo_extension.ItemIndex := 0;
-  combo_extensionClick(Self);
+    combo_extension.ItemIndex := 0;
+    combo_extensionClick(Self);
+  end;
 end;
 
@@ -177 +209 @@
   i: LongWord;
 begin
-  Extension := MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex], 1, 4);
-  no_zero_bytes := not check_zerobyte.Checked;
-  pattern := '';
-  if check_filtername.Checked then
-    pattern := edit_filtername.Text;
-  if Extension = '_All' then
-    if Length(FAllowedExts) > 0 then
-      Extension := FAllowedExts
-    else
-      Extension := '';
-
-  files := FConnection.GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
-
-  filelist.Visible := False;
-  filelist.Items.Clear;
-  if Length(files) > 0 then
-    for i := 0 to High(files) do
-      filelist.Items.Add(files[i]);
-  filelist.Visible := True;
+  if FConnection <> nil then
+  begin
+    Extension := MidStr(combo_extension.Items.Strings[combo_extension.ItemIndex], 1, 4);
+    no_zero_bytes := not check_zerobyte.Checked;
+    pattern := '';
+    if check_filtername.Checked then
+      pattern := edit_filtername.Text;
+    if Extension = '_All' then
+      if Length(FAllowedExts) > 0 then
+        Extension := FAllowedExts
+      else
+        Extension := '';
+
+    files := FConnection.GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
+
+    filelist.Visible := False;
+    filelist.Items.Clear;
+    if Length(files) > 0 then
+      for i := 0 to High(files) do
+        filelist.Items.Add(files[i]);
+    filelist.Visible := True;
+  end;
 end;
 
@@ -296 +331 @@
   inherited;
   RecreateList;
-  FConnection := nil;
-  FSelectedFile.ID := -1;
-  FSelectedFile.FileName := '';
-  FSelectedFile.FileNameHex := '';
+  FSelectedFile := GetEmptyFileInfo;
   if Length(ToolList) > 0 then
   begin