equal
deleted
inserted
replaced
129 end; |
129 end; |
130 |
130 |
131 procedure chCurU_m(var s: shortstring); |
131 procedure chCurU_m(var s: shortstring); |
132 begin |
132 begin |
133 s:= s; // avoid compiler hint |
133 s:= s; // avoid compiler hint |
134 CursorMovementY:= 0; |
134 if CursorMovementY < 0 then |
|
135 CursorMovementY:= 0; |
135 end; |
136 end; |
136 |
137 |
137 procedure chCurD_p(var s: shortstring); |
138 procedure chCurD_p(var s: shortstring); |
138 begin |
139 begin |
139 s:= s; // avoid compiler hint |
140 s:= s; // avoid compiler hint |
141 end; |
142 end; |
142 |
143 |
143 procedure chCurD_m(var s: shortstring); |
144 procedure chCurD_m(var s: shortstring); |
144 begin |
145 begin |
145 s:= s; // avoid compiler hint |
146 s:= s; // avoid compiler hint |
146 CursorMovementY:= 0; |
147 if CursorMovementY > 0 then |
|
148 CursorMovementY:= 0; |
147 end; |
149 end; |
148 |
150 |
149 procedure chCurL_p(var s: shortstring); |
151 procedure chCurL_p(var s: shortstring); |
150 begin |
152 begin |
151 s:= s; // avoid compiler hint |
153 s:= s; // avoid compiler hint |
153 end; |
155 end; |
154 |
156 |
155 procedure chCurL_m(var s: shortstring); |
157 procedure chCurL_m(var s: shortstring); |
156 begin |
158 begin |
157 s:= s; // avoid compiler hint |
159 s:= s; // avoid compiler hint |
158 CursorMovementX:= 0; |
160 if CursorMovementX < 0 then |
|
161 CursorMovementX:= 0; |
159 end; |
162 end; |
160 |
163 |
161 procedure chCurR_p(var s: shortstring); |
164 procedure chCurR_p(var s: shortstring); |
162 begin |
165 begin |
163 s:= s; // avoid compiler hint |
166 s:= s; // avoid compiler hint |
165 end; |
168 end; |
166 |
169 |
167 procedure chCurR_m(var s: shortstring); |
170 procedure chCurR_m(var s: shortstring); |
168 begin |
171 begin |
169 s:= s; // avoid compiler hint |
172 s:= s; // avoid compiler hint |
170 CursorMovementX:= 0; |
173 if CursorMovementX > 0 then |
|
174 CursorMovementX:= 0; |
171 end; |
175 end; |
172 |
176 |
173 procedure chLeft_p(var s: shortstring); |
177 procedure chLeft_p(var s: shortstring); |
174 begin |
178 begin |
175 s:= s; // avoid compiler hint |
179 s:= s; // avoid compiler hint |