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