Subversion Repositories Kolibri OS

Rev

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

Rev 1373 Rev 1606
Line 1... Line 1...
1
;
1
;
2
;   RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
2
;   RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
3
;   
3
;
-
 
4
; version:	1.3
-
 
5
; last update:  08/09/2010
-
 
6
; written by:   Marat Zakiyanov aka Mario79, aka Mario
-
 
7
; changes:      select path with OpenDialog,
-
 
8
;               keys 1,2,3,4 for select options
-
 
9
;---------------------------------------------------------------------
4
;   Mario79 2005
10
;   Mario79 2005
5
;   Heavyiron 12.02.2007
11
;   Heavyiron 12.02.2007
6
;        11.05.2009 - ¤«ï à ¡®âë ­ã¦­  á¨á⥬­ ï ¡¨¡«¨®â¥ª  box_lib.obj
12
;        11.05.2009 - ¤«ï à ¡®âë ­ã¦­  á¨á⥬­ ï ¡¨¡«¨®â¥ª  box_lib.obj
7
;   Š®¬¯¨«¨à®¢ âì FASM'®¬
13
;   Š®¬¯¨«¨à®¢ âì FASM'®¬
8
;
14
;
9
;---------------------------------------------------------------------
15
;---------------------------------------------------------------------
10
include 'lang.inc'
16
include 'lang.inc'
11
include '..\..\..\macros.inc'
17
include '..\..\..\macros.inc'
Line 12... Line 18...
12
 
18
 
13
appname equ 'RDsave '
19
appname equ 'RDsave '
Line 14... Line 20...
14
version equ '1.2'
20
version equ '1.3'
15
  
21
  
Line 16... Line 22...
16
  use32 	     ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
22
use32 	     ; ¢ª«îç¨âì 32-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
17
  org	 0x0	     ;  ¤à¥á æ¨ï á ­ã«ï
23
org	 0x0	     ;  ¤à¥á æ¨ï á ­ã«ï
18
 
24
 
19
  db	 'MENUET01'  ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
25
	db 'MENUET01'  ; 8-¡ ©â­ë© ¨¤¥­â¨ä¨ª â®à MenuetOS
20
  dd	 0x01	     ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
26
	dd 0x01	     ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
21
  dd	 START	     ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
27
	dd START	     ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
22
  dd	 I_END	     ; à §¬¥à ¯à®£à ¬¬ë
28
	dd IM_END	     ; à §¬¥à ¯à®£à ¬¬ë
23
  dd	 I_END	     ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
29
	dd I_END	     ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
Line 24... Line 30...
24
  dd	 I_END	     ;  ¤à¥á ¢¥à設ë áâíª 
30
	dd stacktop     ;  ¤à¥á ¢¥à設ë áâíª 
25
  dd	 0x0	     ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
31
	dd 0x0	     ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
Line 37... Line 43...
37
;---------------------------------------------------------------------
43
;---------------------------------------------------------------------
38
;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
44
;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
39
;---------------------------------------------------------------------
45
;---------------------------------------------------------------------
40
align 4
46
align 4
41
START:
47
START:
42
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
48
	mcall	68,11
-
 
49
 
43
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
50
load_libraries l_libs_start,end_l_libs
-
 
51
 
44
	cmp	eax,-1
52
	cmp	eax,-1
45
	jz	close
53
	jz	close
Line -... Line 54...
-
 
54
 
-
 
55
	mov	edi,filename_area
-
 
56
	mov	esi,start_temp_file_name
-
 
57
	xor	eax,eax
-
 
58
	cld
-
 
59
@@:
-
 
60
	lodsb
-
 
61
	stosb
-
 
62
	test	eax,eax
Line -... Line 63...
-
 
63
	jnz	@b
-
 
64
 
46
 
65
 
47
 
66
	mov	edi,fname_buf
48
   mov eax, 40
67
	mov	esi,path4
-
 
68
	xor	eax,eax
-
 
69
	cld
-
 
70
@@:
-
 
71
	lodsb
-
 
72
	stosb
-
 
73
	test	eax,eax
-
 
74
	jnz	@b
-
 
75
 
-
 
76
;OpenDialog	initialisation
-
 
77
	push    dword OpenDialog_data
-
 
