Subversion Repositories Kolibri OS

Rev

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

Rev 833 Rev 1070
Line 1... Line 1...
1 
;
 1 
;
2 
;   RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
 2 
;   RDsave ¤«ï Kolibri (0.6.5.0 ¨ áâ àè¥)
3 
;
3 
;
4 
;   Mario79 2005
 4 
;   Mario79 2005
5 
;   Heavyiron 12.02.2007
 5 
;   Heavyiron 12.02.2007
6 
;
 - 
 
- 
 
 6 
;        11.05.2009 - ¤«ï à ¡®âë ­ã¦­  á¨á⥬­ ï ¡¨¡«¨®â¥ª  box_lib.obj
7 
;   Š®¬¯¨«¨à®¢ âì FASM'®¬
 7 
;   Š®¬¯¨«¨à®¢ âì FASM'®¬
8 
;
 8 
;
9 
;---------------------------------------------------------------------
 9 
;---------------------------------------------------------------------
10 
include 'lang.inc'
 10 
include 'lang.inc'
11 
include '..\..\..\macros.inc'
 11 
include '..\..\..\macros.inc'
Line 21... Line 21...
21 
  dd     START       ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
 21 
  dd     START       ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
22 
  dd     I_END       ; à §¬¥à ¯à®£à ¬¬ë
 22 
  dd     I_END       ; à §¬¥à ¯à®£à ¬¬ë
23 
  dd     I_END       ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
 23 
  dd     I_END       ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
24 
  dd     I_END       ;  ¤à¥á ¢¥à設ë áâíª 
 24 
  dd     I_END       ;  ¤à¥á ¢¥à設ë áâíª 
25 
  dd     0x0         ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
 25 
  dd     0x0         ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
- 
 
 26 
  dd cur_dir_path
- 
 
 27 
 
26 
  dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
 28 
;include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
- 
 
 29 
include '../../../develop/libraries/box_lib/trunk/load_lib.mac'
- 
 
 30 
include '../../../develop/libraries/box_lib/trunk/editbox_ex.mac'
- 
 
 31 
	@use_library
Line 27... Line -...
27 
 
 - 
 
28 
include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
 32 
 
29 
use_edit_box
 33 
;use_edit_box
30 
al equ eax      ; \ decrease kpack'ed size
 34 
al equ eax      ; \ decrease kpack'ed size
Line 31... Line 35...
31 
purge mov       ; /
 35 
purge mov       ; /
32 
 
 36 
 
33 
;---------------------------------------------------------------------
 37 
;---------------------------------------------------------------------
34 
;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
 38 
;---  €—€‹Ž Žƒ€ŒŒ›  ----------------------------------------------
35 
;---------------------------------------------------------------------
 39 
;---------------------------------------------------------------------
- 
 
 40 
align 4
- 
 
 41 
START:
- 
 
 42 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
- 
 
 43 
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
- 
 
 44 
        cmp     eax,-1
36 
 
 45 
        jz      close
37 
START:
 46 
 
38 
   mov eax, 40
 47 
   mov eax, 40
39 
   mov ebx, 100111b
 48 
   mov ebx, 100111b
40 
   mcall
 49 
   mcall
Line 54... Line 63...
54 
    jz   key
 63 
    jz   key
55 
    dec  eax
 64 
    dec  eax
56 
    jz   button
 65 
    jz   button
Line 57... Line 66...
57 
 
 66 
 
58 
mouse:
 67 
mouse:
- 
 
 68 
;        mouse_edit_box editbox
- 
 
 69 
        push    dword editbox
- 
 
 70 
        call    [edit_box_mouse]
59 
        mouse_edit_box editbox
 71 
 
Line 60... Line 72...
60 
        jmp     still
 72 
        jmp     still
61
73
62 
button:
 74 
button:
Line 63... Line 75...
63 
    mov  al,17           ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
 75 
    mov  al,17           ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
64 
    mcall
 76 
    mcall
- 
 
 77 
 
65 
 
 78 
    cmp  ah,1            ; ª­®¯ª  á id=1("§ ªàëâì")?
66 
    cmp  ah,1            ; ª­®¯ª  á id=1("§ ªàëâì")?
 79 
    jne  noclose
Line 67... Line 80...
67 
    jne  noclose
 80 
close:
68 
    or   eax,-1          ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
 81 
    or   eax,-1          ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
Line 94... Line 107...
94 
        jmp     still
 107 
        jmp     still
Line 95... Line 108...
95 
 
 108 
 
96 
key:
109 
key:
97 
    mov  al,2
 110 
    mov  al,2
98 
    mcall
 111 
    mcall
- 
 
 112 
;    key_edit_box editbox
- 
 
 113 
        push    dword editbox
- 
 
 114 
        call    [edit_box_key]
99 
    key_edit_box editbox
 115 
 
Line 100... Line 116...
100 
    jmp  still
 116 
    jmp  still
101 
 
 117 
 
Line 168... Line 184...
168 
   mov edx,[sc.work]                     ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
 184 
   mov edx,[sc.work]                     ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
169 
   or  edx,0x34000000
 185 
   or  edx,0x34000000
170 
   mov edi,title                        ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
 186 
   mov edi,title                        ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
171 
   mcall
 187 
   mcall
Line -... Line 188...
- 
 
 188 
 
- 
 
 189 
        push    dword editbox
- 
 
 190 
        call    [edit_box_draw]
172 
 
 191 
 
Line 173... Line 192...
173 
draw_edit_box editbox                   ;à¨á®¢ ­¨¥ edit box
 192 
;draw_edit_box editbox                   ;à¨á®¢ ­¨¥ edit box
174 
 
 193 
 
175 
   mov al,13                            ;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
 194 
   mov al,13                            ;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
176 
   mov ebx,194 shl 16 + 60
 195 
   mov ebx,194 shl 16 + 60
Line 305... Line 324...
305 
error10 db 'Access denied',0
 324 
error10 db 'Access denied',0
306 
error11 db 'Device error',0
 325 
error11 db 'Device error',0
307 
aUnknownError db 'Unknown error',0
 326 
aUnknownError db 'Unknown error',0
Line 308... Line 327...
308 
 
 327 
 
- 
 
 328 
end if
- 
 
 329 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
- 
 
 330 
;DATA ¤ ­­ë¥
- 
 
 331 
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
- 
 
 332 
system_path      db '/sys/lib/'
- 
 
 333 
library_name     db 'box_lib.obj',0
- 
 
 334 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- 
 
 335 
 
- 
 
 336 
err_message_found_lib   db 'Sorry I cannot load library box_lib.obj',0
- 
 
 337 
head_f_i:
- 
 
 338 
head_f_l        db 'System error',0
- 
 
 339 
err_message_import      db 'Error on load import library box_lib.obj',0
- 
 
 340 
align 4
- 
 
 341 
myimport:
- 
 
 342 
 
- 
 
 343 
edit_box_draw   dd      aEdit_box_draw
- 
 
 344 
edit_box_key    dd      aEdit_box_key
- 
 
 345 
edit_box_mouse  dd      aEdit_box_mouse
- 
 
 346 
version_ed      dd      aVersion_ed
- 
 
 347 
 
- 
 
 348 
                dd      0
- 
 
 349 
                dd      0
- 
 
 350 
 
- 
 
 351 
aEdit_box_draw  db 'edit_box',0
- 
 
 352 
aEdit_box_key   db 'edit_box_key',0
- 
 
 353 
aEdit_box_mouse db 'edit_box_mouse',0
- 
 
 354 
aVersion_ed     db 'version_ed',0
Line 309... Line 355...
309 
end if
 355 
 
Line 310... Line 356...
310 
 
 356 
 
311 
mouse_flag: dd 0x0
 357 
;mouse_flag: dd 0x0
312 
 
 358 
 
313 
path1   db '/fd/1/',0
 359 
path1   db '/fd/1/',0
Line 319... Line 365...
319 
 
 365 
 
Line 320... Line 366...
320 
rb 514
 366 
rb 514
Line -... Line 367...
- 
 
 367 
 
- 
 
 368 
sc     system_colors
321 
 
 369 
 
322 
sc     system_colors
 370 
cur_dir_path    rb 4096
323 
 
 371 
library_path    rb 4096