Subversion Repositories Kolibri OS

Rev

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

Rev 1041 Rev 1068
Line 1... Line 1...
1
;---------------------------------------------------------------------
1
;---------------------------------------------------------------------
2
;---  ÄÀÍÍÛÅ ÏÐÎÃÐÀÌÌÛ  ----------------------------------------------
2
;---  ÄÀÍÍÛÅ ÏÐÎÃÐÀÌÌÛ  ----------------------------------------------
3
;---------------------------------------------------------------------
3
;---------------------------------------------------------------------
-
 
4
	@use_library
4
header_1 db 'Box_lib Control Demo by Mario79',0
5
header_1 db 'Box_lib Control Demo by Mario79',0
Line 5... Line 6...
5
 
6
 
Line 6... Line 7...
6
ok_btn db 'Ok',0
7
ok_btn db 'Ok',0
7
	
8
        
8
labelt3 db 'About program',0
9
labelt3 db 'About program',0
9
;---------------------------------------------------------------------
-
 
-
 
10
;---------------------------------------------------------------------
10
icons_file_name: db 'reload_16x16_8b.bmp',0
11
icons_file_name: db 'reload_16x16_8b.bmp',0
-
 
12
system_dir1      db '/sys/lib/'
-
 
13
plugin_BMP_name db 'cnv_bmp.obj',0
11
 
14
 
-
 
15
system_dir      db '/sys/lib/'
-
 
16
boxlib_name     db 'box_lib.obj',0
-
 
17
; Åñëè åñòü æåëàíèå ðàçúåäèíèòü, òî íóæíî èñïîëüçîâàòü ñëåäóþùèþ êîíñòðóêöèþ
-
 
18
;system_path      db '/sys/lib/box_lib.obj',0
-
 
19
;... ëþáàÿ ïîñëåäîâàòåëüíîñòü äðóãèõ êîìàíä è îïðåäåëåíèé.
-
 
20
;library_name     db 'box_lib.obj',0
-
 
21
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 
22
ihead_f_i:
-
 
23
ihead_f_l        db 'System error',0
-
 
24
 
-
 
25
er_message_found_lib   db 'Sorry I cannot load library box_lib.obj',0
-
 
26
er_message_import      db 'Error on load import library box_lib.obj',0
-
 
27
 
-
 
28
er_message_found_lib2   db 'Sorry I cannot load library cnv_bmp.obj',0
-
 
29
er_message_import2      db 'Error on load import library cnv_bmp.obj',0
-
 
30
 
-
 
31
align 4
-
 
32
l_libs_start:
-
 
33
library01  l_libs boxlib_name, path, file_name, system_dir, \
-
 
34
er_message_found_lib, ihead_f_l, myimport, er_message_import, ihead_f_i
-
 
35
 
-
 
36
;library02  l_libs plugin_BMP_name, path, file_name, system_dir1,\
-
 
37
;er_message_found_lib2, ihead_f_l, myimport, er_message_import2, ihead_f_i
Line 12... Line -...
12
plugin_BMP_name db 'cnv_bmp.obj',0
-
 
13
boxlib_name db 'box_lib.obj',0
38
 
14
 
39
end_l_libs:
15
system_dir db '/sys/lib/box_lib.obj',0
40
 
16
;---------------------------------------------------------------------
41
;---------------------------------------------------------------------
17
fileinfo:
42
fileinfo:
Line 39... Line 64...
39
;---------------------------------------------------------------------
64
;---------------------------------------------------------------------
Line 40... Line 65...
40
 
65
 
41
;---------------------------------------------------------------------
66
;---------------------------------------------------------------------
42
align 4
67
align 4
-
 
68
myimport:   
-
 
69
init_lib            dd      a_init
-
 
70
version_lib         dd      a_version
Line 43... Line 71...
43
myimport:   
71
 
44
 
72
 
45
edit_box_draw   dd      aEdit_box_draw
73
edit_box_draw   dd      aEdit_box_draw
46
edit_box_key    dd      aEdit_box_key
74
edit_box_key    dd      aEdit_box_key
Line 69... Line 97...
69
menu_bar_mouse			dd	aMenu_bar_mouse
97
menu_bar_mouse                  dd      aMenu_bar_mouse
70
version_menu_bar		dd	aVersion_menu_bar
98
version_menu_bar                dd      aVersion_menu_bar
71
                dd      0
99
                dd      0
72
                dd      0
100
                dd      0
Line -... Line 101...
-
 
101
 
-
 
102
a_init          db 'lib_init',0
-
 
103
a_version       db 'version',0
73
 
104
 
74
aEdit_box_draw  db 'edit_box',0
105
aEdit_box_draw  db 'edit_box',0
75
aEdit_box_key   db 'edit_box_key',0
106
aEdit_box_key   db 'edit_box_key',0
76
aEdit_box_mouse db 'edit_box_mouse',0
107
aEdit_box_mouse db 'edit_box_mouse',0