Subversion Repositories Kolibri OS

Rev

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

Rev 4946 Rev 5017
Line 1... Line 1...
1 
ICON_STRIP	equ '/rd/1/iconstrp.png'
 1 
ICON_STRIP	equ '/rd/1/iconstrp.png'
2 
ICON_INI	equ '/rd/1/settings/icon.ini'
 2 
ICON_INI	equ '/rd/1/settings/icon.ini'
3 
ICON_SIZE	equ 68	  ;à §¬¥à ®¡« á⨠¤«ï ¨ª®­ª¨ á ­ ¤¯¨áìî
 3 
ICON_SIZE	equ 68	  ;à §¬¥à ®¡« á⨠¤«ï ¨ª®­ª¨ á ­ ¤¯¨áìî
4 
IMG_SIZE	equ 32	  ;à §¬¥à ¨ª®­®ª
 4 
IMG_SIZE	equ 32	  ;à §¬¥à ¨ª®­®ª
5 
TEXT_BOTTOM_Y	equ 15	  ;®âáâ㯠¯® Y ⥪áâ  ®â ­¨§  ¨ª®­ª¨
 5 
TEXT_BOTTOM_Y	equ 14	  ;®âáâ㯠¯® Y ⥪áâ  ®â ­¨§  ¨ª®­ª¨
6 
IMAGE_TOP_Y	equ 10	  ;>=1 Š®®à¤¨­ â  Y ¨ª®­ª¨ ¢ ®¡« á⨠¤«ï ¤ ­­®© ¨ª®­ª¨
 6 
IMAGE_TOP_Y	equ 10	  ;>=1 Š®®à¤¨­ â  Y ¨ª®­ª¨ ¢ ®¡« á⨠¤«ï ¤ ­­®© ¨ª®­ª¨
7 
ALIGN_SIZE	equ 68	  ;à §¬¥à á¥âª¨ ¢ëà ¢­¨¢ ­¨ï
 7 
ALIGN_SIZE	equ 68	  ;à §¬¥à á¥âª¨ ¢ëà ¢­¨¢ ­¨ï
8 
NAME_LENGTH	equ 11	 ;¤«¨­  ¨¬¥­¨ ¨ª®­ª¨
 8 
NAME_LENGTH	equ 11	 ;¤«¨­  ¨¬¥­¨ ¨ª®­ª¨
9 
MIN_NO_MOVING	equ 8	 ;ç¥à¥§ á⮫쪮 ¯¨ªá¥«¥© ᤢ¨£  ¬ëè¨ ­ ç¨­ ¥âáï â áª ­¨¥ ¨ª®­ª¨
 9 
MIN_NO_MOVING	equ 8	 ;ç¥à¥§ á⮫쪮 ¯¨ªá¥«¥© ᤢ¨£  ¬ëè¨ ­ ç¨­ ¥âáï â áª ­¨¥ ¨ª®­ª¨
Line 130... Line 130...
130 
	mov	dword[SizeData],0
 130 
	mov	dword[SizeData],0
131 
   @@:
 131 
   @@:
132 
;######################################################################
 132 
;######################################################################
133 
	call	FillIconsOffs		       ;§ ¯®«­ï¥â MaxNumIcon,IconsOffs
 133 
	call	FillIconsOffs		       ;§ ¯®«­ï¥â MaxNumIcon,IconsOffs
Line 134... Line 134...
134 
 
 134 
 
- 
 
 135 
;¨­¨æ¨ «¨§ æ¨ï IPC ¡ãä¥à 
- 
 
 136 
	mov	dword[IPCbuffer],0
- 
 
 137 
	mov	dword[IPCbuffer+4],8
Line -... Line 138...
- 
 
 138 
	mcall	60,1,IPCbuffer,1024
- 
 
 139 
 
135 
	mcall	40,0100000b		       ;­ã¦­ë ⮫쪮 ᮡëâ¨ï ¬ëè¨, ¯¥à¥à¨á®¢ª  ¨ª®­®ª ¡ã¤¥â ¢ ¤à㣮¬ ¯®â®ª¥
 140 
	mcall	40,01100000b		 ;­ã¦­ë ⮫쪮 ᮡëâ¨ï ¬ëè¨ ¨ IPC,
