Subversion Repositories Kolibri OS

Rev

Rev 7433 | Rev 7505 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7433 Rev 7434
Line 161... Line 161...
161 
 
 161 
 
162 
.getkeyi:
 162 
.getkeyi:
163 
	mov dh,ah
 163 
	mov dh,ah
Line 164... Line 164...
164 
	jmp key
 164 
	jmp key
165 
 
 165 
 
166 
.next: 	;]Leency
 166 
.next:
167 
    cmp  ah,104         ; HELP
 167 
    cmp  ah,'h'         ; H - help
168 
    jne  .nohelp
 168 
    jne  .nohelp
169 
  .help:
 169 
  .help:
170 
    mov  [is_scroll_bar_needed],    0
 170 
    mov  [is_scroll_bar_needed],    0
Line 190... Line 190...
190 
;    and  [mode],not RTF_HELP
 190 
;    and  [mode],not RTF_HELP
191 
;    cmp  dword[fileinfo.name],N_A
 191 
;    cmp  dword[fileinfo.name],N_A
192 
;    je   still
 192 
;    je   still
193 
;    jmp  prep_load
 193 
;    jmp  prep_load
194 
  .nohelp2:
 194 
  .nohelp2:
195 
    cmp  ah,114         ; R - redraw
 195 
    cmp  ah,'r'         ; R - redraw
196 
    je   red
 196 
    je   red
197 
    cmp  ah,99          ; C - color
 197 
    cmp  ah,'c'          ; C - color
198 
    jne  .nocolor
 198 
    jne  .nocolor
199 
  .color:
 199 
  .color:
200 
    xor  [mode],RTF_COLORLESS
 200 
    xor  [mode],RTF_COLORLESS
201 
    jmp  red
 201 
    jmp  red
202 
  .nocolor:
 202 
  .nocolor:
203 
    cmp  ah,97          ; A - alignment
 203 
    cmp  ah,'a'          ; A - alignment
204 
    jne  .noalign
 204 
    jne  .noalign
205 
  .alignment:
 205 
  .alignment:
206 
    xor  [mode],RTF_ALIGNLESS
 206 
    xor  [mode],RTF_ALIGNLESS
207 
    jmp  red
 207 
    jmp  red
208 
  .noalign:
 208 
  .noalign:
Line 210... Line 210...
210 
    jne  .nopd
 210 
    jne  .nopd
211 
  .decp:
 211 
  .decp:
212 
    dec  [pitch]
 212 
    dec  [pitch]
213 
    jmp  red
 213 
    jmp  red
214 
  .nopd:
 214 
  .nopd:
215 
    cmp  ah,46          ; < - pitch inc
 215 
    cmp  ah,46          ; > - pitch inc
216 
    jne  .nopi
 216 
    jne  .nopi
217 
  .incp:
 217 
  .incp:
218 
    inc  [pitch]
 218 
    inc  [pitch]
219 
    jmp  red
 219 
    jmp  red
220 
  .nopi:
 220 
  .nopi:
- 
 
 221 
    cmp  ah,43 ;zoom+
- 
 
 222 
    je  .zplus
- 
 
 223 
    cmp  ah,61 ;zoom=
- 
 
 224 
    jne  .noplus
- 
 
 225 
  .zplus:
- 
 
 226 
    fld  [FreeFontscale]
- 
 
 227 
    fmul [Zoomscale]
- 
 
 228 
  .zoom:
- 
 
 229 
    fstp [FreeFontscale]
- 
 
 230 
    jmp  red
- 
 
 231 
  .noplus:
- 
 
 232 
    cmp  ah,45 ;zoom-
- 
 
 233 
    jne  .home
- 
 
 234 
  .zminus:
- 
 
 235 
    fld  [FreeFontscale]
- 
 
 236 
    fdiv [Zoomscale]
- 
 
 237 
    jmp  .zoom
- 
 
 238 
  .home:
221 
    cmp  ah,180         ; Home
 239 
    cmp  ah,180         ; Home
222 
    je   top_red
 240 
    je   top_red
Line 223... Line 241...
223
241
224 
    cmp  dword[is_scroll_bar_needed], 0
 242 
    cmp  dword[is_scroll_bar_needed], 0
Line 305... Line 323...
305 
;    mov  [top],TOP
 323 
