Subversion Repositories Kolibri OS

Rev

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

Rev 3944 Rev 7433
Line 13... Line 13...
13 
CHARH equ 11
 13 
CHARH equ 11
14 
WINW  equ 600
 14 
WINW  equ 600
15 
WINH  equ 450
 15 
WINH  equ 450
16 
WIN_COLOR equ 0x73f0f0f0
 16 
WIN_COLOR equ 0x73f0f0f0
17 
DEFCOLOR equ 0x303030
 17 
DEFCOLOR equ 0x303030
18 
;RENDER equ PIX
 - 
 
19 
;RENDER equ BGI
 - 
 
20 
RENDER equ FREE
 18 
RENDER equ FREE
Line 21... Line 19...
21 
 
 19 
 
22 
BGIFONT_PATH equ '/sys/fonts/'
 20 
BGIFONT_PATH equ '/sys/fonts/'
23 
FONT_NAME equ 'LITT'
 21 
FONT_NAME equ 'LITT'
Line 54... Line 52...
54 
  dd     0x01        ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
 52 
  dd     0x01        ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
55 
  dd     START       ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
 53 
  dd     START       ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
56 
  dd     I_END0      ; à §¬¥à ¯à®£à ¬¬ë
 54 
  dd     I_END0      ; à §¬¥à ¯à®£à ¬¬ë
57 
  dd     esp_end     ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
 55 
  dd     esp_end     ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
58 
  dd     sys_mem     ;  ¤à¥á ¢¥à設ë áâíª 
 56 
  dd     sys_mem     ;  ¤à¥á ¢¥à設ë áâíª 
59 
  dd     fname_buf   ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
 57 
  dd     fname_buf   ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢
60 
  dd     cur_dir_path         ; § à¥§¥à¢¨à®¢ ­®
 58 
  dd     cur_dir_path ; ¯ãâì ª ¯à®£à ¬¬¥
Line 61... Line 59...
61 
 
 59 
 
62 
include '../../../config.inc'		;for nightbuild
 60 
include '../../../config.inc' ;for nightbuild
63 
include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
 61 
include '../../../macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
64 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 62 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
Line 65... Line -...
65 
include '../../../develop/libraries/box_lib/load_lib.mac'
 - 
 
66 
 
 - 
 
67 
;include 'MACROS.INC'
 - 
 
68 
;include 'load_lib.mac'
 63 
include '../../../develop/libraries/box_lib/load_lib.mac'
Line 69... Line 64...
69 
 
 64 
 
Line 70... Line -...
70 
@use_library
 - 
 
71 
 
 65 
@use_library
72 
;include '../../../debug.inc'
 66 
 
73 
 
 - 
 
74 
if ~ RENDER eq PIX
 67 
; include '../../../debug.inc'
75 
  TOP=TOP+4
 - 
 
76 
  include 'bgifont.inc'
 68 
 
77 
end if
 69 
TOP=TOP+4
78 
include 'rtf_lite.inc'
 70 
include 'bgifont.inc'
79 
;include 'ascl.inc'
 - 
 
80 
;---------------------------------------------------------------------
 - 
 
81 
;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
 - 
 
82 
;---------------------------------------------------------------------
 - 
 
83 
help_file:
 71 
include 'rtf_lite.inc'
84 
    file  'reader.rtf'
 72 
;---------------------------------------------------------------------
85 
help_end:
 73 
;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
Line 86... Line 74...
86 
 
 74 
;---------------------------------------------------------------------
Line 93... Line 81...
93 
;OpenDialog     initialisation
 81 
;OpenDialog     initialisation
94 
        push    dword OpenDialog_data
 82 
        push    dword OpenDialog_data
95 
        call    [OpenDialog_Init]
 83 
        call    [OpenDialog_Init]
Line 96... Line 84...
96 
 
 84 
 
97 
    mov  [pitch],2
 - 
 
98 
  if ~ RENDER eq PIX
 85 
    mov  [pitch],2
99 
    mov  edx,FONT_NAME
 86 
    mov  edx,FONT_NAME
100 
    mov  edi,save_limit
 87 
    mov  edi,save_limit
101 
    BGIfont_Prepare
 - 
 
102 
  end if
 88 
    BGIfont_Prepare
103 
 start2:
 89 
 start2:
104 
    cmp  byte[fname_buf],0
 90 
    cmp  byte[fname_buf],0
105 
    je   load_file;top_red
 91 
    je   load_file;top_red
106 
    jmp  noactivate
 92 
    jmp  noactivate
Line 319... Line 305...
319 
;    mov  [top],TOP
 305 
;    mov  [top],TOP
320 
;    cmp  cx,[top]
 306 
;    cmp  cx,[top]
321 
;    je   still
 307 
;    je   still
322 
    jmp  red
 308 
    jmp  red
