123 end; |
123 end; |
124 |
124 |
125 procedure chCurU_p(var s: shortstring); |
125 procedure chCurU_p(var s: shortstring); |
126 begin |
126 begin |
127 s:= s; // avoid compiler hint |
127 s:= s; // avoid compiler hint |
128 CursorMovementY:= -1; |
128 updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, -1, CursorMovementY); |
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 if CursorMovementY < 0 then |
134 if CursorMovementY < 0 then |
135 CursorMovementY:= 0; |
135 updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 0, CursorMovementY); |
136 end; |
136 end; |
137 |
137 |
138 procedure chCurD_p(var s: shortstring); |
138 procedure chCurD_p(var s: shortstring); |
139 begin |
139 begin |
140 s:= s; // avoid compiler hint |
140 s:= s; // avoid compiler hint |
141 CursorMovementY:= 1; |
141 updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 1, CursorMovementY); |
142 end; |
142 end; |
143 |
143 |
144 procedure chCurD_m(var s: shortstring); |
144 procedure chCurD_m(var s: shortstring); |
145 begin |
145 begin |
146 s:= s; // avoid compiler hint |
146 s:= s; // avoid compiler hint |
147 if CursorMovementY > 0 then |
147 if CursorMovementY > 0 then |
148 CursorMovementY:= 0; |
148 updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 0, CursorMovementY); |
149 end; |
149 end; |
150 |
150 |
151 procedure chCurL_p(var s: shortstring); |
151 procedure chCurL_p(var s: shortstring); |
152 begin |
152 begin |
153 s:= s; // avoid compiler hint |
153 s:= s; // avoid compiler hint |
154 CursorMovementX:= -1; |
154 updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, -1, CursorMovementX); |
155 end; |
155 end; |
156 |
156 |
157 procedure chCurL_m(var s: shortstring); |
157 procedure chCurL_m(var s: shortstring); |
158 begin |
158 begin |
159 s:= s; // avoid compiler hint |
159 s:= s; // avoid compiler hint |
160 if CursorMovementX < 0 then |
160 if CursorMovementX < 0 then |
161 CursorMovementX:= 0; |
161 updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 0, CursorMovementX); |
162 end; |
162 end; |
163 |
163 |
164 procedure chCurR_p(var s: shortstring); |
164 procedure chCurR_p(var s: shortstring); |
165 begin |
165 begin |
166 s:= s; // avoid compiler hint |
166 s:= s; // avoid compiler hint |
167 CursorMovementX:= 1; |
167 updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 1, CursorMovementX); |
168 end; |
168 end; |
169 |
169 |
170 procedure chCurR_m(var s: shortstring); |
170 procedure chCurR_m(var s: shortstring); |
171 begin |
171 begin |
172 s:= s; // avoid compiler hint |
172 s:= s; // avoid compiler hint |
173 if CursorMovementX > 0 then |
173 if CursorMovementX > 0 then |
174 CursorMovementX:= 0; |
174 updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 0, CursorMovementX); |
175 end; |
175 end; |
176 |
176 |
177 procedure chLeft_p(var s: shortstring); |
177 procedure chLeft_p(var s: shortstring); |
178 begin |
178 begin |
179 s:= s; // avoid compiler hint |
179 s:= s; // avoid compiler hint |