'planet_v' use library 'proc_lib.obj'

git-svn-id: svn://kolibrios.org@1584 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/other/planet_v/pl_import.inc

@@ -3,7 +3,7 @@ boxlib_import:
   dd alib_init2 ;функция запускается макросом 1 раз при подключении бибилиотеки, потому в программе метка на нее не нужна
 
   edit_box_draw  dd aEdit_box_draw
-  edit_box_key   dd aEdit_box_key
+  edit_box_key	 dd aEdit_box_key
   edit_box_mouse dd aEdit_box_mouse
 ;  version_ed     dd aVersion_ed
 
@@ -93,11 +93,19 @@ boxlib_import:
 
 align 4
 libini_import:
-  dd alib_init0
+	dd alib_init0
-  ini_get_str  dd aini_get_str
+	ini_get_str  dd aini_get_str
 dd 0,0
-  alib_init0   db 'lib_init',0
+	alib_init0   db 'lib_init',0
-  aini_get_str db 'ini_get_str',0
+	aini_get_str db 'ini_get_str',0
+
+align 4
+proclib_import:
+	OpenDialog_Init dd aOpenDialog_Init
+	OpenDialog_Start dd aOpenDialog_Start
+dd 0,0
+	aOpenDialog_Init db 'OpenDialog_init',0
+	aOpenDialog_Start db 'OpenDialog_start',0
 
 align 4
 libimg_import:

programs/other/planet_v/planet_v.asm

@@ -19,8 +19,6 @@ 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'
-use_OpenDialog
 
 min_window_w equ 485 ;¬¨­¨¬ «ì­ ï è¨à¨­  ®ª­ 
 min_window_h equ 325 ;¬¨­¨¬ «ì­ ï ¢ëá®â  ®ª­ 
@@ -170,7 +168,7 @@ start:
   mov byte[file_name],0
 
   ; OpenDialog initialisation
-  init_OpenDialog OpenDialog_data
+  stdcall [OpenDialog_Init],OpenDialog_data
 
 align 4
 red_win:
@@ -463,33 +461,39 @@ popad
 
   head_f_i:
   head_f_l  db '‘¨á⥬­ ï ®è¨¡ª ',0
-  err_message_found_lib0 db '<27>¥ 㤠«®áì ­ ©â¨ ¡¨¡«¨®â¥ªã box_lib.obj',0
+  err_message_found_lib0 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  box_lib.obj',0
   err_message_import0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ box_lib.obj',0
-  err_message_found_lib1 db '<27>¥ 㤠«®áì ­ ©â¨ ¡¨¡«¨®â¥ªã libimg.obj',0
+  err_message_found_lib1 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  libimg.obj',0
   err_message_import1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ libimg.obj',0
-  err_message_found_lib2 db '<27>¥ 㤠«®áì ­ ©â¨ ¡¨¡«¨®â¥ªã str.obj',0
+  err_message_found_lib2 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  str.obj',0
   err_message_import2 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ str.obj',0
-  err_message_found_lib3 db '<27>¥ 㤠«®áì ­ ©â¨ ¡¨¡«¨®â¥ªã libini.obj',0
+  err_message_found_lib3 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  libini.obj',0
   err_message_import3 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ libini.obj',0
+  err_message_found_lib4 db '<27>¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  proc_lib.obj',0
+  err_message_import4 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ proc_lib.obj',0
 
 system_dir0 db '/sys/lib/'
-boxlib_name db 'box_lib.obj',0
+lib0_name db 'box_lib.obj',0
 
 system_dir1 db '/sys/lib/'
-libimg_name db 'libimg.obj',0
+lib1_name db 'libimg.obj',0
 
 system_dir2 db '/sys/lib/'
-strlib_name db 'str.obj',0
+lib2_name db 'str.obj',0
 
 system_dir3 db '/sys/lib/'
-libini_name db 'libini.obj',0
+lib3_name db 'libini.obj',0
+
+system_dir4 db '/sys/lib/'
+lib4_name db 'proc_lib.obj',0
 
 ;library structures
 l_libs_start:
-  lib0 l_libs boxlib_name, sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l, boxlib_import,err_message_import0, head_f_i
+  lib0 l_libs lib0_name, sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l, boxlib_import,err_message_import0, head_f_i
-  lib1 l_libs libimg_name, sys_path, file_name, system_dir1, err_message_found_lib1, head_f_l, libimg_import, err_message_import1, head_f_i
+  lib1 l_libs lib1_name, sys_path, file_name, system_dir1, err_message_found_lib1, head_f_l, libimg_import, err_message_import1, head_f_i
-  lib2 l_libs strlib_name, sys_path, file_name, system_dir2, err_message_found_lib2, head_f_l, strlib_import, err_message_import2, head_f_i
+  lib2 l_libs lib2_name, sys_path, file_name, system_dir2, err_message_found_lib2, head_f_l, strlib_import, err_message_import2, head_f_i
-  lib3 l_libs libini_name, sys_path, file_name, system_dir3, err_message_found_lib3, head_f_l, libini_import, err_message_import3, head_f_i
+  lib3 l_libs lib3_name, sys_path, file_name, system_dir3, err_message_found_lib3, head_f_l, libini_import, err_message_import3, head_f_i
+  lib4 l_libs lib4_name, sys_path, file_name, system_dir4, err_message_found_lib4, head_f_l, proclib_import, err_message_import4, head_f_i
 load_lib_end:
 
 align 4
