| 18 | 
   | 
     edit_datatype: TEdit; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 19 | 
   | 
     procedure btn_cancelClick(Sender: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 20 | 
   | 
     procedure btn_okClick(Sender: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 | 21 | 
 < | 
     procedure MakeVarInput(objectname: String; offset: LongWord; | 
 
 
 
 
 
 
 
 
 
 | 21 | 
 > | 
     procedure MakeVarInput(objectname: String; offset: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 | 22 | 
   | 
       datatype: Word; current: String; caller: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 23 | 
   | 
     procedure FormCreate(Sender: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 24 | 
   | 
   private | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 40 | 
   | 
   caller_win_dat: TForm_BinEdit; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 41 | 
   | 
   caller_win_raw: TForm_RawEdit; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 42 | 
   | 
   _datatype: Word; | 
 
 
 
 
 
 
 
 
 
 
 
 | 43 | 
 < | 
   _offset: LongWord; | 
 
 
 
 
 
 
 
 
 
 | 43 | 
 > | 
   _offset: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 | 44 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 45 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 46 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 47 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 | 48 | 
 < | 
 procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: LongWord; | 
 
 
 
 
 
 
 
 
 
 | 48 | 
 > | 
 procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 | 49 | 
   | 
   datatype: Word; current: String; caller: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 50 | 
   | 
 begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 51 | 
   | 
   caller_win_dat := nil; |