Subversion Repositories Kolibri OS

Rev

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

Rev 529 Rev 1195
Line 19... Line 19...
19 
;RENDER equ BGI
 19 
;RENDER equ BGI
20 
RENDER equ FREE
 20 
RENDER equ FREE
Line 21... Line 21...
21 
 
 21 
 
22 
BGIFONT_PATH equ '/sys/fonts/'
 22 
BGIFONT_PATH equ '/sys/fonts/'
23 
FONT_NAME equ 'LITT'
 23 
FONT_NAME equ 'LITT'
24 
TOP =35
 24 
TOP =55
25 
MODE equ RTF
 25 
MODE equ RTF
26 
INVALHEX equ 0
 26 
INVALHEX equ 0
27 
RTF_COLORLESS equ 1
 27 
RTF_COLORLESS equ 1
28 
RTF_ALIGNLESS equ 2
 28 
RTF_ALIGNLESS equ 2
Line 307... Line 307...
307 
 
 307 
 
308 
    mcall 12, 1                    ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
 308 
    mcall 12, 1                    ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
Line 309... Line 309...
309 
                                   ; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
 309 
                                   ; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
310 
 
 - 
 
311 
    mcall 0, <10,WINW>, <100,WINH>, WIN_COLOR,0x805080D0, 0x005080D0
 - 
 
312 
    mcall 9,procinfo,-1
 - 
 
313 
    mov   eax,[procinfo.box.left]
 - 
 
314 
    cmp   eax,1
 - 
 
315 
    ja      .temp12345
 - 
 
316 
    ret
 - 
 
317 
  .temp12345:
 310 
 
318 
 
 311 
    mcall 0, <10,WINW>, <100,WINH>, WIN_COLOR,0x805080D0, 0x005080D0
319 
    mcall 4, <8,8>, 0x10DDEEFF, title, titlesize-title
 312 
    mcall 4, <8,8>, 0x10DDEEFF, title, titlesize-title
320 
    mov  esi,ecx
 313 
    mov  esi,ecx
321 
    mcall 47,0x30000,isymImplemented,<114,8>
 314 
    mcall 47,0x30000,isymImplemented,<114,8>
Line 339... Line 332...
339 
    or   [mode],RTF_TOEOF
 332 
    or   [mode],RTF_TOEOF
340 
    and  [HDoc],0
 333 
    and  [HDoc],0
341 
    and  [line_count],0
 334 
    and  [line_count],0
342 
    mov  [HClick],-100
 335 
    mov  [HClick],-100
343 
  .nochg:
 336 
  .nochg:
344 
    sub  ebx,60
 - 
 
345 
    shl  ebx,16
 337 
 
346 
    mov  bx,12
 338 
 
347 
    mov  ecx,5 shl 16+12
 - 
 
348 
    mov  esi,0xb810e7
 339 
mcall 13,<5,dword[prcinfo+42]>,<21,21>,0x8000459a
349 
    mov  edx,2
 340 
 
350 
 BTN_SPACE equ 14 shl 16
 - 
 
351 
    mcall 8             ;2
 341 
mcall 8,7*65536+39,23*65536+16,5,0x459a           ;load
352 
    sub  ebx,BTN_SPACE
 - 
 
353 
    inc  edx
 - 
 
354 
    mcall 8,,,,0x459a    ;3
 342 
mcall 8,46*65536+57,23*65536+16,4,0x459a ;align
355 
    sub  ebx,BTN_SPACE
 - 
 
356 
    inc  edx
 - 
 
357 
    mcall ,,,,0x107a30  ;4
 343 
mcall 8,103*65536+44,23*65536+16,3,0x459a   ;color
358 
    sub  ebx,BTN_SPACE
 - 
 
359 
    inc  edx
 - 
 
360 
    mcall ,,,,0xcc0000  ;5
 344 
mcall 8,147*65536+37,23*65536+16,2,0x459a        ;help
361 
    sub  ebx,BTN_SPACE
 - 
 
362 
    inc  edx
 345 
 
