Changeset 92 for oup/current/Tools/RawEdit.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/RawEdit.pas (modified) (13 diffs)

oup/current/Tools/RawEdit.pas

@@ -39 +39 @@
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
 
-    procedure panel_contentResize(Sender: TObject);
-
     function GetValue(datatype: Word; offset: LongWord): String;
     procedure ClearValues;
@@ -58 +56 @@
     fileid:     Integer;
     dat_offset: LongWord;
-    fileid_opened, dat_offset_opened: LongWord;
+    fileid_opened, dat_offset_opened: Integer;
   public
   end;
@@ -74 +72 @@
   i: Integer;
 begin
-  if hex.Modified then
-    if not Save then
-      Exit;
-  ClearValues;
-  hex.DataSize := 0;
-  fileid := fileinfo.ID;
-  list_offset.Enabled := False;
-  if fileinfo.size > 0 then
-  begin
-    offsets := OniDataConnection.GetRawList(fileid);
+  if fileinfo.ID >= 0 then
+  begin
+    if hex.Modified then
+      if not Save then
+        Exit;
+    ClearValues;
+    hex.DataSize := 0;
+    fileid := fileinfo.ID;
+    list_offset.Enabled := False;
+    if fileinfo.size > 0 then
+    begin
+      offsets := Connection.GetRawList(fileid);
+      list_offset.Items.Clear;
+      if Length(offsets) > 0 then
+        for i := 0 to High(offsets) do
+          list_offset.Items.Add('0x' + IntToHex(offsets[i].src_offset, 8) +
+                ', ' + IntToStr(offsets[i].raw_size) + ' bytes');
+      list_offset.Enabled := True;
+    end;
+  end
+  else
+  begin
+    ClearValues;
+    hex.DataSize := 0;
+    fileid := -1;
     list_offset.Items.Clear;
-    if Length(offsets) > 0 then
-      for i := 0 to High(offsets) do
-        list_offset.Items.Add('0x' + IntToHex(offsets[i].src_offset, 8) +
-              ', ' + IntToStr(offsets[i].raw_size) + ' bytes');
-    list_offset.Enabled := True;
   end;
 end;
@@ -109 +117 @@
     for i := 0 to filelist.Count - 1 do
     begin
-      if OniDataConnection.ExtractFileID(filelist.Items.Strings[i]) = raw_info.src_id then
+      if Connection.ExtractFileID(filelist.Items.Strings[i]) = raw_info.src_id then
       begin
         filelist.ItemIndex := i;
@@ -126 +134 @@
   end;
   SetLength(Data, raw_info.raw_size);
-  OniDataConnection.LoadRawFile(raw_info.src_id, raw_info.src_offset, @Data[0]);
+  Connection.LoadRawFile(raw_info.src_id, raw_info.src_offset, @Data[0]);
   if Length(Data) > 0 then
   begin
@@ -158 +166 @@
   dat_offset := StrToInt('$' + MidStr(
     list_offset.Items.Strings[list_offset.ItemIndex], 3, 8));
-  LoadRaw(OniDataConnection.GetRawInfo(fileid, dat_offset));
+  LoadRaw(Connection.GetRawInfo(fileid, dat_offset));
 end;
 
@@ -391 +399 @@
 }
   value_viewer.FixedRows := 1;
+  value_viewer.FixedCols := 1;
   value_viewer.Cells[0, 0] := 'Type';
   value_viewer.Cells[1, 0] := 'Value';
@@ -400 +409 @@
   value_viewer.Cells[0, 6] := 'String';
   value_viewer.Cells[0, 7] := 'Selected length';
-  value_viewer.ColWidths[0] := 100;
+  value_viewer.ColWidths[0] := 125;
+  value_viewer.ColWidths[1] := 1000;
   //
   value_viewer.Font.Charset := AppSettings.CharSet;
@@ -416 +426 @@
 begin
   case MessageBox(Self.Handle, PChar('Save changes to .raw-part of file ' +
-      OniDataConnection.GetFileInfo(fileid).FileName + '?'), PChar('Data changed...'),
+      Connection.GetFileInfo(fileid).FileName + '?'), PChar('Data changed...'),
       MB_YESNOCANCEL) of
     idYes:
@@ -426 +436 @@
       mem.Read(Data[0], mem.Size);
       mem.Free;
-      OniDataConnection.UpdateRawFile(fileid_opened, dat_offset_opened,
+      Connection.UpdateRawFile(fileid_opened, dat_offset_opened,
         Length(Data), @Data[0]);
       hex.Modified := False;
@@ -452 +462 @@
       CanClose := False;
   end;
-end;
-
-
-
-
-procedure TForm_RawEdit.panel_contentResize(Sender: TObject);
-begin
-  if fileid >= 0 then
-    value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 50;
 end;
 
@@ -546 +547 @@
   fs: TFileStream;
 begin
-  saved.Filter     := 'Files of matching extension (*.' + OniDataConnection.GetFileInfo(
-    fileid).Extension + ')|*.' + OniDataConnection.GetFileInfo(fileid).Extension +
+  saved.Filter     := 'Files of matching extension (*.' + Connection.GetFileInfo(
+    fileid).Extension + ')|*.' + Connection.GetFileInfo(fileid).Extension +
     '|All files|*.*';
-  saved.DefaultExt := OniDataConnection.GetFileInfo(fileid).Extension;
+  saved.DefaultExt := Connection.GetFileInfo(fileid).Extension;
   if saved.Execute then
   begin
@@ -566 +567 @@
   fs:   TFileStream;
 begin
-  opend.Filter := 'Files of matching extension (*.' + OniDataConnection.GetFileInfo(
-    fileid).Extension + ')|*.' + OniDataConnection.GetFileInfo(fileid).Extension +
+  opend.Filter := 'Files of matching extension (*.' + Connection.GetFileInfo(
+    fileid).Extension + ')|*.' + Connection.GetFileInfo(fileid).Extension +
     '|All files|*.*';
   if opend.Execute then