78
	call    [OpenDialog_Init]
-
 
79
 
-
 
80
; prepare for PathShow
-
 
81
	push	dword PathShow_data_1
-
 
82
	call	[PathShow_prepare]
49
   mov ebx, 100111b
83
 
50
   mcall
-
 
51
red:			; ¯¥à¥à¨á®¢ âì ®ª­®
-
 
52
   mov	eax,48
-
 
53
   mov	ebx,3
84
	mcall	40,100111b
54
   mov	ecx,sc
-
 
55
   mov	edx,sizeof.system_colors
-
 
56
   mcall
-
 
Line -... Line 85...
-
 
85
red:			; ¯¥à¥à¨á®¢ âì ®ª­®
57
	edit_boxes_set_sys_color editbox,editbox_end,sc
86
	mcall	48,3,sc,sizeof.system_colors
58
    call draw_window	; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
87
 
59
 
88
	call	draw_window	; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
60
;---------------------------------------------------------------------
-
 
61
;---  –ˆŠ‹ Ž€Ž’Šˆ ‘Ž›’ˆ‰  ----------------------------------------
89
;---------------------------------------------------------------------
62
;---------------------------------------------------------------------
90
;---  –ˆŠ‹ Ž€Ž’Šˆ ‘Ž›’ˆ‰  ----------------------------------------
Line 63... Line 91...
63
 
91
;---------------------------------------------------------------------
64
still:
92
still:
65
    mcall 10
93
	mcall 10
66
 
94
 
67
    dec  eax		 ; ¯¥à¥à¨á®¢ âì ®ª­®?
95
	dec	eax	 ; ¯¥à¥à¨á®¢ âì ®ª­®?
68
    jz	 red		 ; ¥á«¨ ¤  - ­  ¬¥âªã red
96
	jz	red	 ; ¥á«¨ ¤  - ­  ¬¥âªã red
Line 69... Line -...
69
    dec  eax 
-
 
70
    jz	 key
-
 
71
    dec  eax
-
 
72
    jz	 button
-
 
73
 
-
 
74
mouse:
97
	dec	eax 
75
;        mouse_edit_box editbox
-
 
-
 
98
	jz	key
76
	push	dword editbox
99
	dec	eax
77
	call	[edit_box_mouse]
100
	jz	button
78
 
-
 
79
	jmp	still
-
 
80
    
101
 
81
button:
102
	jmp	still
82
    mov  al,17		 ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
103
;---------------------------------------------------------------------
83
    mcall
104
button:
84
 
105
	mcall	17	; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
Line 104... Line 125...
104
	push	18
125
	push	18
105
	mov	bl, 6	; 18.6 = save to specified folder
126
	mov	bl,6	; 18.6 = save to specified folder
106
	mov	ecx, path3
127
	mov	ecx, path3
107
	cmp	ah, 4
128
	cmp	ah,4
108
	je	doit
129
	je	doit
-
 
130
 
-
 
131
; invoke OpenDialog
-
 
132
	push    dword OpenDialog_data
-
 
133
	call    [OpenDialog_Start]
-
 
134
	cmp	[OpenDialog_data.status],1
-
 
135
	jne	still
-
 
136
 
-
 
137
; prepare for PathShow
-
 
138
	push	dword PathShow_data_1
-
 
139
	call	[PathShow_prepare]
-
 
140
 
-
 
141
	call	draw_PathShow
-
 
142
 
109
	mov	ecx, path4
143
	mov	ecx,fname_buf ;path4
110
doit:
144
doit:
111
	pop	eax
145
	pop	eax
112
	mcall
146
	mcall
113
	call	check_for_error
147
	call	check_for_error
114
	jmp	still
148
	jmp	still
115
 
-
 
-
 
149
;---------------------------------------------------------------------
116
key:	     
150
key:
117
    mov  al,2
151
	mcall	2
-
 
152
	cmp	ah,0x31
118
    mcall
153
	jb	still
119
;    key_edit_box editbox
154
	cmp	ah,0x34
120
	push	dword editbox
155
	ja	still
121
	call	[edit_box_key]
156
	sub	ah,0x30
122
 
157
	inc	ah
123
    jmp  still
158
	jmp	noclose
124
 