363 
    mcall ,,,,0x575f8c  ;6
 346 
mcall 8,184*65536+44,23*65536+16,7,0x459a ;prev
364 
    sub  ebx,BTN_SPACE
 - 
 
365 
    inc  edx
 - 
 
366 
    mcall ,,,,0x575f8c  ;7
 347 
mcall 8,229*65536+46,23*65536+16,6,0x459a      ;next
- 
 
 348 
 
367 
  if RENDER eq FREE
 349 
if RENDER eq FREE
- 
 
 350 
mcall 8,276*65536+44,23*65536+16,9,0x459a ;zoom+
- 
 
 351 
mcall 8,320*65536+44,23*65536+16,8,0x459a ;zoom-
- 
 
 352 
end if
- 
 
 353 
 
- 
 
 354 
 
- 
 
 355 
 
- 
 
 356 
 
- 
 
 357 
;    sub  ebx,60
- 
 
 358 
;    shl  ebx,16
- 
 
 359 
;    mov  bx,12
- 
 
 360 
;    mov  ecx,5 shl 16+12
- 
 
 361 
;    mov  esi,0xb810e7
- 
 
 362 
;    mov  edx,2
- 
 
 363 
; BTN_SPACE equ 14 shl 16
- 
 
 364 
;    mcall 8             ;2
368 
    sub  ebx,BTN_SPACE
 365 
;    sub  ebx,BTN_SPACE
- 
 
 366 
;    inc  edx
- 
 
 367 
;    mcall 8,,,,0x459a    ;3
- 
 
 368 
;    sub  ebx,BTN_SPACE
- 
 
 369 
;    inc  edx
- 
 
 370 
;    mcall ,,,,0x107a30  ;4
- 
 
 371 
;    sub  ebx,BTN_SPACE
- 
 
 372 
;    inc  edx
- 
 
 373 
;    mcall ,,,,0xcc0000  ;5
- 
 
 374 
;    sub  ebx,BTN_SPACE
- 
 
 375 
;    inc  edx
- 
 
 376 
;    mcall ,,,,0x575f8c  ;6
- 
 
 377 
;    sub  ebx,BTN_SPACE
- 
 
 378 
;    inc  edx
- 
 
 379 
;    mcall ,,,,0x575f8c  ;7
- 
 
 380 
;  if RENDER eq FREE
- 
 
 381 
;    sub  ebx,BTN_SPACE
369 
    inc  edx
 382 
;    inc  edx
370 
    mcall ,,,,0x6a73d0  ;8
 383 
;    mcall ,,,,0x6a73d0  ;8
371 
    sub  ebx,BTN_SPACE
 384 
;    sub  ebx,BTN_SPACE
372 
    inc  edx
 385 
;    inc  edx
373 
    mcall ,,,,0xd048c8  ;9
 386 
;    mcall ,,,,0xd048c8  ;9
374 
  end if
 387 
;  end if
- 
 
 388 
;text
375 
    shr  ecx,16
 389 
;    shr  ecx,16
376 
    mov  bx,cx
 390 
;    mov  bx,cx
377 
    add  ebx,3 shl 16+3
 391 
;    add  ebx,3 shl 16+3
378 
    mcall 4,,0x10ddeeff,btn_text,btn_end-btn_text
 392 
    mcall 4,10*65536+27,0x10ddeeff,btn_text,btn_end-btn_text
- 
 
 393 
 
379 
    sub  dword[prcinfo+42],LMARGIN
 394 
    sub  dword[prcinfo+42],LMARGIN
380 
    sub  dword[prcinfo+46],CHARH
 395 
    sub  dword[prcinfo+46],CHARH
381 
 if GUTTER eq 1
 396 
 if GUTTER eq 1
382 
    mov  ebx,LMARGIN shl 16+20
 397 
    mov  ebx,LMARGIN shl 16+20
383 
    mov  ecx,20
 398 
    mov  ecx,20
Line 391... Line 406...
391 
    add  ebx,50 shl 16
 406 
    add  ebx,50 shl 16
