ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/RawEdit.pas
(Generate patch)

Comparing oup/current/Tools/RawEdit.pas (file contents):
Revision 63 by alloc, Tue Jan 9 20:26:34 2007 UTC vs.
Revision 64 by alloc, Tue Jan 9 20:34:27 2007 UTC

# Line 55 | Line 55 | type
55      procedure hexSelectionChanged(Sender: TObject);
56      procedure hexChange(Sender: TObject);
57    private
58 <    fileid:     LongWord;
58 >    fileid:     Integer;
59      dat_offset: LongWord;
60      fileid_opened, dat_offset_opened: LongWord;
61    public
# Line 368 | Line 368 | var
368    exts: String;
369   begin
370    inherited;
371 < {  Self.OnNewFileSelected := Self.NewFile;
371 >  Self.OnNewFileSelected := Self.NewFile;
372  
373    exts := '';
374    if Length(RawListHandlers) > 0 then
# Line 383 | Line 383 | begin
383  
384    Self.Caption := '';
385    fileid     := -1;
386 + {
387    value_viewer.ColCount := 2;
388    value_viewer.RowCount := 8;
389    value_viewer.FixedRows := 1;
390 + }
391    value_viewer.Cells[0, 0] := 'Type';
392    value_viewer.Cells[1, 0] := 'Value';
393    value_viewer.Cells[0, 1] := '1 byte, unsigned';
# Line 398 | Line 400 | begin
400    value_viewer.ColWidths[0] := 100;
401    //
402    value_viewer.Font.Charset := AppSettings.CharSet;
403 <  //   }
403 >  //
404   end;
405  
406  
# Line 454 | Line 456 | end;
456  
457   procedure TForm_RawEdit.panel_contentResize(Sender: TObject);
458   begin
459 <  value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 28;
459 > //  value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 28;
460   end;
461  
462  

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)