ll
151. endvscroll:
152. cmp [cyPos], 0
153. je bp3
154. endvscroll_1: mov eax, [cyPos]; посилаємо позицію бігунка в
; регістр
155. add eax, [cyStep]
156. mov [cyPos], eax
157. mov eax, 0
158. sbb eax, [charht]; розрахунок міжрядкового відстані
159. mov ecx, [cyStep]
160. mov edx, 0
161. mul ecx
162. mov ecx, eax
163. call ScrollWindow, [hwnd], 0, ecx, 0,0; визначаємо дескриптор вікна,
; де клієнтська область повинна
; бути прокручена
164. call InvalidateRect, [hwnd], offset rc, TRUE; визначаємо вікно з
; зміненій
; областю
165. call SetScrollPos, [hwnd], SB_VERT, [cyPos], TRUE; встановлення
; позиції бігунка в
; стандартної
; вертикальної
; смузі прокрутки
166. call UpdateWindow, [hwnd]; оновлення зображення вікна,
; якщо область не порожня
167. bp3: mov eax, 0
168. jmp finish
169. wmdestroy:
170. call PostQuitMessage, 0
171. mov eax, 0
172. jmp finish
173. wmsize:; для перемальовування нового розміру вікна
; значення старшого слова означає висоту
; клієнтської частини
174. mov eax, [lparam]
175. mov cl, 16
176. rcr eax, cl
177. and eax, 0ffffh
178. mov dx, 0
179. mov cx, word ptr [charht]
180. div cx
181. movzx ecx, ax
182. mov eax, 101
183. sbb eax, ecx
184. cmp eax, 0
185. ja www1
186. mov eax, 0
187. www1: mov [cyMax], ecx
188. call FindFirstFileA, offset fn, offset w32fd
189. mov [hFindFile], eax
190. mov esi, 1
191. s_m4:
192. call FindNextFileA, [hFindFile], offset w32fd
193. cmp eax, 0
194. je s_m5
195. inc esi
196. jmp s_m4
197. s_m5: mov [nLast], esi
198. mov eax, [cyMax]
199. cmp eax, [cyPos]
200. ja www2
201. mov [cyPos], eax
202. www2: push FALSE
203. push esi
204. push L 0
205. push SB_VERT
206. push [hwnd]
207. call SetScrollRange
208. push TRUE
209. push [cyPos]
210. push SB_VERT
211. push [hwnd]
212. call SetScrollPos
213. mov eax, 0
214. jmp finish
215. wmpaint:
216. call BeginPaint, [hwnd], offset lppaint; отримали контекст
; пристрої
217. mov [hDC], eax
218. mov eax, [cyPos]; початкова позиція бігунка
219. mov ecx, [charht]; отримали координату виводу в пікселях
220. mov dx, 0
221. mul cx
222. movzx ecx, ax
223. mov [cory], 5; занесли по у -5
224. mov ecx, 1; занесли по x -1
225. call Fin...