Subversion Repositories Kolibri OS

Rev

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

Rev 3941 Rev 6697
Line -... Line 1...
- 
 
 1 
;;      h2d2b v0.5 big fonts by Leency      ;;
- 
 
 2 
;;      09.11.2016                          ;;
- 
 
 3 
 
1 
;;      h2d2b v0.4 use editbox by IgorA     ;;
 4 
;;      h2d2b v0.4 use editbox by IgorA     ;;
2 
;;      30.08.2011                          ;;
 5 
;;      30.08.2011                          ;;
Line 3... Line 6...
3 
 
 6 
 
4 
;;      h2d2b v0.3 system colors by Leency  ;;
 7 
;;      h2d2b v0.3 system colors by Leency  ;;
Line 5... Line 8...
5 
;;      21.08.2011                          ;;
 8 
;;      21.08.2011                          ;;
6 
 
 9 
 
Line -... Line 10...
- 
 
 10 
;;      hex2dec2bin 0.2 by Alexei Ershov    ;;
- 
 
 11 
;;      16.11.2006                          ;;
7 
;;      hex2dec2bin 0.2 by Alexei Ershov    ;;
 12 
 
8 
;;      16.11.2006                          ;;
 13 
WIN_W = 364
9 
 
 14 
 
10 
use32
 15 
use32
Line 159... Line 164...
159 
    mcall 12, 1
 164 
    mcall 12, 1
160 
	mov	edx, 0x14000000
 165 
	mov	edx, 0x14000000
161 
	or	edx, [sys_colors.work]
 166 
	or	edx, [sys_colors.work]
162 
	;mov	esi, 0x80000000
 167 
	;mov	esi, 0x80000000
163 
	;or	esi, [sys_colors.grab_text]
 168 
	;or	esi, [sys_colors.grab_text]
164 
    mcall 0, 200*65536+300, 200*65536+175, ,,title
 169 
    mcall 0, 200*65536+WIN_W, 200*65536+179, ,,title
Line 165... Line 170...
165 
 
 170 
 
166
171
167 
    mcall  8, 15      *65536+ 38, 90*65536+ 15, 2, [sys_colors.work_button] ; ª­®¯ª  shl
 172 
    mcall  8,         15*65536+42,106*65536+ 21, 2, [sys_colors.work_button] ; ª­®¯ª  shl
168 
    mcall  ,		       ,110*65536+ 15,	,	   ; ª­®¯ª  sal
 173 
    mcall   ,         70*65536+42,             ,  , ; ª­®¯ª  sal
169 
    mcall  , (300-53)*65536+ 38, 90*65536+ 15, 3,	   ; ª­®¯ª  shr
 174 
    mcall   , (WIN_W-55)*65536+42,             , 3, ; ª­®¯ª  shr
Line 170... Line 175...
170 
    mcall  ,		       ,110*65536+ 15, 4,	   ; ª­®¯ª  sar
 175 
    mcall   ,(WIN_W-111)*65536+42,             , 4, ; ª­®¯ª  sar
171 
    mcall  ,		       ,145*65536+ 15, 5,	   ; ª­®¯ª  Ok
 176 
    mcall   , (WIN_W-72)*65536+58,145*65536+ 21, 5, ; ª­®¯ª  Ok
172 
 
 177 
 
173 
	mov	ecx, 0x80000000
 178 
	mov	ecx, 0x90000000
174 
	or	ecx, [sys_colors.work_text]
 179 
	or	ecx, [sys_colors.work_text]
175 
    mcall  4, 15*65536+30,   , binstr,
 180 
    mcall  4, 15*65536+30,   , binstr,
176 
    mcall  , 15*65536+44,   , decstr,
 181 
    mcall   , 15*65536+46,   , decstr,
Line 177... Line 182...
177 
    mcall  , 15*65536+58,   ,sdecstr,
 182 
    mcall   , 15*65536+62,   ,sdecstr,
178 
    mcall  , 15*65536+72,   , hexstr,
 183 
    mcall   , 15*65536+78,   , hexstr,
179 
    mcall  , 15*65536+150,  , numstr,
 - 
 
180 
 
 - 
 
181 
	mov	ecx, 0x80000000
 184 
    mcall   , 15*65536+150,  , numstr,
182 
	or	ecx, [sys_colors.work_button_text]
 - 
 
183 
    mcall  ,	   26*65536+94, 	, shlstr,3
 185 
 
184 
    mcall  , (300-42)*65536+94, 	, shrstr,
 186 
	mov	ecx, 0x90000000
Line -... Line 187...
- 
 
 187 
	or	ecx, [sys_colors.work_button_text]
- 
 
 188 
    mcall  , 23*65536+109, , shl_sal_sar_shr_button_caption
