equal
deleted
inserted
replaced
119 ScriptLoad(s) |
119 ScriptLoad(s) |
120 end; |
120 end; |
121 |
121 |
122 procedure chScriptParam(var s: shortstring); |
122 procedure chScriptParam(var s: shortstring); |
123 begin |
123 begin |
124 cScriptParam:= s; |
124 ScriptSetString('ScriptParam', s); |
|
125 ScriptCall('onParameters'); |
125 end; |
126 end; |
126 |
127 |
127 procedure chCurU_p(var s: shortstring); |
128 procedure chCurU_p(var s: shortstring); |
128 begin |
129 begin |
129 s:= s; // avoid compiler hint |
130 s:= s; // avoid compiler hint |