WebSVN – Kolibri OS – Diff – /programs/other/planet_v/planet_v.asm

 include 'mem.inc'
 include 'dll.inc'
 include '../../develop/libraries/box_lib/load_lib.mac'
+include '../../develop/libraries/box_lib/trunk/box_lib.mac'
+include '../../develop/libraries/box_lib/asm/trunk/opendial.mac'
-include '../../develop/libraries/box_lib/trunk/box_lib.mac'
+use_OpenDialog
 min_window_w equ 485 ;¬¨¨¬ «ì ï è¨à¨  ®ª
     mov dword[txt_tile_type_0],'.bmp' ;¥á«¨ ¢ *.ini ä ©«¥ ¨ç¥£® ¥â ¤®¡ ¢«ï¥¬ à áè¨à¥¨¥ .bmp
   @@:
   stdcall dword[tl_node_add], txt_tile_type_0, 0, tree1
 ; init bmp file
-  push dword RGB_TILE_SIZE+300 ;300 - § ¯ áë¥ ¡ ©âë á ãç¥â®¬ § £®«®¢ª  bmp ä ©«
-  call mem.Alloc
+  stdcall mem.Alloc, dword RGB_TILE_SIZE+300 ;300 - § ¯ áë¥ ¡ ©âë á ãç¥â®¬ § £®«®¢ª  bmp ä ©«
   mov [bmp_icon],eax
   stdcall array_tile_function, tile_00,max_tiles_count,tile_init
-  stdcall tiles_init_grid, tile_00,max_tiles_count,max_tiles_cols
   stdcall tiles_init_grid, tile_00,max_tiles_count,max_tiles_cols
-  push dword TREE_ICON_SYS16_BMP_SIZE
-  call mem.Alloc
-  mov [tree_sys_icon],eax
+  stdcall mem.Alloc, dword TREE_ICON_SYS16_BMP_SIZE
   mov [tree_sys_icon],eax
   push dword TREE_ICON_NOD16_BMP_SIZE
-  call mem.Alloc
+  stdcall mem.Alloc, dword TREE_ICON_NOD16_BMP_SIZE
   edit_boxes_set_sys_color edit1,editboxes_end,sc
   check_boxes_set_sys_color ch1,checkboxes_end,sc
+  mov byte[file_name],0
+  ; OpenDialog initialisation
+  init_OpenDialog OpenDialog_data
   mov byte[file_name],0
+align 4
 red_win:
+  call draw_window
-  call draw_win
+  call but_MetLoad
   call but_MetLoad
 align 4
 still:
   stdcall [tl_mouse], tree1
   stdcall [tl_mouse], tree2
+  jmp still
   jmp still
 align 4
 key:
   push eax ebx
   mcall 2
   push dword tree1
   call [tl_key]
   push dword tree2
   call [tl_key]
-  mov ebx,dword[el_focus] ;÷òî-áû êàðòà íå äâèãàëàñü åñëè îêíà treelist â ôîêóñå
+  mov ebx,dword[el_focus] ;çâ®-¡ë ª àâ  ¥ ¤¢¨£ « áì ¥á«¨ ®ª  treelist ¢ ä®ªãá¥
   cmp ebx, dword tree1
   je .end_f
   cmp ebx, dword tree2
   je .end_f
-  ;÷òî-áû êàðòà íå äâèãàëàñü åñëè òåêñòîâûå ïîëÿ â ôîêóñå
+  ;çâ®-¡ë ª àâ  ¥ ¤¢¨£ « áì ¥á«¨ â¥ªáâ®¢ë¥ ¯®«ï ¢ ä®ªãá¥
   test word[edit1.flags],10b ;ed_focus
   jne .end_f
   pop ebx eax
   jmp still
 align 4
-draw_win:
+draw_window:
 pushad
   mcall 12,1
   add dword[edit2.left],370-otst_panel_left
   stdcall dword[tl_draw],dword tree1
   stdcall dword[tl_draw],dword tree2
-  mov dword[wScrMetki.all_redraw],1
-  push dword wScrMetki
+  mov dword[wScrMetki.all_redraw],1
-  call [scrollbar_ver_draw]
+  stdcall [scrollbar_ver_draw], dword wScrMetki
   mov eax,8 ;ª®¯ª
   mov ebx,145*65536+20
   mov ebx,100*65536+20
   mov ecx,5*65536+25
   mov edx,5
   int 0x40
