--- oup/current/Tools/RawEdit.pas	2007/02/21 03:12:33	109
+++ oup/current/Tools/RawEdit.pas	2007/02/21 03:28:48	111
@@ -38,10 +38,10 @@ type
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
 
-    function GetValue(datatype: Word; offset: LongWord): String;
+    function GetValue(datatype: Word; offset: Integer): String;
     procedure ClearValues;
     procedure WriteValues;
-    procedure SetNewValue(datatype: Word; offset: LongWord; Value: String);
+    procedure SetNewValue(datatype: Word; offset: Integer; Value: String);
 
     procedure value_viewerDblClick(Sender: TObject);
     procedure value_viewer_context_copyClick(Sender: TObject);
@@ -100,7 +100,7 @@ end;
 
 procedure TForm_RawEdit.LoadRaw(raw_info: TRawDataInfo);
 var
-  i:    LongWord;
+  i:    Integer;
   mem: TMemoryStream;
 begin
   if hex.Modified then
@@ -153,7 +153,7 @@ end;
 
 
 
-function TForm_RawEdit.GetValue(datatype: Word; offset: LongWord): String;
+function TForm_RawEdit.GetValue(datatype: Word; offset: Integer): String;
 var
   Data: TByteData;
   i:    Word;
@@ -227,7 +227,7 @@ var
   i, j:  Integer;
   Data:  TByteData;
   str:   String;
-  Value: LongWord;
+  Value: Integer;
   floatformat: TFormatSettings;
 begin
   floatformat.DecimalSeparator := '.';
@@ -339,7 +339,7 @@ end;
 
 procedure TForm_RawEdit.FormCreate(Sender: TObject);
 var
-  i:     LongWord;
+  i:     Integer;
   exts: String;
 begin
   inherited;
@@ -387,7 +387,7 @@ end;
 function TForm_RawEdit.Save: Boolean;
 var
   mem:  TMemoryStream;
-  i:    LongWord;
+  i:    Integer;
 begin
   case MessageBox(Self.Handle, PChar('Save changes to .raw-part of file ' +
       ConManager.Connection[ConID].GetFileInfo(fileid).Name + '?'), PChar('Data changed...'),
@@ -634,7 +634,7 @@ procedure TForm_RawEdit.value_viewer_con
 var
 //  i:     Byte;
   Name:  String;
-  Value: LongWord;
+  Value: Integer;
 begin
   Name := TMenuItem(Sender).Name;
   if Pos('asstring', Name) > 0 then
@@ -693,7 +693,7 @@ end;
 
 
 
-procedure TForm_RawEdit.SetNewValue(datatype: Word; offset: LongWord; Value: String);
+procedure TForm_RawEdit.SetNewValue(datatype: Word; offset: Integer; Value: String);
 var
   Data: TByteData;
   value_int: LongWord;
@@ -760,7 +760,7 @@ end;
 
 procedure TForm_RawEdit.value_viewerDblClick(Sender: TObject);
 var
-  offset:     LongWord;
+  offset:     Integer;
   datatype:   Word;
   objectname: String;
   Value:      String;