Subversion Repositories Kolibri OS

Rev

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

Rev 1399 Rev 1418
Line 51... Line 51...
51 
  dd     sys_mem     ;  ¤à¥á ¢¥à設ë áâíª 
 51 
  dd     sys_mem     ;  ¤à¥á ¢¥à設ë áâíª 
52 
  dd     fname_buf   ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
 52 
  dd     fname_buf   ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
53 
  dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
 53 
  dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
Line 54... Line 54...
54 
 
 54 
 
- 
 
 55 
include '..\..\..\MACROS.INC' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
- 
 
 56 
include '..\..\..\develop\libraries\box_lib\load_lib.mac'
- 
 
 57 
include '..\..\..\develop\libraries\box_lib\asm\trunk\opendial.mac'
- 
 
 58 
 
- 
 
 59 
;include 'MACROS.INC'
- 
 
 60 
;include 'load_lib.mac'
- 
 
 61 
;include 'opendial.mac'
55 
include '..\..\..\MACROS.INC' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
 62 
 
- 
 
 63 
include 'debug.inc'
- 
 
 64 
 
56 
include 'debug.inc'
 65 
	use_OpenDialog
57 
if ~ RENDER eq PIX
 66 
if ~ RENDER eq PIX
58 
  TOP=TOP+4
 67 
  TOP=TOP+4
59 
  include 'bgifont.inc'
 68 
  include 'bgifont.inc'
60 
end if
 69 
end if
Line 66... Line 75...
66 
help_file:
 75 
help_file:
67 
file  'reader.rtf'
 76 
file  'reader.rtf'
68 
help_end:
 77 
help_end:
Line 69... Line 78...
69 
 
 78 
 
- 
 
 79 
START:
- 
 
 80 
        mcall 68, 11
- 
 
 81 
;OpenDialog initialisation
- 
 
 82 
init_OpenDialog	OpenDialog_data
70 
START:
 83 
 
71 
    mov  [pitch],2
 84 
    mov  [pitch],2
72 
  if ~ RENDER eq PIX
 85 
  if ~ RENDER eq PIX
73 
    mov  edx,FONT_NAME
 86 
    mov  edx,FONT_NAME
74 
    mov  edi,save_limit
 87 
    mov  edi,save_limit
Line 244... Line 257...
244 
  .nominus:
 257 
  .nominus:
245 
  end if
 258 
  end if
246 
    cmp  ah,108         ; L - load
 259 
    cmp  ah,108         ; L - load
247 
    jne  stilld
 260 
    jne  stilld
248 
  .file_open:
 261 
  .file_open:
- 
 
 262 
;---------------------------------------------------------------------
- 
 
 263 
;OpenDialog_start:
- 
 
 264 
	call	get_filter_data
- 
 
 265 
;	copy_path	open_dialog_name,path,library_path,0
- 
 
 266
- 
 
 267 
	start_OpenDialog	OpenDialog_data
- 
 
 268 
 
- 
 
 269 
	cmp	[OpenDialog_data.status],2 ; OpenDialog does not start
- 
 
 270 
	je	.sysxtree  ; 	some kind of alternative, instead OpenDialog
- 
 
 271 
	cmp	[OpenDialog_data.status],1
- 
 
 272 
;	jne	still ; OpenDialog user say cancel
- 
 
 273 
;	copy path
- 
 
 274 
;	call	draw_window
- 
 
 275 
	je	prep_load
- 
 
 276
- 
 
 277 
;.copy_dir_path:
- 
 
 278 
;    mov   esi,fname_buf
- 
 
 279 
;    mov   edi,temp_dir_pach
- 
 
 280 
;	call  copy_dir_path
- 
 
 281
- 
 
 282 
	jmp	still ; OpenDialog user selected the target file
- 
 
 283 
	; [OpenDialog_data.openfile_pach] pointer of area the target file
- 
 
 284
- 
 
 285 
;---------------------------------------------------------------------
- 
 
 286 
.sysxtree:
249 
    or   [mode],RTF_OPENING
 287 
    or   [mode],RTF_OPENING