-
 
125
 
-
 
-
 
159
;---------------------------------------------------------------------
126
check_for_error:		      ;Ž¡à ¡®â稪 ®è¨¡®ª
160
check_for_error:		      ;Ž¡à ¡®â稪 ®è¨¡®ª
127
	mov	ecx, [sc.work_text]
161
	mov	ecx,[sc.work_text]
128
	mov	edx, ok
162
	mov	edx,ok
129
	test	eax, eax
163
	test	eax,eax
130
	jz	print
164
	jz	print
Line 150... Line 184...
150
	jz	print
184
	jz	print
151
	add	edx, error11 - error10
185
	add	edx,error11 - error10
152
	dec	eax
186
	dec	eax
153
	jz	print
187
	jz	print
154
	add	edx, aUnknownError - error11
188
	add	edx,aUnknownError - error11
155
 
-
 
156
 print:
189
print:
157
    mov eax,4				   ;­ ¤¯¨á¨
190
	mov	eax,4				   ;­ ¤¯¨á¨
158
    mov ebx,20 shl 16 + 148
191
	mov	ebx,20 shl 16 + 148
159
    or	ecx,0x80000000
192
	or	ecx,0x80000000
160
    mcall
193
	mcall
161
    ret
194
	ret
162
 
-
 
-
 
195
;---------------------------------------------------------------------
163
clear_err:
196
clear_err:
164
    mov eax,13
197
	mov	eax,13
165
    mov ebx,15 shl 16 + 240
198
	mov	ebx,15 shl 16 + 240
166
    mov ecx,145 shl 16 +15
199
	mov	ecx,145 shl 16 +15
167
    mov edx,[sc.work]
200
	mov	edx,[sc.work]
168
    mcall
201
	mcall
169
    ret
202
	ret
-
 
203
;---------------------------------------------------------------------
-
 
204
draw_PathShow:
-
 
205
	pusha
-
 
206
	mcall	13,<8,172>,<110,15>,0xffffff
-
 
207
; draw for PathShow
-
 
208
	push	dword PathShow_data_1
-
 
209
	call	[PathShow_draw]
-
 
210
	popa
170
 
211
	ret
171
;---------------------------------------------------------------------
212
;---------------------------------------------------------------------
172
;---  Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€  ----------------------------------
213
;---  Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€  ----------------------------------
173
;---------------------------------------------------------------------
214
;---------------------------------------------------------------------
174
 
-
 
175
draw_window:
215
draw_window:
176
 
-
 
177
   mov eax,12				 ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
216
	mcall	12,1	; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
178
   mov bl,1				 ; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
217
			; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
179
   mcall
-
 
180
 
-
 
181
					 ; ‘Ž‡„€ðŒ ŽŠŽ
218
					 ; ‘Ž‡„€ðŒ ŽŠŽ
182
   xor eax,eax				 ; äã­ªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª­®
219
	xor	eax,eax			 ; äã­ªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª­®
183
   mov ebx,200 shl 16 + 270		 ; [x áâ àâ] *65536 + [x à §¬¥à]
220
	mov	ebx,200 shl 16 + 300	 ; [x áâ àâ] *65536 + [x à §¬¥à]
184
   mov ecx,200 shl 16 + 190		 ; [y áâ àâ] *65536 + [y à §¬¥à]
221
	mov	ecx,200 shl 16 + 190	 ; [y áâ àâ] *65536 + [y à §¬¥à]
185
   mov edx,[sc.work]			 ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
222
	mov	edx,[sc.work]		 ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
186
   or  edx,0x34000000
223
	or	edx,0x34000000
187
   mov edi,title			; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
224
	mov	edi,title			; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
188
   mcall
225
	mcall
Line 189... Line -...
189
 
-
 
190
	push	dword editbox
226
 
191
	call	[edit_box_draw]
-
 
192
 
-
 
Line 193... Line 227...
193
;draw_edit_box editbox                   ;à¨á®¢ ­¨¥ edit box
227
	call	draw_PathShow
194
 
-
 
195
   mov al,13				;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
-
 
196
   mov ebx,194 shl 16 + 60
228
 
197
   mov ecx,34 shl 16 +15
-
 
Line 198... Line 229...
198
   mov edx,0x444444
