Changeset 92 for oup/current/Tools/BinEdit.pas

Timestamp:

Jan 16, 2007, 12:35:04 AM (18 years ago)

Author:

alloc

Message:

Rev86 was first after multi-cons

File:

• oup/current/Tools/BinEdit.pas (modified) (11 diffs)

oup/current/Tools/BinEdit.pas

@@ -32 +32 @@
     procedure hexChange(Sender: TObject);
 
-    procedure LoadDat(_fileid: LongWord);
+    procedure LoadDat(_fileid: Integer);
     function Save: Boolean;
     function GetValue(datatype: Word; offset: LongWord): String;
@@ -57 +57 @@
     procedure value_viewer_contextPopup(Sender: TObject);
   private
+    con: TOniData;
     fileid: Integer;
   public
@@ -93 +94 @@
   value_viewer.RowCount := 8;
   value_viewer.FixedRows := 1;
+  value_viewer.FixedCols := 1;
   value_viewer.Cells[0, 0] := 'Type';
   value_viewer.Cells[1, 0] := 'Value';
@@ -102 +104 @@
   value_viewer.Cells[0, 6] := 'String';
   value_viewer.Cells[0, 7] := 'Selected length';
-//  value_viewer.ColWidths[0] := 100;
-//  value_viewer.ColWidths[1] := value_viewer.Width - 150;
+  value_viewer.ColWidths[0] := 120;
+  value_viewer.ColWidths[1] := 1000;
 //  hex.Height := content.Height - 215;
   //
@@ -135 +137 @@
 
 
-procedure TForm_BinEdit.LoadDat(_fileid: LongWord);
+procedure TForm_BinEdit.LoadDat(_fileid: Integer);
 var
   mem:  TMemoryStream;
   Data: Tdata;
 begin
-  if hex.Modified then
-  begin
-    if not Save then
-    begin
-      Self.SelectFileID(fileid);
-      Exit;
-    end;
-  end;
-  fileid := _fileid;
-  if OniDataConnection.ExtractFileID(
-        filelist.Items.Strings[filelist.ItemIndex]) <> fileid then
-    Self.SelectFileID(fileid);
-  Self.ClearStructViewer;
-  Data := OniDataConnection.LoadDatFile(fileid);
-  if Length(Data) > 0 then
-  begin
-    mem := TMemoryStream.Create;
-    mem.Write(Data[0], Length(Data));
-    mem.Seek(0, soFromBeginning);
-    hex.LoadFromStream(mem);
-    mem.Free;
-    WriteStructureInfos;
+  if con <> nil then
+  begin
+    if hex.Modified then
+    begin
+      if not Save then
+      begin
+        Self.SelectFileID(Connection, fileid);
+        Exit;
+      end;
+    end;
+  end;
+  if _fileid >= 0 then
+  begin
+    fileid := _fileid;
+    con := Connection;
+    if con.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]) <> fileid then
+      Self.SelectFileID(Connection, fileid);
+    Self.ClearStructViewer;
+    Data := con.LoadDatFile(fileid);
+    if Length(Data) > 0 then
+    begin
+      mem := TMemoryStream.Create;
+      mem.Write(Data[0], Length(Data));
+      mem.Seek(0, soFromBeginning);
+      hex.LoadFromStream(mem);
+      mem.Free;
+      WriteStructureInfos;
+    end
+    else
+    begin
+      ClearValues;
+      hex.DataSize := 0;
+    end;
   end
   else
   begin
+    fileid := _fileid;
+    con := nil;
+    Self.ClearStructViewer;
     ClearValues;
     hex.DataSize := 0;
@@ -226 +242 @@
       Result := IntToBin(hex.Data[offset]);
     11:
-      Result := '0x' + IntToHex(OniDataConnection.GetRawInfo(fileid, offset).raw_addr, 8);
+      Result := '0x' + IntToHex(con.GetRawInfo(fileid, offset).raw_addr, 8);
     12:
       Result := FormatNumber(hex.Data[offset + 1] + hex.Data[offset + 2] * 256 +
@@ -291 +307 @@
   if VST.RootNodeCount = 0 then
   begin
-    structs := LoadStructureDefinition(Connection, fileid);
+    structs := LoadStructureDefinition(con, fileid);
     if structs.Data then
     begin
@@ -501 +517 @@
 begin
   case MessageBox(Self.Handle, PChar('Save changes to file ' +
-      OniDataConnection.GetFileInfo(fileid).FileName + '?'), PChar('Data changed...'),
+      con.GetFileInfo(fileid).FileName + '?'), PChar('Data changed...'),
       MB_YESNOCANCEL) of
     idYes:
@@ -511 +527 @@
       mem.Read(Data[0], mem.Size);
       mem.Free;
-      OniDataConnection.UpdateDatFile(fileid, Data);
+      con.UpdateDatFile(fileid, Data);
       hex.Modified := False;
       for i := 0 to hex.Datasize - 1 do
@@ -762 +778 @@
       if nodedata.DataType = 11 then
       begin
-        if OniDataConnection.GetRawInfo(fileid, nodedata.offset).raw_size > 0 then
-          Form_Main.open_child('rawedit', fileid);
+        if con.GetRawInfo(fileid, nodedata.offset).raw_size > 0 then
+          Form_Main.open_child('rawedit', Connection, fileid);
       end;
       if nodedata.DataType = 12 then
       begin
-        if (StrToInt(nodedata.Value) < OniDataConnection.GetFilesCount) and
+        if (StrToInt(nodedata.Value) < con.GetFilesCount) and
           (StrToInt(nodedata.Value) > 0) and
           (StrToInt(nodedata.Value) <> fileid) then
         begin
-          if OniDataConnection.GetFileInfo(StrToInt(nodedata.Value)).Size > 0 then
-            Form_Main.open_child('binedit', StrToInt(nodedata.Value))
+          if con.GetFileInfo(StrToInt(nodedata.Value)).Size > 0 then
+            Form_Main.open_child('binedit', Connection, StrToInt(nodedata.Value))
           else
             ShowMessage('Linked filed is a zero-byte-file');
@@ -779 +795 @@
       if (nodedata.DataType >= 100) and (nodedata.DataType <= 300) then
       begin
-        form := Form_Main.open_child('binedit', -1);
+        form := Form_Main.open_child('binedit', Connection, -1);
         if Assigned(form) then
           form.SetFileFilters(nodedata.Value, '', False);