+  mov ebx,170*65536+40 ;ª®¯ª  ¢ë§®¢  ¤¨ «®£  OpenDial
+  ;mov ecx,5*65536+25
+  mov edx,13
+  int 0x40
   mov bx,di
   shl ebx,16
   mov bx,100
   mov ecx,265*65536+25
   mov bx,di
   add bx,405-otst_panel_left
   shl ebx,16
   mov bx,30
   ;mov ebx,405*65536+30
-  mov ecx,265*65536+25
+  ;mov ecx,265*65536+25
   mov edx,11
   int 0x40
   mov bx,di
   add bx,370-otst_panel_left
   shl ebx,16
   mov bx,30
   ;mov ebx,370*65536+30
-  mov ecx,265*65536+25
+  ;mov ecx,265*65536+25
   mov edx,10
   int 0x40
   mov edx,txt142
   int 0x40
-  call draw_tiles
+  call draw_tiles
-  push dword ch2
-  call [check_box_draw]
-  push dword ch1
-  call [check_box_draw]
+  stdcall [check_box_draw], dword ch1
   stdcall [check_box_draw], dword ch2
   stdcall [edit_box_draw], edit1
   stdcall [edit_box_draw], edit2
   @@:
   cmp ah,12
   jne @f
     call fun_goto_met
   @@:
+  cmp ah,13 ;¤¨ «®£ OpenDialog ¤«ï ¯®¨áª  ¯ ¯ª¨
+  jne @f
+    call fun_opn_dlg
+  @@:
   cmp ah,1
   jne still
 .exit:
   push dword[bmp_icon]
   call mem.Free
   stdcall array_tile_function, tile_00,max_tiles_count,tile_destroy
   stdcall dword[tl_data_clear], tree1
-  mov dword[tree2.data_img_sys],0 ;÷èñòèì óêàçàòåëü íà ñèñòåìíûå èêîíêè,
+  mov dword[tree2.data_img_sys],0 ;ç¨áâ¨¬ ãª § â¥«ì   á¨áâ¥¬ë¥ ¨ª®ª¨,
-    ;ò. ê. îíè áûëè óäàëåíû âåðõíåé ôóíêöèåé tl_data_clear
+    ;â. ª. ®¨ ¡ë«¨ ã¤ «¥ë ¢¥àå¥© äãªæ¨¥© tl_data_clear
-    ;ïîâòîðíûé âûçîâ tl_data_clear áåç ÷èñòêè óêàçàòåëÿ âûçâåò îøèáêó
+    ;¯®¢â®àë© ¢ë§®¢ tl_data_clear ¡¥§ ç¨áâª¨ ãª § â¥«ï ¢ë§¢¥â ®è¨¡ªã
-  mov dword[tree2.data_img],0 ;÷èñòèì óêàçàòåëü íà èêîíêè óçëîâ
+  mov dword[tree2.data_img],0 ;ç¨áâ¨¬ ãª § â¥«ì   ¨ª®ª¨ ã§«®¢
   stdcall dword[tl_data_clear], tree2
 proc img_rgb_wdiv2 data_rgb:dword, size:dword
   push eax ebx ecx edx
   mov eax,dword[data_rgb]
   mov ecx,dword[size] ;ecx = size
   imul ecx,3
-  @@: ;çàòåìíåíèå öâåòà ïèêñåëåé
+  @@: ;§ â¥¬¥¨¥ æ¢¥â  ¯¨ªá¥«¥©
     shr byte[eax],1
     and byte[eax],0x7f
     inc eax
     loop @b
   mov eax,dword[data_rgb]
   mov ecx,dword[size] ;ecx = size
   shr ecx,1
-  @@: ;ñëîæåíèå öâåòîâ ïèêñåëåé
+  @@: ;á«®¦¥¨¥ æ¢¥â®¢ ¯¨ªá¥«¥©
-    mov ebx,dword[eax+3] ;êîïèðóåì öâåò ñîñåäíåãî ïèêñåëÿ
+    mov ebx,dword[eax+3] ;ª®¯¨àã¥¬ æ¢¥â á®á¥¤¥£® ¯¨ªá¥«ï
     add word[eax],bx
     shr ebx,16
     add byte[eax+2],bl
   add eax,3
   mov ebx,eax
   add ebx,3
   mov ecx,dword[size] ;ecx = size
   shr ecx,1
