Subversion Repositories Kolibri OS

Rev

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

Rev 4327 Rev 4328
Line 10... Line 10...
10 
  dd mem
 10 
  dd mem
11 
  dd stacktop
 11 
  dd stacktop
12 
  dd 0x0 ;library_path
 12 
  dd 0x0 ;library_path
13 
  dd cur_dir_path
 13 
  dd cur_dir_path
Line 14... Line 14...
14 
 
 14 
 
- 
 
 15 
include '../../macros.inc'
15 
include 'macros.inc'
 16 
include '../../develop/libraries/box_lib/load_lib.mac'
Line 16... Line 17...
16 
include 'load_lib.mac'
 17 
include 'lang.inc'
Line 17... Line 18...
17 
 
 18 
 
18 
@use_library
 19 
@use_library
Line 191... Line 192...
191 
  push msgbox_5_2
 192 
  push msgbox_5_2
192 
  call [mb_reinit]
 193 
  call [mb_reinit]
Line 193... Line 194...
193 
 
 194 
 
Line 194... Line 195...
194 
  jmp still
 195 
  jmp still
195 
 
 196 
 
196 
 
 197 
if lang eq ru
197 
  txt136 db '¯à®á⮥',0
 198 
  txt136 db '¯à®á⮥',0
198 
  txt137 db '3 ª­®¯ª¨',0
 199 
  txt137 db '3 ª­®¯ª¨',0
199 
  txt138 db '3 áâப¨',0
 200 
  txt138 db '3 áâப¨',0
200 
  txt139 db '¡®«ì讥',0
 - 
 
201 
  txt140 db 'mb_reinit',0
 201 
  txt139 db '¡®«ì讥',0
- 
 
 202 
  txt140 db 'mb_reinit',0
- 
 
 203 
  hed db 'à¨¬¥à ¨á¯®«ì§®¢ ­¨ï MsgBox',0
- 
 
 204 
else
- 
 
 205 
  txt136 db 'Simple',0
- 
 
 206 
  txt137 db '3 buttons',0
- 
 
 207 
  txt138 db '3 lines',0
- 
 
 208 
  txt139 db 'Big',0
- 
 
 209 
  txt140 db 'mb_reinit',0
202 
 
 210 
  hed db 'MsgBox usage example',0
Line 203... Line 211...
203 
hed db 'à¨¬¥à ¨á¯®«ì§®¢ ­¨ï MsgBox',0
 211 
end if
204 
;sc system_colors
 212 
;sc system_colors
205 
 
 213 
 
206 
 
 214 
 
- 
 
 215 
;---------------------------------------------------------------------
207 
;---------------------------------------------------------------------
 216 
msgbox_1:
208 
msgbox_1:
 217 
  dw 0
209 
  dw 0
 218 
  db 'MBox',0 ;+2 = +MB_TEXT_OFFSET
- 
 
 219 
if lang eq ru
- 
 
 220 
  db 'à¨¬¥à',0
- 
 
 221 
  db '‚¨¦ã',0 ;button1
- 
 
 222 
  db 0
210 
  db 'MBox',0 ;+2 = +MB_TEXT_OFFSET
 223 
else
211 
  db 'à¨¬¥à',0
 224 
  db 'Example',0
212 
  db '‚¨¦ã',0 ;button1
 225 
  db 'I see!',0 ;button1
- 
 
 226 
end if
213 
  db 0
 227 
msgbox_2:
214 
msgbox_2:
 228 
  dw 0
215 
  dw 0
 229 
  db 'MBox 3 buttons',0 ;+2 = +MB_TEXT_OFFSET
216 
  db 'MBox 3 but',0 ;+2 = +MB_TEXT_OFFSET
 230 
if lang eq ru
- 
 
 231 
  db 'à¨¬¥à á 3-¬ï ª­®¯ª ¬¨',0
- 
 
 232 
  db '„ ',0 ;button1
- 
 
 233 
  db 'Žâ¬¥­ ',0 ;button2
- 
 
 234 
  db '®¬®éì',0 ;button3
- 
 
 235 
else
- 
 
 236 
  db '3 buttons example',0
217 
  db 'à¨¬¥à á 3-¬ï ª­®¯ª ¬¨',0
 237 
  db 'Yes',0 ;button1
218 
  db '„ ',0 ;button1
 238 
  db 'Cancel',0 ;button2
219 
  db 'Žâ¬¥­ ',0 ;button2
 239 
  db 'Help',0 ;button3
220 
  db '®¬®éì',0 ;button3
 240 
end if
221 
  db 0
 241 
  db 0
Line 222... Line 242...
222 
msgbox_2_funct:
 242 
msgbox_2_funct:
223 
  dd 0
 243 
  dd 0
224 
  dd 0
 244 
  dd 0
- 
 
 245 
  dd fun_show_help
225 
  dd fun_show_help
 246 
 
226 
 
 247 
msgbox_3:
- 
 
 248 
  dw 0
- 
 
 249 
  db 'MBox 3 lines',0 ;+2 = +MB_TEXT_OFFSET
- 
 
 250 
if lang eq ru
- 
 
 251 
  db '‘âப  1',13,'‘âப  2',13,'‘âப  3',0
227 
msgbox_3:
 252 
  db '2009 £.',0 ;button1
228 
  dw 0
 253 
else
229 
  db 'MBox 3 lines',0 ;+2 = +MB_TEXT_OFFSET
 254 
  db 'Line 1',13,'Line 2',13,'Line 3',0