136 
 
 141 
					 ;¯¥à¥à¨á®¢ª  ¨ª®­®ª ¡ã¤¥â ¢ ¤à㣮¬ ¯®â®ª¥
137 
	mov	eax,[icon_count]
 142 
	mov	eax,[icon_count]
138 
	mov	bl,ICONS_DRAW_COUNTH
 143 
	mov	bl,ICONS_DRAW_COUNTH
139 
	div	bl
 144 
	div	bl
Line 151... Line 156...
151 
 
 156 
 
152 
messages:
 157 
messages:
153 
	mcall	10
 158 
	mcall	10
154 
	sub	eax,6
 159 
	sub	eax,6
155 
	jz	MSGMouse
 160 
	jz	MSGMouse
- 
 
 161 
	dec	eax
156 
 
 162 
	jz	MSGIPC
Line -... Line 163...
- 
 
 163 
	jmp	messages
- 
 
 164 
 
- 
 
 165 
MSGIPC:
Line 157... Line 166...
157 
	jmp	messages
 166 
	call	IPCCreateIcon
158 
 
 167 
	jmp	messages
159 
 
 168 
 
160 
MSGMouse:
 169 
MSGMouse:
Line 894... Line 903...
894 
 
 903 
 
895 
	pop	edi ebx
 904 
	pop	edi ebx
896 
	ret
 905 
	ret
Line -... Line 906...
- 
 
 906 
endp
- 
 
 907 
 
- 
 
 908 
;-------------------------------------------------------------------------------
- 
 
 909 
 
- 
 
 910 
 
- 
 
 911 
;ä®à¬ â IPC-á®®¡é¥­¨ï
- 
 
 912 
;dd X
- 
 
 913 
;dd Y
- 
 
 914 
;asciiz Icon
- 
 
 915 
;asciiz Name
- 
 
 916 
;asciiz Path
- 
 
 917 
;asciiz Params
- 
 
 918 
;-------------------------------------------------------------------------------
- 
 
 919 
proc IPCCreateIcon
- 
 
 920 
locals
- 
 
 921 
	ix rd 1
- 
 
 922 
	iy rd 1
- 
 
 923 
endl
- 
 
 924 
 
- 
 
 925 
	mov	eax,IPCbuffer+8
- 
 
 926 
	mov	dword[IPCbuffer],1
- 
 
 927 
	;mov     edx,dword[IPCbuffer+4]
- 
 
 928 
	lea	edx,[eax+8]
- 
 
 929 
 
- 
 
 930 
	m2m	dword[ix],dword[edx]
- 
 
 931 
	m2m	dword[iy],dword[edx+4]
- 
 
 932 
 
- 
 
 933 
	lea	esi,[edx+8]
- 
 
 934 
 
- 
 
 935 
	mov	ecx,256
- 
 
 936 
	mov	edi,DAreaIcon
- 
 
 937 
    @@: lodsb
- 
 
 938 
	stosb
- 
 
 939 
	test	al,al
- 
 
 940 
	jnz	@b
- 
 
 941 
 
- 
 
 942 
	mov	ecx,NAME_LENGTH+1
- 
 
 943 
	mov	edi,DAreaName
- 
 
 944 
    @@: lodsb
- 
 
 945 
	stosb
- 
 
 946 
	test	al,al
- 
 
 947 
	jz	@f
- 
 
 948 
	loop	@b
- 
 
 949 
    @@:
- 
 
 950 
 
- 
 
 951 
	mov	edi,DAreaPath
- 
 
 952 
    @@: lodsb
- 
 
 953 
	stosb
- 
 
 954 
	test	al,al
- 
 
 955 
	jnz	@b
- 
 
 956 
 
- 
 
 957 
	mov	edi,DAreaParams
- 
 
 958 
    @@: lodsb