229
;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
199
   mcall
230
	mcall	13,<194,60>,<34,15>,0x444444
Line 200... Line 231...
200
 
231
 
201
   add ecx,20 shl 16
232
	add	ecx,20 shl 16
Line 202... Line 233...
202
   mcall
233
	mcall
203
 
234
 
204
   add ecx,20 shl 16
-
 
205
   mcall
235
	add	ecx,20 shl 16
206
 
236
	mcall
207
   add ecx,40 shl 16
237
 
208
   mcall
-
 
209
 
238
	add	ecx,40 shl 16
210
   mov eax,8				 ;®âà¨á®¢ª  ª­®¯®ª
-
 
Line 211... Line 239...
211
   sub ebx,4 shl 16
239
	mcall
212
   sub ecx,4 shl 16
240
;®âà¨á®¢ª  ª­®¯®ª
213
   mov edx,5
241
	sub	ebx,4 shl 16
Line 223... Line 251...
223
   mcall
251
	mcall
Line 224... Line 252...
224
 
252
 
225
   sub ecx,20 shl 16
253
	sub	ecx,20 shl 16
226
   dec edx
254
	dec	edx
227
   mcall
-
 
228
 
255
	mcall
229
   mov al,4				 ;­ ¤¯¨á¨
-
 
230
   mov ebx,45 shl 16 + 12
256
; ­ ¤¯¨á¨
231
   mov ecx,[sc.work_text]
257
	mov	ecx,[sc.work_text]
232
   or  ecx,0x80000000
258
	or	ecx,0x80000000
233
   mov edx,label1
-
 
Line 234... Line 259...
234
   mcall
259
	mcall	4,<45,12>,,label1
235
 
260
 
236
   mov ebx,150 shl 16 + 35
261
	mov	ebx,150 shl 16 + 35
Line 257... Line 282...
257
   or  ecx,0x80000000
282
	or	ecx,0x80000000
258
   mov ebx,195 shl 16 + 35
283
	mov	ebx,195 shl 16 + 35
259
   mov edx,save
284
	mov	edx,save
260
   mcall
285
	mcall
Line -... Line 286...
-
 
286
 
-
 
287
	push	edx
-
 
288
	mov	edx,key_help
-
 
289
	call	key_help_correct
-
 
290
	pop	edx
261
 
291
 
262
   add ebx,20
292
	add ebx,20
Line -... Line 293...
-
 
293
	mcall
-
 
294
 
-
 
295
	push	edx
-
 
296
	mov	edx,key_help+2
-
 
297
	call	key_help_correct
263
   mcall
298
	pop	edx
264
 
299
 
Line -... Line 300...
-
 
300
	add ebx,20
-
 
301
	mcall
-
 
302
 
-
 
303
	push	edx
-
 
304
	mov	edx,key_help+4
-
 
305
	call	key_help_correct
265
   add ebx,20
306
	pop	edx
266
   mcall
307
 
Line 267... Line -...
267
 
-
 
268
   add ebx,40
308
	mov	edx,select
269
   mcall
309
	add ebx,40
Line -... Line 310...
-
 
310
	mcall
-
 
311
 
270
 
312
	mov	edx,key_help+6
-
 
313
	call	key_help_correct
-
 
314
 
-
 
315
	mcall	12,2	; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
-
 
316
			; 2, § ª®­ç¨«¨ à¨á®¢ âì
-
 
317
	ret		; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë
-
 
318
;---------------------------------------------------------------------
-
 
319
key_help_correct:
-
 
320
	push	ebx
-
 
321
	ror	ebx,16
-
 
322
	mov	bx,270
-
 
323
	rol	ebx,16
-
 
324
	pusha
-
 
325
	mov	ecx,ebx
-
 
326
	sub	ebx,3 shl 16
271
   mov al,12				; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
327
	mov	bx,13
-
 
328
	sub	cx,3
-
 
329
	shl	ecx,16
272
   mov ebx,2				; 2, § ª®­ç¨«¨ à¨á®¢ âì
330
	mov	cx,13
273
   mcall
331
	mcall	13,,,0xffffff
274
 
332
	popa
275
   ret					; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë
333
	mcall	
Line 276... Line 334...
276
 
334
	pop	ebx
Line -... Line 335...
-
 
335
	ret
277
 
336
;---------------------------------------------------------------------
-
 
337
;---  „€›… Žƒ€ŒŒ›  ----------------------------------------------
-
 
338
;---------------------------------------------------------------------
-
 
339
 
278
;---------------------------------------------------------------------
340
title	db appname,version,0
-
 
341
 
-
 
342
;---------------------------------------------------------------------
-
 
343
PathShow_data_1:
-
 
344
.type			dd 0	;+0
-
 
345
.start_y		dw 113	;+4
-
 
346
.start_x		dw 10	;+6
-
 
347
.font_size_x		dw 6	;+8	; 6 - for font 0, 8 - for font 1
279
;---  „€›… Žƒ€ŒŒ›  ----------------------------------------------
348
.area_size_x		dw 170	;+10
280
;---------------------------------------------------------------------
-
 
-
 
349
.font_number		dd 0	;+12	; 0 - monospace, 1 - variable
281
 
350
.background_flag	dd 0	;+16
282
title db appname,version,0
351
.font_color		dd 0x0	;+20
-
 
352
.background_color	dd 0x0	;+24
283
 
353
.text_pointer		dd fname_buf	;+28
284
editbox:
354
.work_area_pointer	dd text_work_area	;+32
285
edit1 edit_box 170,10,113,0xffffff,0xaabbcc,0,0,0,512,path4,mouse_dd,ed_focus,26,26
355
.temp_text_length	dd 0	;+36
286
editbox_end:
356
;---------------------------------------------------------------------
287
 
357
if lang eq ru
288
if lang eq ru
358
save		db '‘®åà ­¨âì',0
289
save	db '‘®åà ­¨âì',0
359
select		db ' ‚ë¡à âì',0
290
label1	db '‚ë¡¥à¨â¥ ®¤¨­ ¨§ ¢ à¨ ­â®¢:',0
360
label1		db '‚ë¡¥à¨â¥ ®¤¨­ ¨§ ¢ à¨ ­â®¢:',0
291
label2	db 'ˆ«¨ ¢¢¥¤¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã:',0
361
label2		db 'ˆ«¨ ¢ë¡¥à¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã:',0
292
label3	db '‚ᥠ¯ ¯ª¨ ¤®«¦­ë áãé¥á⢮¢ âì',0
362
label3		db '‚ᥠ¯ ¯ª¨ ¤®«¦­ë áãé¥á⢮¢ âì',0
293
ok	db 'RAM-¤¨áª á®åà ­¥­ ãᯥ譮',0
363
ok		db 'RAM-¤¨áª á®åà ­¥­ ãᯥ譮',0
-
 
364
error3		db '¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨á⥬ ',0
294
error3	db '¥¨§¢¥áâ­ ï ä ©«®¢ ï á¨á⥬ ',0
365
error5		db '¥áãé¥áâ¢ãî騩 ¯ãâì',0
295
error5	db '¥áãé¥áâ¢ãî騩 ¯ãâì',0
366
error8		db '¥â ¬¥áâ  ­  ¤¨áª¥',0
-
 
367
error9		db '’ ¡«¨æ  FAT à §àã襭 ',0
296
error8	db '¥â ¬¥áâ  ­  ¤¨áª¥',0
368
error10 	db '„®áâ㯠§ ¯à¥é¥­',0
297
error9	db '’ ¡«¨æ  FAT à §àã襭 ',0
369
error11 	db 'Žè¨¡ª  ãáâனá⢠',0
298
error10 db '„®áâ㯠§ ¯à¥é¥­',0
370
aUnknownError 	db '¥¨§¢¥áâ­ ï ®è¨¡ª ',0
299
error11 db 'Žè¨¡ª  ãáâனá⢠',0
371
;---------------------------------------------------------------------
300
aUnknownError db '¥¨§¢¥áâ­ ï ®è¨¡ª ',0
372
else if lang eq et
301
else if lang eq et
373
save		db 'Salvesta',0
302
save	db 'Salvesta',0
374
select		db ' Valige',0
303
label1	db 'Vali üks variantidest:',0
375
label1		db 'Vali üks variantidest:',0
304
label2	db 'Või sisesta teekond failinimeni:',0
376
label2		db 'Või valige teekond failinimeni:',0
305
label3	db 'Kõik kataloogid peavad eksisteerima',0
377
label3		db 'Kõik kataloogid peavad eksisteerima',0
306
ok	db 'RAM-ketas salvestatud edukalt',0
378
ok		db 'RAM-ketas salvestatud edukalt',0
307
error3	db 'Tundmatu failisüsteem',0
-
 
-
 
379
error3		db 'Tundmatu failisüsteem',0
308
error5	db 'Vigane teekond',0
380
error5		db 'Vigane teekond',0
309
error8	db 'Ketas täis',0
381
error8		db 'Ketas täis',0
-
 
382
error9		db 'FAT tabel vigane',0
310
error9	db 'FAT tabel vigane',0
383
error10 	db 'Juurdepääs keelatud',0
311
error10 db 'Juurdepääs keelatud',0
384
error11 	db 'Seadme viga',0
312
error11 db 'Seadme viga',0
385
aUnknownError 	db 'Tundmatu viga',0
313
aUnknownError db 'Tundmatu viga',0
386
;---------------------------------------------------------------------
314
 
387
else
315
else
388
save		db '  Save',0
316
save	db '  Save',0
389
select		db ' Select',0
Line 328... Line 401...
328
 
401
 
329
end if
402
end if
330
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
403
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
331
;DATA ¤ ­­ë¥
404
;DATA ¤ ­­ë¥
332
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
405
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
333
system_path	 db '/sys/lib/'
406
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
334
library_name	 db 'box_lib.obj',0
407
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
Line 335... Line -...
335
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 
336
 
408
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
337
err_message_found_lib	db 'Sorry I cannot load library box_lib.obj',0
409
 
-
 
410
head_f_i:
-
 
411
head_f_l	db 'System error',0
-
 
412
 
-
 
413
err_message_found_lib1	db 'box_lib.obj - Not found!',0
-
 
414
err_message_found_lib2	db 'proc_lib.obj - Not found!',0
338
head_f_i:
415
 
-
 
416
err_message_import1	db 'box_lib.obj - Wrong import!',0
-
 
417
err_message_import2	db 'proc_lib.obj - Wrong import!',0
-
 
418
 
-
 
419
;---------------------------------------------------------------------
-
 
420
l_libs_start:
-
 
421
 
-
 
422
library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
-
 
423
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
-
 
424
 
-
 
425
library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
-
 
426
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
-
 
427
 
-
 
428
end_l_libs:
-
 
429
;---------------------------------------------------------------------
-
 
430
OpenDialog_data:
-
 
431
.type			dd 1	; Save
-
 
432
.procinfo		dd procinfo	;+4
-
 
433
.com_area_name		dd communication_area_name	;+8
-
 
434
.com_area		dd 0	;+12
-
 
435
.opendir_pach		dd temp_dir_pach	;+16
-
 
436
.dir_default_pach	dd communication_area_default_pach	;+20
-
 
437
.start_path		dd open_dialog_path	;+24
-
 
438
.draw_window		dd draw_window	;+28
-
 
439
.status			dd 0	;+32
-
 
440
.openfile_pach 		dd fname_buf	;+36
-
 
441
.filename_area		dd filename_area	;+40
-
 
442
.filter_area		dd Filter
-
 
443
.x:
-
 
444
.x_size			dw 420 ;+48 ; Window X size
-
 
445
.x_start		dw 10 ;+50 ; Window X position
-
 
446
.y:
-
 
447
.y_size			dw 320 ;+52 ; Window y size
-
 
448
.y_start		dw 10 ;+54 ; Window Y position
-
 
449
 
-
 
450
communication_area_name:
-
 
451
	db 'FFFFFFFF_open_dialog',0
-
 
452
open_dialog_path:
-
 
453
	db '/sys/File Managers/opendial',0
-
 
454
communication_area_default_pach:
-
 
455
	db '/hd0/1/kolibri',0
-
 
456
 
-
 
457
Filter:
-
 
458
dd	Filter.end - Filter.1
-
 
459
.1:
-
 
460
db	'IMG',0
-
 
461
db	'IMA',0
-
 
462
.end:
-
 
463
db	0
-
 
464
 
-
 
465
start_temp_file_name:	db 'kolibri.img',0
-
 
466
 
-
 
467
;---------------------------------------------------------------------
-
 
468
align 4
-
 
469
ProcLib_import:
-
 
470
OpenDialog_Init		dd aOpenDialog_Init
-
 
471
OpenDialog_Start	dd aOpenDialog_Start
-
 
472
;OpenDialog__Version	dd aOpenDialog_Version
-
 
473
        dd      0
-
 
474
        dd      0
-
 
475
aOpenDialog_Init	db 'OpenDialog_init',0
-
 
476
aOpenDialog_Start	db 'OpenDialog_start',0
339
head_f_l	db 'System error',0
477
;aOpenDialog_Version	db 'Version_OpenDialog',0
340
err_message_import	db 'Error on load import library box_lib.obj',0
478
;---------------------------------------------------------------------
-
 
479
align 4
-
 
480
Box_lib_import:	
Line -... Line 481...
-
 
481
;init_lib		dd a_init
341
align 4
482
;version_lib		dd a_version
342
myimport:   
483
 
343
 
484
 
344
edit_box_draw	dd	aEdit_box_draw
485
;edit_box_draw		dd aEdit_box_draw
Line -... Line 486...
-
 
486
;edit_box_key		dd aEdit_box_key
-
 
487
;edit_box_mouse		dd aEdit_box_mouse
-
 
488
;version_ed		dd aVersion_ed
-
 
489
 
-
 
490
;check_box_draw		dd aCheck_box_draw
-
 
491
;check_box_mouse	dd aCheck_box_mouse
-
 
492
;version_ch		dd aVersion_ch
-
 
493
 
-
 
494
;option_box_draw	dd aOption_box_draw
-
 
495
;option_box_mouse	dd aOption_box_mouse
-
 
496
;version_op		dd aVersion_op
-
 
497
 
-
 
498
;scrollbar_ver_draw	dd aScrollbar_ver_draw
-
 
499
;scrollbar_ver_mouse	dd aScrollbar_ver_mouse
-
 
500
;scrollbar_hor_draw	dd aScrollbar_hor_draw
-
 
501
;scrollbar_hor_mouse	dd aScrollbar_hor_mouse
-
 
502
;version_scrollbar	dd aVersion_scrollbar
-
 
503
 
-
 
504
;dinamic_button_draw	dd aDbutton_draw
-
 
505
;dinamic_button_mouse	dd aDbutton_mouse
-
 
506
;version_dbutton	dd aVersion_dbutton
-
 
507
 
-
 
508
;menu_bar_draw		dd aMenu_bar_draw
-
 
509
;menu_bar_mouse		dd aMenu_bar_mouse
-
 
510
;menu_bar_activate	dd aMenu_bar_activate
-
 
511
;version_menu_bar	dd aVersion_menu_bar
-
 
512
 
-
 
513
;FileBrowser_draw	dd aFileBrowser_draw
-
 
514
;FileBrowser_mouse	dd aFileBrowser_mouse
-
 
515
;FileBrowser_key	dd aFileBrowser_key
-
 
516
;Version_FileBrowser	dd aVersion_FileBrowser
345
edit_box_key	dd	aEdit_box_key
517
 
346
edit_box_mouse	dd	aEdit_box_mouse
518
PathShow_prepare	dd sz_PathShow_prepare
Line 347... Line 519...
347
;version_ed      dd      aVersion_ed
519
PathShow_draw		dd sz_PathShow_draw
348
 
-
 
349
		dd	0
-
 
350
		dd	0
520
;Version_path_show	dd szVersion_path_show
Line -... Line 521...
-
 
521
			dd 0
-
 
522
			dd 0
-
 
523
 
-
 
524
;a_init			db 'lib_init',0
Line -... Line 525...
-
 
525
;a_version		db 'version',0
-
 
526
 
-
 
527
;aEdit_box_draw		db 'edit_box',0
-
 
528
;aEdit_box_key		db 'edit_box_key',0
-
 
529
;aEdit_box_mouse	db 'edit_box_mouse',0
-
 
530
;aVersion_ed		db 'version_ed',0
-
 