;    mov  [top],TOP
306 
;    cmp  cx,[top]
 324 
;    cmp  cx,[top]
307 
;    je   still
 325 
;    je   still
308 
    jmp  red
 326 
    jmp  red
309 
  .noarup:
 327 
  .noarup:
310 
    cmp  ah,56 ;zoom+
 - 
 
311 
    jne  .noplus
 - 
 
312 
  .zplus:
 - 
 
313 
    fld  [FreeFontscale]
 - 
 
314 
    fmul [Zoomscale]
 - 
 
315 
  .zoom:
 328 
 
316 
    fstp [FreeFontscale]
 - 
 
317 
    jmp  red
 - 
 
318 
  .noplus:
 - 
 
319 
    cmp  ah,54 ;zoom-
 - 
 
320 
    jne  .nominus
 - 
 
321 
  .zminus:
 - 
 
322 
    fld  [FreeFontscale]
 - 
 
323 
    fdiv [Zoomscale]
 - 
 
324 
    jmp  .zoom
 - 
 
325 
  .nominus:
 329 
  .nominus:
326 
    cmp  ah,0xB5        ; end
 330 
    cmp  ah,0xB5        ; end
327 
    jne  .pre_file_open
 331 
    jne  .pre_file_open
328 
  .end:
 332 
  .end:
Line 334... Line 338...
334 
    sub  eax, [scroll_bar_data_vertical.cur_area]
 338 
    sub  eax, [scroll_bar_data_vertical.cur_area]
335 
    mov  dword[scroll_bar_data_vertical.position], eax
 339 
    mov  dword[scroll_bar_data_vertical.position], eax
336 
    call Set_position
 340 
    call Set_position
337 
    jmp  red
 341 
    jmp  red
338 
  .pre_file_open:
 342 
  .pre_file_open:
339 
    cmp  ah,108         ; L - load
 343 
    cmp  ah,'l'         ; L - load
340 
    jne  still
 344 
    jne  still
341 
  .file_open:
 345 
  .file_open:
342 
;---------------------------------------------------------------------
 346 
;---------------------------------------------------------------------
343 
;OpenDialog_start:
 347 
;OpenDialog_start:
344 
;       copy_path       open_dialog_name,path,library_path,0
 348 
;       copy_path       open_dialog_name,path,library_path,0
Line 349... Line 353...
349 
;       cmp     [OpenDialog_data.status],2 ; OpenDialog does not start
 353 
;       cmp     [OpenDialog_data.status],2 ; OpenDialog does not start
350 
;       je      .sysxtree  ;    some kind of alternative, instead OpenDialog
 354 
;       je      .sysxtree  ;    some kind of alternative, instead OpenDialog
351 
        cmp     [OpenDialog_data.status],1
 355 
        cmp     [OpenDialog_data.status],1
352 
        je      prep_load
 356 
        je      prep_load
353 
        jmp     still
 357 
        jmp     still
354 
;---------------------------------------------------------------------
- 
 
355 
;.sysxtree:
 - 
 
356 
;    or   [mode],RTF_OPENING
 - 
 
357 
;    opendialog draw_window, prep_load, st_1, fname_buf
 - 
 
358 
;  st_1:
 - 
 
359 
;    and  [mode],not RTF_OPENING
 - 
 
360 
;    jmp  still;red
 - 
 
361 
;  stilld:
 - 
 
362 
;    jmp  still
 - 
 
363 
;---------------------------------------------------------------------
 - 
 
Line 364... Line 358...
364 
 
 358 
 
365 
  button:
 359 
  button:
Line 366... Line 360...
366 
    mcall 17            ; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
 360 
    mcall 17            ; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
Line 742... Line 736...
742 
;---------------------------------------------------------------------
 736 
;---------------------------------------------------------------------
Line 743... Line 737...
743 
 
 737 
 
744 
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
 738 
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
Line 745... Line 739...
745 
;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
 739 
;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
746 
 
 740 
 
747 
window_title:           db      'RtfRead v1.4',0
 741 
window_title:           db      'RtfRead v1.5',0
748 
is_scroll_bar_needed    dd      0x0
 742 
is_scroll_bar_needed    dd      0x0
749 
window_width            dd      0x0
 743 
window_width            dd      0x0
750 
window_height           dd      0x0
 744 
window_height           dd      0x0