Line 185... Line 189...
185 
    mcall  ,	   26*65536+114,	, salstr,
 189 
	mcall  , (WIN_W-59)*65536+149,	, Okstr,
186 
    mcall  , (300-42)*65536+114,	, sarstr,
 190 
    mov    ecx, [num]
187 
	mcall  , (300-42-3)*65536+149,	, Okstr,
 191 
 
188 
    mov    ecx, [num]
 192 
	mov esi, [sys_colors.work_text]
189 
 
 193 
	or  esi, 0x90000000
- 
 
 194 
 
190
195 
    mcall  47, 10*65536,   ,(WIN_W-92)*65536+62,    ; 10-­ ï á® §­ ª®¬
191 
    mcall  47, 8*65536+256,,240*65536+72,[sys_colors.work_text]    ; 16-­ ï
 196 
	BIN_LINE_BLOCK_W = 76
- 
 
 197 
    mcall 47, 8*65536+512,,(WIN_W-BIN_LINE_BLOCK_W)*65536+30 ; 2-­ ï
192 
    mcall    , 10*65536,   ,228*65536+44,     ; 10-­ ï
 198 
    ror    ecx, 8
193 
    mcall    , 8*65536+512,,240*65536+30,     ; 2-­ ï
 199 
	mov    edx, (WIN_W-BIN_LINE_BLOCK_W*2)*65536+30
- 
 
 200 
	mcall
194 
    ror    ecx, 8
 201 
    ror    ecx, 8
195 
    mcall    ,		  ,,(240-56)*65536+30,
 202 
    mov    edx, (WIN_W-BIN_LINE_BLOCK_W*3)*65536+30
196 
    ror    ecx, 8
 203 
	mcall
197 
    mcall    ,		  ,,(240-56*2)*65536+30,
 204 
    ror    ecx, 8
198 
    ror    ecx, 8
 205 
    mov    edx, (WIN_W-BIN_LINE_BLOCK_W*4)*65536+30
199 
    mcall    ,		  ,,(240-56*3)*65536+30,
 206 
	mcall
200 
    ror    ecx, 8
 207 
    ror    ecx, 8
- 
 
 208 
    mov    [minus], '+'
201 
    mov    [minus], '+'
 209 
    jnc    @f
202 
    jnc    @f
 210 
    mov    [minus], '-'
203 
    mov    [minus], '-'
 211 
    neg    ecx
204 
    neg    ecx
 212 
@@:
Line 205... Line 213...
205 
@@:
 213 
    mcall   , 10*65536,   ,(WIN_W-92)*65536+46,    ; 10-­ ï
Line 251... Line 259...
251 
  db  34 dup(' ')
 259 
  db  34 dup(' ')
252 
string1_end:
 260 
string1_end:
253 
  num	dd  0
 261 
  num	dd  0
Line 254... Line 262...
254 
 
 262 
 
255 
 
 263 
 
256 
 title db 'hex2dec2bin 0.4',0
 264 
 title db 'hex2dec2bin 0.5',0
257 
 minus	db '-',0
 265 
 minus	db '-',0
258 
 hexstr db 'hex:',0
 266 
 hexstr db 'hex:',0
259 
 binstr db 'bin:',0
 267 
 binstr db 'bin:',0
260 
 decstr db 'dec:',0
 - 
 
261 
 sdecstr db 'signed dec:',0
 - 
 
262 
 shlstr db 'shl',0
 - 
 
263 
 salstr db 'sal',0
 268 
 decstr db 'dec:',0
Line 264... Line 269...
264 
 shrstr db 'shr',0
 269 
 sdecstr db 'signed dec:',0
265 
 sarstr db 'sar',0
 270 
 shl_sal_sar_shr_button_caption db 'shl    sal                    sar    shr',0
266 
 
 271 
 
267 
if lang eq ru
 272 
if lang eq ru
268 
	numstr db '—¨á«®:',0
 273 
	numstr db '—¨á«®:',0
269 
	Okstr db '‚¢®¤',0
 274 
	Okstr db '‚¢®¤',0
270 
	head_f_i:
 275 
	head_f_i:
271 
	head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
 276 
	head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
272 
else
 277 
else
273 
	numstr db 'Number:',0
 278 
	numstr db 'Number:',0
274 
	Okstr db 'Ok',0
 279 
	Okstr db 'Enter',0
Line 275... Line 280...
275 
	head_f_i:
 280 
	head_f_i:
276 
	head_f_l db 'System error',0
 281 
	head_f_l db 'System error',0
Line 277... Line 282...
277 
end if
 282 
end if
Line 278... Line 283...
278 
 
 283 
 
279 
mouse_dd dd 0
 284 
mouse_dd dd 0