531
 
-
 
532
;aCheck_box_draw	db 'check_box_draw',0
-
 
533
;aCheck_box_mouse	db 'check_box_mouse',0
-
 
534
;aVersion_ch		db 'version_ch',0
-
 
535
 
-
 
536
;aOption_box_draw	db 'option_box_draw',0
-
 
537
;aOption_box_mouse	db 'option_box_mouse',0
-
 
538
;aVersion_op		db 'version_op',0
351
 
539
 
-
 
540
;aScrollbar_ver_draw	db 'scrollbar_v_draw',0
-
 
541
;aScrollbar_ver_mouse	db 'scrollbar_v_mouse',0
-
 
542
;aScrollbar_hor_draw	db 'scrollbar_h_draw',0
-
 
543
;aScrollbar_hor_mouse	db 'scrollbar_h_mouse',0
-
 
544
;aVersion_scrollbar	db 'version_scrollbar',0
-
 
545
 
-
 
546
;aDbutton_draw		db 'dbutton_draw',0
-
 
547
;aDbutton_mouse		db 'dbutton_mouse',0
-
 
548
;aVersion_dbutton	db 'version_dbutton',0
-
 
549
 
-
 
550
;aMenu_bar_draw		db 'menu_bar_draw',0
-
 
551
;aMenu_bar_mouse		db 'menu_bar_mouse',0
-
 
552
;aMenu_bar_activate	db 'menu_bar_activate',0
-
 
553
;aVersion_menu_bar	db 'version_menu_bar',0
-
 
554
 
-
 
555
;aFileBrowser_draw	db 'FileBrowser_draw',0
-
 
556
;aFileBrowser_mouse	db 'FileBrowser_mouse',0
Line 352... Line 557...
352
aEdit_box_draw	db 'edit_box',0
557
;aFileBrowser_key	db 'FileBrowser_key',0
353
aEdit_box_key	db 'edit_box_key',0
558
;aVersion_FileBrowser	db 'version_FileBrowser',0
354
aEdit_box_mouse db 'edit_box_mouse',0
559
 
355
;aVersion_ed     db 'version_ed',0
560
sz_PathShow_prepare	db 'PathShow_prepare',0
356
 
-
 
357
 
561
sz_PathShow_draw	db 'PathShow_draw',0
358
;mouse_flag: dd 0x0
562
;szVersion_path_show	db 'version_PathShow',0
359
 
563
;---------------------------------------------------------------------
-
 
564
 
-
 
565
path1	db '/fd/1/',0
-
 
566
path2	db '/fd/2/',0
-
 
567
path3	db '/hd0/1/kolibri.img',0
360
path1	db '/fd/1/',0
568
path4	db '/hd0/1/kolibri/kolibri.img',0  ;¤«ï १¥à¢­®£® á®åà ­¥­¨ï
-
 
569
;---------------------------------------------------------------------
361
path2	db '/fd/2/',0
570
key_help:
362
path3	db '/hd0/1/kolibri.img',0
571
	db '1',0
-
 
572
	db '2',0
363
path4	db '/hd0/1/kolibri/kolibri.img',0  ;¤«ï १¥à¢­®£® á®åà ­¥­¨ï
573
	db '3',0
-
 
574
	db '4',0
-
 
575
;---------------------------------------------------------------------
364
 
576
IM_END:
-
 
577
;---------------------------------------------------------------------
-
 
578
sc     system_colors
-
 
579
mouse_dd	rd 1
-
 
580
;---------------------------------------------------------------------
-
 
581
cur_dir_path:
-
 
582
	rb 4096
-
 
583
;---------------------------------------------------------------------
-
 
584
library_path:
-
 
585
	rb 4096
-
 
586
;---------------------------------------------------------------------
-
 
587
temp_dir_pach:
-
 
588
	rb 4096
-
 
589
;---------------------------------------------------------------------
-
 
590
fname_buf:
-
 
591
	rb 4096
-
 
592
;---------------------------------------------------------------------
-
 
593
procinfo:
365
;---------------------------------------------------------------------
594
	rb 1024
366
 
595
;---------------------------------------------------------------------
-
 
596
filename_area:
367
rb 514
597
	rb 256