-  dec ecx ;ëèøíèé ïèêñåëü
+  dec ecx ;«¨è¨© ¯¨ªá¥«ì
-  @@: ;ïîäæàòèå ïèêñåëåé
+  @@: ;¯®¤¦ â¨¥ ¯¨ªá¥«¥©
     mov edx,dword[ebx]
     mov word[eax],dx
     shr edx,16
     mov byte[eax+2],dl
   pushad
   mov eax,dword[data_rgb] ;eax =
   mov ecx,dword[size]	  ;ecx = size
   imul ecx,3
-  @@: ;çàòåìíåíèå öâåòà ïèêñåëåé
+  @@: ;§ â¥¬¥¨¥ æ¢¥â  ¯¨ªá¥«¥©
     shr byte[eax],1
     and byte[eax],0x7f
     inc eax
   mov ebx,esi
   add ebx,eax
   mov ecx,dword[size]  ;ecx = size
   shr ecx,1
   xor edi,edi
-  @@: ;ñëîæåíèå öâåòîâ ïèêñåëåé
+  @@: ;á«®¦¥¨¥ æ¢¥â®¢ ¯¨ªá¥«¥©
-    mov edx,dword[ebx] ;êîïèðóåì öâåò íèæíåãî ïèêñåëÿ
+    mov edx,dword[ebx] ;ª®¯¨àã¥¬ æ¢¥â ¨¦¥£® ¯¨ªá¥«ï
     add word[eax],dx
     shr edx,16
     add byte[eax+2],dl
   add eax,esi ;esi = width*3(rgb)
   mov ebx,esi
   add ebx,eax
-  mov ecx,dword[size]  ;ecx = size
+  mov ecx,dword[size] ;ecx = size
   shr ecx,1
-  sub ecx,dword[size_w] ;ëèøíÿÿ ñòðîêà ïèêñåëåé
+  sub ecx,dword[size_w] ;«¨èïï áâà®ª  ¯¨ªá¥«¥©
   xor edi,edi
-  @@: ;ïîäæàòèå ïèêñåëåé
+  @@: ;¯®¤¦ â¨¥ ¯¨ªá¥«¥©
-    mov edx,dword[ebx] ;êîïèðóåì öâåò íèæíåãî ïèêñåëÿ
+    mov edx,dword[ebx] ;ª®¯¨àã¥¬ æ¢¥â ¨¦¥£® ¯¨ªá¥«ï
     mov word[eax],dx
     shr edx,16
     mov byte[eax+2],dl
     repne stosb
   pop edi ecx eax
   ret
 endp
+align 4
+fun_opn_dlg: ;äãªæ¨ï ¤«ï ¢ë§®¢  OpenFile ¤¨ «®£
+	pushad
+	copy_path open_dialog_name,sys_path,file_name,0
+	mov [OpenDialog_data.type],2
+	mov dword[plugin_path],0 ;çâ®-¡ë ¯à¨ ®âªàëâ¨¨ ¤¨ «®£®¢®£® ®ª  ¯ãâì ¢á¥£¤  ¡à «áï ¨§ OpenDialog_data.dir_default_path
+	start_OpenDialog OpenDialog_data
+	cmp [OpenDialog_data.status],2
+	je @f
+		mov esi,[OpenDialog_data.openfile_path]
+		stdcall [str_len],dword[edit1.text],dword[edit1.max]
+		mov [edit1.size],eax
+		mov [edit1.pos],eax
+		stdcall [edit_box_draw], edit1
+	@@:
+	popad
+	ret
   txt_met_up db 24,0
   txt_met_dn db 25,0
   txt_met_sh db '*',0
   txt_zoom_m db '-',0
 checkboxes_end:
 ch_text1 db '¡à âì á¢¥àåã'
 ch_text2 db '¡à âì á¨§ã'
-edit1 edit_box 190, 215,  10, 0xd0ffff, 0xff, 0x80ff, 0, 0xa000, 500, ed_buffer.1, mouse_dd, 0
+edit1 edit_box 190, 215,  10, 0xd0ffff, 0xff, 0x80ff, 0, 0xa000, 4090, openfile_path, mouse_dd, 0
 edit2 edit_box 100, 370, 240, 0xd0ffff, 0xff, 0x80ff, 0, 0xa000,  30, ed_buffer.2, mouse_dd, 0
 editboxes_end:
 .work_size  dd 0 ;+76
 .all_redraw dd 0 ;+80
 .ar_offset  dd 1 ;+84