250 
    opendialog draw_window, prep_load, st_1, fname_buf
 288 
    opendialog draw_window, prep_load, st_1, fname_buf
251 
  st_1:
 289 
  st_1:
252 
    and  [mode],not RTF_OPENING
 290 
    and  [mode],not RTF_OPENING
253 
    jmp  still;red
 291 
    jmp  still;red
254 
  stilld:
 292 
  stilld:
255 
    jmp  still
 293 
    jmp  still
- 
 
 294 
;---------------------------------------------------------------------
- 
 
 295 
get_filter_data:
- 
 
 296 
	mov	edi,[OpenDialog_data.com_area]
- 
 
 297 
	test	edi,edi
- 
 
 298 
	jnz	@f
- 
 
 299 
	add	esp,4
- 
 
 300 
	jmp	still
256 
 
 301 
@@:
- 
 
 302 
	add	edi,4096+4
- 
 
 303 
	mov	esi,Filter
- 
 
 304 
	mov	ecx,[esi]
- 
 
 305 
	inc	ecx
- 
 
 306 
	cld
- 
 
 307 
	rep	movsb
- 
 
 308 
	mov	edi,[OpenDialog_data.com_area]
- 
 
 309 
	mov	[edi+4096],dword 1
- 
 
 310 
	ret
257 
;---------------------------------------------------------------------
 311 
;---------------------------------------------------------------------
Line 258... Line 312...
258 
 
 312 
 
259 
  button:
 313 
  button:
260 
    mcall 17            ; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
 314 
    mcall 17            ; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
Line 501... Line 555...
501 
    db 'Load Aligment Color Help    <      >'
 555 
    db 'Load Aligment Color Help    <      >'
502 
if RENDER eq FREE
 556 
if RENDER eq FREE
503 
    db '    Zoom+ Zoom- '
 557 
    db '    Zoom+ Zoom- '
504 
  end if
558 
  end if
505 
btn_end:
 559 
btn_end:
- 
 
 560 
;---------------------------------------------------------------------
- 
 
 561 
OpenDialog_data:
- 
 
 562 
.type			dd 0
- 
 
 563 
.procinfo		dd procinfo ;+4
- 
 
 564 
.com_area_name		dd communication_area_name ;+8
- 
 
 565 
.com_area		dd 0 ;+12
- 
 
 566 
.opendir_pach		dd temp_dir_pach ;+16
- 
 
 567 
.dir_default_pach	dd communication_area_default_pach ;+20
- 
 
 568 
.start_path		dd open_dialog_path ;+24
- 
 
 569 
.draw_window		dd draw_window ;+28
- 
 
 570 
.status			dd 0 ;+32
- 
 
 571 
.openfile_pach		dd fname_buf ;+36
506 
 
 572 
 
- 
 
 573 
communication_area_name:
- 
 
 574 
	db 'FFFFFFFF_open_dialog',0
- 
 
 575 
open_dialog_path:
- 
 
 576 
	db '/sys/File Managers/opendial',0
- 
 
 577 
communication_area_default_pach:
- 
 
 578 
	db '/rd/1',0
- 
 
 579 
 
- 
 
 580 
Filter:
- 
 
 581 
dd  Filter.end - Filter
- 
 
 582 
db 'RTF',0
- 
 
 583 
.end:
- 
 
 584 
db 0
- 
 
 585 
;---------------------------------------------------------------------
507 
attrinfo:
 586 
attrinfo:
508 
        dd      5
 587 
        dd      5
509 
        dd      0
 588 
        dd      0
510 
        dd      0
 589 
        dd      0
511 
        dd      0
 590 
        dd      0
Line 621... Line 700...
621 
rb RTFSIZE
 700 
rb RTFSIZE
622 
esp1:
 701 
esp1:
623 
rb ESPSIZE
 702 
rb ESPSIZE
624 
sys_mem:
 703 
sys_mem:
625 
rb ESPSIZE
 704 
rb ESPSIZE
- 
 
 705 
;---------------------------------------------------------------------
- 
 
 706 
temp_dir_pach:
- 
 
 707 
        rb 4096
- 
 
 708 
;---------------------------------------------------------------------
626 
esp_end:
 709 
esp_end: