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 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 111 by alloc, Wed Feb 21 03:28:48 2007 UTC

# Line 38 | Line 38 | type
38      procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
39      procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
40  
41 <    function GetValue(datatype: Word; offset: LongWord): String;
41 >    function GetValue(datatype: Word; offset: Integer): String;
42      procedure ClearValues;
43      procedure WriteValues;
44 <    procedure SetNewValue(datatype: Word; offset: LongWord; Value: String);
44 >    procedure SetNewValue(datatype: Word; offset: Integer; Value: String);
45  
46      procedure value_viewerDblClick(Sender: TObject);
47      procedure value_viewer_context_copyClick(Sender: TObject);
# Line 100 | Line 100 | end;
100  
101   procedure TForm_RawEdit.LoadRaw(raw_info: TRawDataInfo);
102   var
103 <  i:    LongWord;
103 >  i:    Integer;
104    mem: TMemoryStream;
105   begin
106    if hex.Modified then
# Line 153 | Line 153 | end;
153  
154  
155  
156 < function TForm_RawEdit.GetValue(datatype: Word; offset: LongWord): String;
156 > function TForm_RawEdit.GetValue(datatype: Word; offset: Integer): String;
157   var
158    Data: TByteData;
159    i:    Word;
# Line 227 | Line 227 | var
227    i, j:  Integer;
228    Data:  TByteData;
229    str:   String;
230 <  Value: LongWord;
230 >  Value: Integer;
231    floatformat: TFormatSettings;
232   begin
233    floatformat.DecimalSeparator := '.';
# Line 339 | Line 339 | end;
339  
340   procedure TForm_RawEdit.FormCreate(Sender: TObject);
341   var
342 <  i:     LongWord;
342 >  i:     Integer;
343    exts: String;
344   begin
345    inherited;
# Line 387 | Line 387 | end;
387   function TForm_RawEdit.Save: Boolean;
388   var
389    mem:  TMemoryStream;
390 <  i:    LongWord;
390 >  i:    Integer;
391   begin
392    case MessageBox(Self.Handle, PChar('Save changes to .raw-part of file ' +
393        ConManager.Connection[ConID].GetFileInfo(fileid).Name + '?'), PChar('Data changed...'),
# Line 634 | Line 634 | procedure TForm_RawEdit.value_viewer_con
634   var
635   //  i:     Byte;
636    Name:  String;
637 <  Value: LongWord;
637 >  Value: Integer;
638   begin
639    Name := TMenuItem(Sender).Name;
640    if Pos('asstring', Name) > 0 then
# Line 693 | Line 693 | end;
693  
694  
695  
696 < procedure TForm_RawEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
696 > procedure TForm_RawEdit.SetNewValue(datatype: Word; offset: Integer; Value: String);
697   var
698    Data: TByteData;
699    value_int: LongWord;
# Line 760 | Line 760 | end;
760  
761   procedure TForm_RawEdit.value_viewerDblClick(Sender: TObject);
762   var
763 <  offset:     LongWord;
763 >  offset:     Integer;
764    datatype:   Word;
765    objectname: String;
766    Value:      String;

Diff Legend

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