- 
 
 255 
  db 'Year 2009',0 ;button1
230 
  db '‘âப  1',13,'‘âப  2',13,'‘âப  3',0
 256 
end if
- 
 
 257 
  db 0
- 
 
 258 
msgbox_4:
- 
 
 259 
  dw 0
231 
  db '2009 £.',0 ;button1
 260 
if lang eq ru
232 
  db 0
 261 
  db '‚¢¥¤¨â¥ ¤¥­ì',0 ;+2 = +MB_TEXT_OFFSET
233 
msgbox_4:
 262 
else
234 
  dw 0
 263 
  db 'Select day',0 ;+2 = +MB_TEXT_OFFSET
235 
  db '‚¢¥¤¨â¥ ¤¥­ì',0 ;+2 = +MB_TEXT_OFFSET
 264 
end if
Line 250... Line 279...
250 
  db '         @.....................@',13
 279 
  db '         @.....................@',13
251 
  db '        @.......@@......@@......@  @@',13
 280 
  db '        @.......@@......@@......@  @@',13
252 
  db '       @......@....@..@....@.....@@..@',13
 281 
  db '       @......@....@..@....@.....@@..@',13
253 
  db '       @......@....@..@....@.........@',13
 282 
  db '       @......@....@..@....@.........@',13
254 
  db '        @@@@@@@@@@@@@@@@@@@@@@@@@@@@@',0
 283 
  db '        @@@@@@@@@@@@@@@@@@@@@@@@@@@@@',0
- 
 
 284 
if lang eq ru
255 
  db '­',0
 285 
  db '­',0
256 
  db '‚â',0
 286 
  db '‚â',0
257 
  db '‘à',0
 287 
  db '‘à',0
258 
  db '—â',0
 288 
  db '—â',0
259 
  db 'â',0
 289 
  db 'â',0
260 
  db '‘¡',0
 290 
  db '‘¡',0
261 
  db '‚®áªà¥á¥­¨¥',0
 291 
  db '‚®áªà¥á¥­¨¥',0
- 
 
 292 
else
- 
 
 293 
  db 'Sun',0
- 
 
 294 
  db 'Mon',0
- 
 
 295 
  db 'Tue',0
- 
 
 296 
  db 'Wed',0
- 
 
 297 
  db 'Thu',0
- 
 
 298 
  db 'Fri',0
- 
 
 299 
  db 'Sat',0
- 
 
 300 
end if
262 
  db 0
 301 
  db 0
263 
msgbox_5:
 302 
msgbox_5:
264 
  dw 0
 303 
  dw 0
- 
 
 304 
if lang eq ru
265 
  db '‘®®¡é¥­¨¥',0 ;+2 = +MB_TEXT_OFFSET
 305 
  db '‘®®¡é¥­¨¥',0 ;+2 = +MB_TEXT_OFFSET
266 
  db '‚믮«­ïî ¯à®æ¥áá ...',0
 306 
  db '‚믮«­ïî ¯à®æ¥áá ...',0
267 
  db 'Žáâ ­®¢¨âì',0
 307 
  db 'Žáâ ­®¢¨âì',0
268 
  db 'à¥à¢ âì',0
 308 
  db 'à¥à¢ âì',0
- 
 
 309 
else
- 
 
 310 
  db 'Message',0 ;+2 = +MB_TEXT_OFFSET
- 
 
 311 
  db 'Running process ...',0
- 
 
 312 
  db 'Stop',0
- 
 
 313 
  db 'Abort',0
- 
 
 314 
end if
269 
  db 0
 315 
  db 0
270 
msgbox_5_2:
 316 
msgbox_5_2:
271 
  dw 0
 317 
  dw 0
- 
 
 318 
if lang eq ru
272 
  db '‘®®¡é¥­¨¥',0 ;+2 = +MB_TEXT_OFFSET
 319 
  db '‘®®¡é¥­¨¥',0 ;+2 = +MB_TEXT_OFFSET
273 
  db '‚ᥠ§ ª®­ç¥­®',0
 320 
  db '‚ᥠ§ ª®­ç¥­®',0
274 
  db '‡ ªàëâì ®ª­®',0
 321 
  db '‡ ªàëâì ®ª­®',0
- 
 
 322 
else
- 
 
 323 
  db 'Message',0 ;+2 = +MB_TEXT_OFFSET
- 
 
 324 
  db 'All finished',0
- 
 
 325 
  db 'Close window',0
- 
 
 326 
end if
275 
  db 0
 327 
  db 0
Line 276... Line 328...
276 
 
 328 
 
277 
;--------------------------------------------------
 329 
;--------------------------------------------------
278 
align 4
 330 
align 4
Line 330... Line 382...
330 
    mov byte[sh_help],0
 382 
    mov byte[sh_help],0
331 
  @@:
 383 
  @@:
332 
  call draw_square
 384 
  call draw_square
333 
  ret
 385 
  ret
334 
sh_help db 0
 386 
sh_help db 0
- 
 
 387 
if lang eq ru
335 
txt_help db '®¬®éì...'
 388 
txt_help db '®¬®éì...'
336 
 
 389 
else
- 
 
 390 
txt_help db 'Help...'
- 
 
 391 
end if
Line 337... Line 392...
337 
 
 392 
 
338 
i_end: ;ª®­¥æ ª®¤ 
 393 
i_end: ;ª®­¥æ ª®¤ 
339 
    rb 1024
 394 
    rb 1024
340 
  thread:
 395 
  thread: