Changeset 64 for oup/current/Tools/RawEdit.pas

Timestamp:

Jan 9, 2007, 9:34:27 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/RawEdit.pas (modified) (5 diffs)

oup/current/Tools/RawEdit.pas

@@ -56 +56 @@
     procedure hexChange(Sender: TObject);
   private
-    fileid:     LongWord;
+    fileid:     Integer;
     dat_offset: LongWord;
     fileid_opened, dat_offset_opened: LongWord;
@@ -369 +369 @@
 begin
   inherited;
-{  Self.OnNewFileSelected := Self.NewFile;
+  Self.OnNewFileSelected := Self.NewFile;
 
   exts := '';
@@ -384 +384 @@
   Self.Caption := '';
   fileid     := -1;
+{
   value_viewer.ColCount := 2;
   value_viewer.RowCount := 8;
   value_viewer.FixedRows := 1;
+}
   value_viewer.Cells[0, 0] := 'Type';
   value_viewer.Cells[1, 0] := 'Value';
@@ -399 +401 @@
   //
   value_viewer.Font.Charset := AppSettings.CharSet;
-  //   }
+  //
 end;
 
@@ -455 +457 @@
 procedure TForm_RawEdit.panel_contentResize(Sender: TObject);
 begin
-  value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 28;
+//  value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 28;
 end;