323 
  .noarup:
 309 
  .noarup:
324 
  if  RENDER eq FREE
 - 
 
325 
    cmp  ah,56 ;zoom+
 310 
    cmp  ah,56 ;zoom+
326 
    jne  .noplus
 311 
    jne  .noplus
327 
  .zplus:
 312 
  .zplus:
328 
    fld  [FreeFontscale]
 313 
    fld  [FreeFontscale]
329 
    fmul [Zoomscale]
 314 
    fmul [Zoomscale]
Line 336... Line 321...
336 
  .zminus:
 321 
  .zminus:
337 
    fld  [FreeFontscale]
 322 
    fld  [FreeFontscale]
338 
    fdiv [Zoomscale]
 323 
    fdiv [Zoomscale]
339 
    jmp  .zoom
 324 
    jmp  .zoom
340 
  .nominus:
 325 
  .nominus:
341 
  end if
 - 
 
342 
    cmp  ah,0xB5        ; end
 326 
    cmp  ah,0xB5        ; end
343 
    jne  .pre_file_open
 327 
    jne  .pre_file_open
344 
  .end:
 328 
  .end:
Line 345... Line 329...
345 
 
 329 
 
Line 670... Line 654...
670 
  .l0:
 654 
  .l0:
671 
    push ecx
 655 
    push ecx
672 
    mov  ecx,16
 656 
    mov  ecx,16
673 
  .l1:
 657 
  .l1:
674 
    push ecx
 658 
    push ecx
675 
  if RENDER eq BGI
 - 
 
676 
    mov  edx,char
 - 
 
677 
    mov  ecx,0x48000000
 - 
 
678 
    mov  esi,1
 - 
 
679 
    BGIfont_Outtext
 - 
 
680 
  else
 - 
 
681 
    mcall 4,,0x10000000,char,1
 659 
    mcall 4,,0x10000000,char,1
682 
  end if
 - 
 
683 
    pop  ecx
 660 
    pop  ecx
684 
    inc  [char]
 661 
    inc  [char]
685 
    add  ebx,(CHARW+3) shl 16
 662 
    add  ebx,(CHARW+3) shl 16
686 
    loop .l1
 663 
    loop .l1
687 
    pop  ecx
 664 
    pop  ecx
Line 1070... Line 1047...
1070 
.all_redraw     dd 0    ;+80
 1047 
.all_redraw     dd 0    ;+80
1071 
.ar_offset      dd AR_OFFSET   ;+84
 1048 
.ar_offset      dd AR_OFFSET   ;+84
Line 1072... Line 1049...
1072 
 
 1049 
 
1073 
;---------------------------------------------------------------------
 1050 
;---------------------------------------------------------------------
1074 
;blind db ?
 - 
 
1075 
if RENDER eq PIX
 - 
 
1076 
;  rd 2
 - 
 
1077 
  Free rd 9
 - 
 
1078 
else
 - 
 
1079 
if RENDER eq BGI
 - 
 
1080 
  FreeFontscale dd 0.07
 1051 
;blind db ?
1081 
else
 1052 
 
1082 
  Zoomscale dd 1.15
 1053 
  Zoomscale dd 1.15
1083 
  FreeFontscale dd 0.04
 1054 
  FreeFontscale dd 0.04
1084 
end if
 1055 
 
- 
 
 1056 
  Free BGIfree FONT_NAME,0,0,1.0,1.0,char,1,0x44000000,0
1085 
  Free BGIfree FONT_NAME,0,0,1.0,1.0,char,1,0x44000000,0
 1057 
 
1086 
end if
 1058
1087 
I_END0:
 1059 
I_END0:
1088 
fname_buf:
 1060 
fname_buf:
1089 
        rb      1024+16
 1061 
        rb      1024+16
1090 
fileattr rd 40/4
 1062 
fileattr rd 40/4
Line 1139... Line 1111...
1139 
listptr dd ?
 1111 
listptr dd ?
1140 
szKeyword rb 31
 1112 
szKeyword rb 31
1141 
szParameter rb 21
 1113 
szParameter rb 21
1142 
block_end dd ?
 1114 
block_end dd ?
Line -... Line 1115...
- 
 
 1115 
 
- 
 
 1116 
help_file:
- 
 
 1117 
    file  'reader.rtf'
- 
 
 1118 
help_end:
- 
 
 1119 
 
- 
 
 1120 
litt_file:
- 
 
 1121 
	file 'litt.chr'
- 
 
 1122 
litt_end:
1143 
 
 1123 
 
1144 
;---------------------------------------------------------------------
 1124 
;---------------------------------------------------------------------
1145 
I_END:                             ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë
 1125 
I_END:                             ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë
1146 
rb RTFSIZE
 1126 
rb RTFSIZE
1147 
esp1:
 1127 
esp1: