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

Timestamp:

Jan 9, 2007, 9:17:51 PM (18 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/Tools/RawEdit.pas

@@ -369 +369 @@
 begin
   inherited;
-  Self.OnNewFileSelected := Self.NewFile;
+{  Self.OnNewFileSelected := Self.NewFile;
 
   exts := '';
@@ -383 +383 @@
 
   Self.Caption := '';
-  fileid     := 0;
+  fileid     := -1;
   value_viewer.ColCount := 2;
   value_viewer.RowCount := 8;
@@ -399 +399 @@
   //
   value_viewer.Font.Charset := AppSettings.CharSet;
-  //
+  //   }
 end;
 
@@ -455 +455 @@
 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;