Subversion Repositories Kolibri OS

Rev

Rev 7113 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7113 Rev 7157
Line 46... Line 46...
46 
include 'debug.inc'
 46 
include 'debug.inc'
Line 47... Line 47...
47 
 
 47 
 
48 
version equ '0.65'
 48 
version equ '0.65'
Line 49... Line 49...
49 
version_dword equ 0*10000h + 65
 49 
version_dword equ 0*10000h + 65
Line 50... Line 50...
50 
 
 50 
 
Line 51... Line 51...
51 
 
 51 
WIN_W = 400
52 
 
 52 
 
Line 247... Line 247...
247 
 
 247 
 
248 
proc winRedraw
 248 
proc winRedraw
249 
	mcall 12, 1
 249 
	mcall 12, 1
250 
	mcall 48, 3, sc, sizeof.system_colors
 250 
	mcall 48, 3, sc, sizeof.system_colors
251 
	mov   edx, [sc.work]
 251 
	mov   edx, [sc.work]
252 
	or	  edx, 0x33000000
 252 
	or	  edx, 0x34000000
253 
	mcall 0, <200,320>, <200,130>, , , title
 253 
	mcall 0, <200,WIN_W>, <200,130>, , , title
254 
	mcall 8, <113,100>,<65,25>,2,[sc.work_button]
 254 
	mcall 8, <100,100>,<65,25>,2,[sc.work_button]
255 
	mcall 8, <280,15>,<11,14>,3,[sc.work_button]
 255 
	mcall 8, <(WIN_W-52),33>,<10,20>,3,[sc.work_button]
Line 256... Line 256...
256 
	mcall 8, <280,15>,<33,14>,4,[sc.work_button]
 256 
	mcall 8, <(WIN_W-52),33>,<35,20>,4,[sc.work_button]
257 
 
 257 
 
258 
	edit_boxes_set_sys_color edtPack,endEdits,sc
 258 
	edit_boxes_set_sys_color edtPack,endEdits,sc
Line 259... Line -...
259 
	stdcall [edit_box_draw],edtPack
 - 
 
- 
 
 259 
	stdcall [edit_box_draw],edtPack
260 
	stdcall [edit_box_draw],edtUnpPath
 260 
	stdcall [edit_box_draw],edtUnpPath
261 
 
 261 
 
262 
 
 262 
	; plain window labels
263 
	cmp	[redInput],0
 263 
	cmp	[redInput],0
264 
	jne	@f
 264 
	jne	@f
265 
	mov	ecx,[sc.work_text]
 265 
	mov	ecx,[sc.work_text]
266 
	or	ecx,90000000h
 266 
	or	ecx,90000000h
267 
	jmp	.l1
 267 
	jmp	.l1
268 
      @@:
 268 
      @@:
269 
	mov	 ecx,90FF0000h
 269 
	mov	 ecx,90FF0000h
270 
     .l1:
 270 
     .l1:
271 
	mcall 4, <15,11>, , strInp
 271 
	mcall 4, <15,16>, , strInp
- 
 
 272 
	mov	ecx,[sc.work_text]
- 
 
 273 
	or	ecx,90000000h
272 
	mov	ecx,[sc.work_text]
 274 
	mcall 4, <15,37>, , strPath
273 
	or	ecx,90000000h
 275
- 
 
 276 
	; text on buttons
274 
	mcall 4, <15,32>, , strPath
 277 
	mov	ecx,[sc.work_button_text]
- 
 
 278 
	or	ecx,90000000h
- 
 
 279 
if lang eq ru
- 
 
 280 
	mcall 4, <107,70>, , strGo
- 
 
 281 
else
- 
 
 282 
	mcall 4, <127,70>, , strGo
Line 275... Line 283...
275 
	mov	ecx,[sc.work_button_text]
 283 
end if
276 
	or	ecx,90000000h
 284 
	mcall 4, <(WIN_W-47),12>, , strDots
277 
	mcall 4, <140,70>, , strGo
 285 
	mcall 4, <(WIN_W-47),37>, , strDots
Line 534... Line 542...
534 
.wm_redraw:
 542 
.wm_redraw:
535 
	mcall 12, 1
 543 
	mcall 12, 1
536 
	mcall 48, 3, sc, sizeof.system_colors
 544 
	mcall 48, 3, sc, sizeof.system_colors
537 
	mov   edx, [sc.work]
 545 
	mov   edx, [sc.work]
538 
	or	  edx, 0x33000000
 546 
	or	  edx, 0x33000000
539 
	mcall 0, <220,420>, <220,110>, , , title
 547 
	mcall 0, <220,WIN_W>, <220,110>, , , title
Line 540... Line 548...
540 
 
 548 
 
541 
	mov	ecx,[sc.work_text]
 549 
	mov	ecx,[sc.work_text]
542 
	or	ecx,90000000h
 550 
	or	ecx,90000000h
543 
	mov	edx,[errmess0]
 551 
	mov	edx,[errmess0]
Line 716... Line 724...
716 
 
 724 
 
Line 717... Line 725...
717 
 
 725 
 
718 
sc system_colors
 726 
sc system_colors
719 
 
 727 
 