392 
    loop .loop1
 407 
    loop .loop1
393 
 end if
 408 
 end if
394 
    mov  ebx,dword[prcinfo+42]
 409 
    mov  ebx,dword[prcinfo+42]
395 
    shl  ebx,16
 410 
    shl  ebx,16
396 
    add  ebx,7 shl 16+7
 411 
    add  ebx,2 shl 16+13
397 
    mov  ecx,dword[prcinfo+46]
 412 
    mov  ecx,dword[prcinfo+46]
398 
    add  ecx,25 shl 16-25
 413 
    add  ecx,40 shl 16-35
399 
    mov  edx,20+1 shl 29
 414 
    mov  edx,20+1 shl 29
400 
    mcall 8
 415 
    mcall 8
401 
    mov  ecx,[HClick]
 416 
    mov  ecx,[HClick]
402 
    shl  ecx,16
 417 
    shl  ecx,16
403 
    add  ecx,6-3 shl 16
 418 
    add  ecx,6-3 shl 16 + 7
404 
    mcall 13,,,0xe26830
 419 
    mcall 13,,,0xe26830
405 
 if MODE eq RTF
 420 
 if MODE eq RTF
406 
    test [mode],RTF_OPENING
 421 
    test [mode],RTF_OPENING
407 
    jne  .ex
 422 
    jne  .ex
408 
    and  [mode],not (RTF_BOTTOM);+RTF_TOEOF)
 423 
    and  [mode],not (RTF_BOTTOM);+RTF_TOEOF)
Line 478... Line 493...
478 
 
 493 
 
479 
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
 494 
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
Line 480... Line 495...
480 
;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
 495 
;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
481 
 
 496 
 
482 
title:
 497 
title:
483 
  db 'RTF READER v1.    (     ):'
 498 
  db 'RTF Reader v1.    (     ):'
- 
 
 499 
titlesize:
484 
titlesize:
 500 
btn_text:
485 
btn_text:
 501 
    db 'Load Aligment Color Help     <      >'
486 
  if RENDER eq FREE
 502 
if RENDER eq FREE
487 
    db '+ - '
 - 
 
488 
  end if
 503 
    db '    Zoom+ Zoom- '
Line 489... Line 504...
489 
    db '< > L A C H'
 504 
  end if
490 
btn_end:
 505 
btn_end:
491 
 
 506 
 
Line 520... Line 535...
520 
;  db '/HD/1/RTF/texts/MASTAPP.RTF',0
 535 
;  db '/HD/1/RTF/texts/MASTAPP.RTF',0
521 
;  db '/HD/1/RTF/texts/1c_tor77.RTF',0
 536 
;  db '/HD/1/RTF/texts/1c_tor77.RTF',0
522 
;  db '/HD/1/RTF/texts/RELATION.RTF',0
 537 
;  db '/HD/1/RTF/texts/RELATION.RTF',0
523 
;  db '/HD/1/RTF/texts/PLANETS.RTF',0
 538 
;  db '/HD/1/RTF/texts/PLANETS.RTF',0
524 
;  db '/HD/1/RTF/texts/LOTRRUS.RTF',0
 539 
;  db '/HD/1/RTF/texts/LOTRRUS.RTF',0
525 
  db '/HD/1/RTF/texts/RULEBOOK.RTF',0
 540 
;  db '/HD/1/RTF/texts/RULEBOOK.RTF',0
526 
;  db '/HD/1/RTF/texts/RULEBK2.RTF',0
 541 
;  db '/HD/1/RTF/texts/RULEBK2.RTF',0
527 
;  db '/HD/1/RTF/texts/GLEB.RTF',0
 542 
;  db '/HD/1/RTF/texts/GLEB.RTF',0
528 
;  db '/HD/1/RTF/texts/DWG13_14.RTF',0
 543 
;  db '/HD/1/RTF/texts/DWG13_14.RTF',0
529 
;  db '/HD/1/RTF/texts/LK.RTF',0
 544 
;  db '/HD/1/RTF/texts/LK.RTF',0