-ed_buffer: ;òåêñò äëÿ edit
-  .1: rb 502
+ed_buffer: ;òåêñò äëÿ edit
   .2: rb 32
 run_file_70 FileInfoBlock
 txt_tile_path db 'tile path',0
   rb 300
-txt_tile_type dd txt_tile_type_0 ;óêàçàòåëü íà âûáðàííûé òèï ôàéëîâ
+txt_tile_type dd txt_tile_type_0 ;ãª § â¥«ì   ¢ë¡à ë© â¨¯ ä ©«®¢
+txt_tile_type_0 db 0
-txt_tile_type_0 db 0
+  rb 10
+;---------------------------------------------------------------------
+align 4
+OpenDialog_data:
+.type			dd 2
+.procinfo		dd procinfo	;+4
+.com_area_name		dd communication_area_name	;+8
+.com_area		dd 0	;+12
+.opendir_path		dd plugin_path	;+16
+.dir_default_path	dd openfile_path ;+20
+.start_path		dd file_name ;+24 ¯ãâì ª ¤¨ «®£ã ®âªàëâ¨ï ä ©«®¢
+.draw_window		dd draw_window	;+28
+.status 		dd 0	;+32
+.openfile_path		dd openfile_path	;+36 ¯ãâì ª ®âªàë¢ ¥¬®¬ã ä ©«ã
+.filename_area		dd filename_area	;+40
+.filter_area		dd Filter
+communication_area_name:
+	db 'FFFFFFFF_open_dialog',0
+open_dialog_name:
+	db 'opendial',0
+communication_area_default_path:
+	db '/rd/1',0
+Filter:
+dd Filter.end - Filter.1
+.1:
+db 'TXT',0
+.end:
-  rb 10
+db 0
 align 4
-map: ;êîîðäèíàòû êàðòû
+map: ;ª®®à¤¨ âë ª àâë
-  .coord_x dd 0 ;êîîðäèíàòà x
+  .coord_x dd 0 ;ª®®à¤¨ â  x
-  .coord_y dd 0 ;êîîðäèíàòà y
+  .coord_y dd 0 ;ª®®à¤¨ â  y
-  .zoom    db 1 ;ìàñøòàá
+  .zoom    db 1 ;¬ áèâ ¡
 align 4
 tile_00 rb size_tile_struc * max_tiles_count
-;ýòîò êîä íå ìîé, îí ïðåîáðàçóåò ÷èñëî â ñòðîêó
+;íâ®â ª®¤ ¥ ¬®©, ® ¯à¥®¡à §ã¥â ç¨á«® ¢ áâà®ªã
   popad
   ret
 align 4
 .str:
-  mov ecx,0x0a ;çàäàåòñÿ ñèñòåìà ñ÷èñëåíèÿ èçìåíÿþòñÿ ðåãèñòðû ebx,eax,ecx,edx âõîäíûå ïàðàìåòðû eax - ÷èñëî
+  mov ecx,0x0a ;§ ¤ ¥âáï á¨áâ¥¬  áç¨á«¥¨ï ¨§¬¥ïîâáï à¥£¨áâàë ebx,eax,ecx,edx ¢å®¤ë¥ ¯ à ¬¥âàë eax - ç¨á«®
-    ;ïðåðåâîä ÷èñëà â ASCII ñòðîêó âçîäíûå äàííûå ecx=ñèñòåìà ñ÷èñëåíÿ edi àäðåñ êóäà çàïèñûâàòü, áóäåì ñòðîêó, ïðè÷åì êîíåö ïåðåìåííîé
+    ;¯à¥à¥¢®¤ ç¨á«  ¢ ASCII áâà®ªã ¢§®¤ë¥ ¤ ë¥ ecx=á¨áâ¥¬  áç¨á«¥ï edi  ¤à¥á ªã¤  § ¯¨áë¢ âì, ¡ã¤¥¬ áâà®ªã, ¯à¨ç¥¬ ª®¥æ ¯¥à¥¬¥®©
-  cmp eax,ecx  ;ñðàâíèòü åñëè â eax ìåíüøå ÷åì â ecx òî ïåðåéòè íà @@-1 ò.å. íà pop eax
+  cmp eax,ecx  ;áà ¢¨âì ¥á«¨ ¢ eax ¬¥ìè¥ ç¥¬ ¢ ecx â® ¯¥à¥©â¨   @@-1 â.¥.   pop eax
   jb @f
