--- oup/current/Helper/ValueEdit.pas	2007/02/21 03:12:33	109
+++ oup/current/Helper/ValueEdit.pas	2007/05/17 15:08:29	180
@@ -18,7 +18,7 @@ type
     edit_datatype: TEdit;
     procedure btn_cancelClick(Sender: TObject);
     procedure btn_okClick(Sender: TObject);
-    procedure MakeVarInput(objectname: String; offset: LongWord;
+    procedure MakeVarInput(objectname: String; offset: Integer;
       datatype: Word; current: String; caller: TObject);
     procedure FormCreate(Sender: TObject);
   private
@@ -40,12 +40,12 @@ var
   caller_win_dat: TForm_BinEdit;
   caller_win_raw: TForm_RawEdit;
   _datatype: Word;
-  _offset: LongWord;
+  _offset: Integer;
 
 
 
 
-procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: LongWord;
+procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: Integer;
   datatype: Word; current: String; caller: TObject);
 begin
   caller_win_dat := nil;
@@ -66,7 +66,6 @@ begin
   edit_current.Text := current;
   edit_new.EditType := etString;
   edit_new.Text := '';
-  edit_new.LimitCheck := False;
   edit_new.MaxLength := 0;
   edit_new.Max := 0;
   edit_new.BorderStyle := bsSingle;
@@ -110,6 +109,7 @@ begin
       Self.Width := 700;
     end;
   end;
+  edit_new.Text := current;
   edit_new.SetFocus;
   edit_new.SelectAll;
 end;
@@ -135,6 +135,7 @@ end;
 
 procedure TForm_ValueEdit.FormCreate(Sender: TObject);
 begin
+  DecimalSeparator := '.';
   edit_new := TCrossEdit.Create(Self);
   with edit_new do
   begin
@@ -158,7 +159,7 @@ begin
     FocusAlignment := taLeftJustify;
     NoFocusAlignment := taLeftJustify;
     Precision := 15;
-    Decimals := 4;
+    Decimals := 14;
     FocusWidthInc := 0;
     EditType := etHex;
     NextDialogOnEnter := True;