@@ -848,7 +852,8 @@ fun_opn_dlg: ;
 	copy_path open_dialog_name,communication_area_default_path,file_name,0
 	mov [OpenDialog_data.type],2
 	mov dword[plugin_path],0 ;çâ®-¡ë ¯à¨ ®âªàë⨨ ¤¨ «®£®¢®£® ®ª­  ¯ãâì ¢á¥£¤  ¡à «áï ¨§ OpenDialog_data.dir_default_path
-	start_OpenDialog OpenDialog_data
+
+	stdcall [OpenDialog_Start],OpenDialog_data
 	cmp [OpenDialog_data.status],2
 	je @f
 		mov esi,[OpenDialog_data.openfile_path]
@@ -960,6 +965,12 @@ OpenDialog_data:
 .openfile_path		dd openfile_path	;+36 ¯ãâì ª ®âªà뢠¥¬®¬ã ä ©«ã
 .filename_area		dd filename_area	;+40
 .filter_area		dd Filter
+.x:
+.x_size 		dw 420 ;+48 ; Window X size
+.x_start		dw 10 ;+50 ; Window X position
+.y:
+.y_size 		dw 320 ;+52 ; Window y size
+.y_start		dw 10 ;+54 ; Window Y position
 
 communication_area_name:
 	db 'FFFFFFFF_open_dialog',0
@@ -1016,7 +1027,7 @@ align 4
   ret	      ;¢¥à­ãâìáï ç¥­ì ¨­â¥à¥á­ë© 室 â.ª. ¯®ª  ¢ á⥪¥ åà ­¨âìáï ª®«-¢® ¢ë§®¢®¢ â® á⮫쪮 à § ¬ë ¨ ¡ã¤¥¬ ¢ë§ë¢ âìáï
 
 
-hed db 'Planet viewer 27.05.10',0 ;¯®¤¯¨áì ®ª­ 
+hed db 'Planet viewer 24.08.10',0 ;¯®¤¯¨áì ®ª­ 
 
 sc system_colors  ;á¨á⥬­ë¥ 梥â 
 mouse_dd dd 0 ;­ã¦­® ¤«ï Shift-  ¢ editbox

programs/other/planet_v/readme.htm

@@ -36,7 +36,7 @@ ol, ul, dl{
 </style>
 </head>
 <body>
-<h1>Planet viewer 26.03.10</h1>
+<h1>Planet viewer 24.08.10</h1>
   <p>Программа предназначена для просмотра карт, загружаемых с разных
   картографических сервисов.</p>
 
@@ -67,6 +67,7 @@ ol, ul, dl{
   из её подпапок.</p>
 
 <h1>История версий:</h1>
+<p><b>24.08.10</b> - Äèàëîã äëÿ îòêðûòèÿ äèðåêòîðèè ðàáîòàåò ÷åðåç áèáëèîòåêó proc_lib.</p>
 <p><b>26.03.10</b> - Изменены функции открытия тайлов при задании не существующего пути. Могли возникать глюки при задании не существующего диска.</p>
 <p><b>08.02.10</b> - Появились новые параметры для *.ini файла от ext0 до ext9, которые задают возможные расширения для карт.</p>
 <p><b>29.01.10</b> - При запуске программы в текстовое поле 'Cache:' вводится путь прописанный в файле 'planet_v.ini'.
@@ -91,8 +92,9 @@ ol, ul, dl{
 <h1>Авторы:</h1>
 <ul>
   <li><b>IgorA</b> - идея создания программы,</li>
-  <li><b>diamond</b> - áèáëèîòåêà libimg.obj (çàãðóçêà *.bmp, *.jpg, *.png),</li>
+  <li><b>Diamond</b> - áèáëèîòåêà libimg.obj (çàãðóçêà *.bmp, *.jpg, *.png),</li>
-  <li><b>mike.dld</b> - áèáëèîòåêà libini.obj (ðàáîòà ñ *.ini ôàéëàìè),</li>
+  <li><b>Mike.dld</b> - áèáëèîòåêà libini.obj (ðàáîòà ñ *.ini ôàéëàìè),</li>
+  <li><b>Mario</b> - áèáëèîòåêà proc_lib.obj (ðàáîòà ñ OpenDialog-îì),</li>
   <li>и другие.</li>
 </ul>