| 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; |