-  xor edx,edx  ;î÷èñòèòü edx
+  xor edx,edx  ;®ç¨áâ¨âì edx
-  div ecx      ;ðàçäåëèòü - îñòàòîê â edx
+  div ecx      ;à §¤¥«¨âì - ®áâ â®ª ¢ edx
-  push edx     ;ïîëîæèòü â ñòåê
+  push edx     ;¯®«®¦¨âì ¢ áâ¥ª
-  ;dec edi             ;ñìåùåíèå íåîáõîäèìîå äëÿ çàïèñè ñ êîíöà ñòðîêè
+  ;dec edi             ;á¬¥é¥¨¥ ¥®¡å®¤¨¬®¥ ¤«ï § ¯¨á¨ á ª®æ  áâà®ª¨
-  call .str;ïåðåéòè íà ñàìó ñåáÿ ò.å. âûçâàòü ñàìó ñåáÿ è òàê äî òîãî ìîìåíòà ïîêà â eax íå ñòàíåò ìåíüøå ÷åì â ecx
+  call .str;¯¥à¥©â¨   á ¬ã á¥¡ï â.¥. ¢ë§¢ âì á ¬ã á¥¡ï ¨ â ª ¤® â®£® ¬®¬¥â  ¯®ª  ¢ eax ¥ áâ ¥â ¬¥ìè¥ ç¥¬ ¢ ecx
   pop eax
-  @@: ;cmp al,10 ;ïðîâåðèòü íå ìåíüøå ëè çíà÷åíèå â al ÷åì 10 (äëÿ ñèñòåìû ñ÷èñëåíÿ 10 äàííàÿ êîìàíäà - ëèøíàÿ))
+  @@: ;cmp al,10 ;¯à®¢¥à¨âì ¥ ¬¥ìè¥ «¨ § ç¥¨¥ ¢ al ç¥¬ 10 (¤«ï á¨áâ¥¬ë áç¨á«¥ï 10 ¤  ï ª®¬ ¤  - «¨è ï))
-  or al,0x30  ;äàííàÿ êîìàíäà êîðî÷å  ÷åì äâå âûøå
+  or al,0x30  ;¤  ï ª®¬ ¤  ª®à®ç¥  ç¥¬ ¤¢¥ ¢ëè¥
-  stosb       ;çàïèñàòü ýëåìåíò èç ðåãèñòðà al â ÿ÷åêó ïàìÿòè es:edi
+  stosb       ;§ ¯¨á âì í«¥¬¥â ¨§ à¥£¨áâà  al ¢ ïç¥ªã ¯ ¬ïâ¨ es:edi
-  ret	      ;âåðíóòüñÿ ÷åíü èíòåðåñíûé õîä ò.ê. ïîêà â ñòåêå õðàíèòüñÿ êîë-âî âûçîâîâ òî ñòîëüêî ðàç ìû è áóäåì âûçûâàòüñÿ
+  ret	      ;¢¥àãâìáï ç¥ì ¨â¥à¥áë© å®¤ â.ª. ¯®ª  ¢ áâ¥ª¥ åà ¨âìáï ª®«-¢® ¢ë§®¢®¢ â® áâ®«ìª® à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
-hed db 'Planet viewer 26.03.10',0 ;¯®¤¯¨áì ®ª
-sc system_colors  ;á¨áâ¥¬ë¥ æ¢¥â
-mouse_dd dd 0 ;ã¦® ¤«ï Shift-  ¢ editbox
+hed db 'Planet viewer 27.05.10',0 ;¯®¤¯¨áì ®ª
-  sys_path rb 4096
   file_name:
+sc system_colors  ;á¨áâ¥¬ë¥ æ¢¥â
+mouse_dd dd 0 ;ã¦® ¤«ï Shift-  ¢ editbox
-    rb 4096
+i_end:
+	rb 1024
+	align 16
+	procinfo process_information
+stacktop:
+	sys_path rb 4096
+	file_name:
+		rb 4096
+	plugin_path:
+		rb 4096
-i_end:
+	openfile_path:

Subversion Repositories Kolibri OS

(root)/programs/other/planet_v/planet_v.asm @ 1464 – Rev 1464 → 1467