- 
 
 959 
	stosb
- 
 
 960 
	test	al,al
- 
 
 961 
	jnz	@b
- 
 
 962 
 
- 
 
 963 
	mov	dword[IPCbuffer+4],8
- 
 
 964 
	mov	dword[IPCbuffer],0
- 
 
 965 
 
- 
 
 966 
	stdcall AddIcon,[ix],[iy],DAreaIcon,DAreaName,DAreaPath,DAreaParams
- 
 
 967 
 
- 
 
 968 
	mcall	15,3
- 
 
 969 
	ret
- 
 
 970 
endp
897 
endp
 971 
 
898 
 
 972 
 
899 
include 'iconman.inc'
 973 
include 'iconman.inc'
900 
include 'bgredraw.inc'
 974 
include 'bgredraw.inc'
901 
include 'RButton.inc'
 975 
include 'RButton.inc'
Line 1050... Line 1124...
1050 
 RMenuDel	db 'Delete',0
 1124 
 RMenuDel	db 'Delete',0
1051 
 RMenuProp	db 'Properties',0
 1125 
 RMenuProp	db 'Properties',0
1052 
end if
 1126 
end if
Line 1053... Line 1127...
1053 
 
 1127 
 
1054 
if lang eq ru
 1128 
if lang eq ru
1055 
 ErrRunProg	db '"Icon\nŽè¨¡ª  § ¯ã᪠ ¯à®£à ¬¬ë" -tE"',0
 1129 
 ErrRunProg	db 'Žè¨¡ª  § ¯ã᪠ ¯à®£à ¬¬ë',0
1056 
 WarningSave	db '"Icon\n¥ § ¡ã¤ì⥠á®åà ­¨âì ¨§¬¥­¥­¨ï, § ¯ãáâ¨âì RDSave" -tI',0
 1130 
 WarningSave	db '¥ § ¡ã¤ì⥠á®åà ­¨âì ¨§¬¥­¥­¨ï, § ¯ãáâ¨âì RDSave',0
1057 
 ErrNotFoundIni db '"Icon\n¥ ­ ©¤¥­ icon.ini" -tE',0
 1131 
 ErrNotFoundIni db '¥ ­ ©¤¥­ icon.ini',0
1058 
 ErrName	db '"Icon\nˆ¬ï \"rbmenu\" § à¥§¥à¢¨à®¢ ­®" -tE',0
 1132 
 ErrName	db 'ˆ¬ï "rbmenu" § à¥§¥à¢¨à®¢ ­®',0
1059 
else
 1133 
else
1060 
 ErrRunProg	db '"Icon\nError running program" -tE',0
 1134 
 ErrRunProg	db 'Error runing program',0
1061 
 WarningSave	db '"Icon\nDo not forget to save the changes, run RDSave" -tI',0
 1135 
 WarningSave	db 'Do not forget to save the changes, run the RDSave',0
1062 
 ErrNotFoundIni db '"Icon\nicon.ini not found" -tE',0
 1136 
 ErrNotFoundIni db 'icon.ini not found',0
1063 
 ErrName	db '"Icon\nThe name \"rbmenu\" is reserved" -tE',0
 1137 
 ErrName	db 'The name "rbmenu" reserved',0
Line 1064... Line 1138...
1064 
end if
 1138 
end if
1065 
 
 1139 
 
1066 
;-------------------------------------------------------------------------------
 1140 
;-------------------------------------------------------------------------------
Line 1178... Line 1252...
1178 
 
 1252 
 
1179 
sc		system_colors
 1253 
sc		system_colors
1180 
sc.workL	rd 1
 1254 
sc.workL	rd 1
Line -... Line 1255...
- 
 
 1255 
sc.workH	rd 1
- 
 
 1256 
 
- 
 
 1257 
 
- 
 
 1258 
align 4
1181 
sc.workH	rd 1
 1259 
IPCbuffer	rb 1024
Line 1182... Line 1260...
1182 
 
 1260 
 
1183 
align 4
 1261 
align 4
1184 
 
 1262