Line 720... Line -...
720 
 
 - 
 
721 
title db 'uNZ v0.1 alpha',0
 728 
 
722 
bWinChild db 0	;1 - ¤®ç¥à­¥¥ ®ª­® ¥áâì, £« ¢­®¥ ®ª­® ­¥ ¤®«¦­® ॠ£¨à®¢ âì
 729 
title db 'uNZ v0.11 - Unarchiver of Zip and 7z',0
723 
redInput  db 0	;1 - ¯®¤á¢¥â¨âì ªà á­ë¬ ­ ¤¯¨áì
 730 
bWinChild db 0	;1 - ¤®ç¥à­¥¥ ®ª­® ¥áâì, £« ¢­®¥ ®ª­® ­¥ ¤®«¦­® ॠ£¨à®¢ âì
- 
 
 731 
redInput  db 0	;1 - ¯®¤á¢¥â¨âì ªà á­ë¬ ­ ¤¯¨áì
724 
 
 732 
 
- 
 
 733 
if lang eq ru
- 
 
 734 
 strGo db ' á¯ ª®¢ âì',0
- 
 
 735 
 strInp db  '    €à娢',0
- 
 
 736 
 strPath db 'ˆ§¢«¥çì ¢',0
- 
 
 737 
 strError db 'Žè¨¡ª ',0
- 
 
 738 
 strErrorExc db '¥®¯®§­ ­­ ï ®è¨¡ª ',0
- 
 
 739 
 strOk	db 'OK',0
- 
 
 740 
 strGetPass db ' à®«ì',0
725 
 
 741 
 strCancel  db 'Žâ¬¥­ ',0
726 
if lang eq ru
 742 
 strUnpackOk  db "'“ᯥ譮 à á¯ ª®¢ ­®' -O",0
727 
 strGo db ' á¯ ª®¢ âì',0
 743 
 strUnpackFault  db "'Žè¨¡ª  à á¯ ª®¢ª¨' -E",0
728 
 strInp db '€à娢',0
 744 
 strNotSupport db "'¥¯®¤¤¥à¦¨¢ ¥¬ë© ä®à¬ â  à娢 ' -E",0
729 
 strPath db 'Šã¤ ',0
 745 
 strNotFound db "'” ©« ­¥ ­ ©¤¥­' -E",0
730 
else
 746 
else
731 
 strGo db 'Unpack',0
 747 
 strGo db   'Unpack',0
732 
 strInp db 'Pack',0
 748 
 strInp db  'Archive',0
733 
 strPath db 'Wohin',0
 749 
 strPath db 'Extract to',0
734 
 strError db 'Error',0
 750 
 strError db 'Error',0
735 
 strErrorExc db 'Unrecognized error',0
 751 
 strErrorExc db 'Unrecognized error',0
736 
 strOk	db 'OK',0
 752 
 strOk	db 'OK',0
737 
 strGetPass db 'Password:',0
 753 
 strGetPass db 'Password',0
738 
 strCancel  db 'Cancel',0
 - 
 
739 
 strUnpackOk  db 'Unpacked successfuly',0
 754 
 strCancel  db 'Cancel',0
Line 740... Line 755...
740 
 strUnpackFault  db 'Unpacked fault',0
 755 
 strUnpackOk  db "'Unpacked successfuly' -O",0
741 
 strNotSupport db 'Format not support',0
 756 
 strUnpackFault  db "'Unpack failed' -E",0
Line 742... Line 757...
742 
 strNotFound db 'File not found',0
 757 
 strNotSupport db "'Archive format is not supported' -E",0
743 
 strNull db 0
 758 
 strNotFound db "'File not found' -E",0
744 
end if
 759 
end if
745 
 
 760 
 
Line 846... Line 861...
846 
.buf	dd 0
 861 
.buf	dd 0
847 
	db '/sys/@notify',0
 862 
	db '/sys/@notify',0
Line 848... Line 863...
848 
 
 863 
 
849 
 
 864 
 
850 
 
 865 
 
851 
edtPack    edit_box 200,70,11 ,0FFFFFFh,06F9480h,0FFh,0h,0x90000000,255,\
 866 
edtPack     edit_box (WIN_W-100-60),100,10,0FFFFFFh,0xff,0x80ff,0h,0x90000000,\
852 
		fInp, mouse_dd,0,0,0
 867 
            255, fInp, mouse_dd,0,0,0
853 
edtUnpPath edit_box 200,70,33,0FFFFFFh,06F9480h,0FFh,0h,0x90000000,255, \
 868 
edtUnpPath  edit_box (WIN_W-100-60),100,35,0FFFFFFh,0xff,0x80ff,0h,0x90000000,\
854 
		pathOut, mouse_dd,0,0,0
 869 
            255, pathOut, mouse_dd,0,0,0
Line 855... Line 870...
855 
edtPassword edit_box 200,56,40,0FFFFFFh,06F9480h,0FFh,0h,0x90000000,255, \
 870 
edtPassword edit_box 200,56,70,0FFFFFFh,0xff,0x80ff,0h,0x90000000,255,\
856 
		password, mouse_dd,0,0,0
 871 
		password, mouse_dd,0,0,0