Subversion Repositories Kolibri OS

Rev

Rev 830 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; á¯à®áâà ­ï¥âáï ¯® «¨æ¥­§¨¨ GPL  SEE YOU File FAQ.txt and HISTORY. Good Like!
  2. ;Ž¯â¨¬¨§¨à®¢ ­­ë© ª®¬¯®­¥­â EditBox (ˆá室­ë© ¢ à¨ ­â ®â Maxxxx32)
  3. ;Ž¯â¨¬¨§ æ¨ï ª®¬ ­¤.
  4. ;<Lrz>  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
  5. ;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
  6.         include '..\..\..\..\macros.inc'
  7.         include 'editbox.inc'
  8. KOS_APP_START
  9. align 4
  10.         use_edit_box
  11. ;Ž¡« áâì ª®¤ 
  12. code                            ;’®çª  ¢å®¤  ¢ ¯à®£à ¬¬ã
  13.         mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
  14. ;á¨á⥬  ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 ­  á®®¡é¥­¨¥ ® ¯¥à¥à¨á®¢ª¥,­ ¦ â  ª­®¯ª , ®¯à¥¤¥«ñ­­ ï à ­¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ­ ¦ â¨¥ ­  ª­®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥­¨¥; á¡à á뢠¥âáï ¯à¨ ¯à®ç⥭¨¨) ¨ ­ ¦ â¨¥ ª« ¢¨è¨
  15. red_win:
  16.     call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
  17. align 4
  18. still:                          ;®á­®¢­®© ®¡à ¡®â稪
  19.         mcall   10              ;Ž¦¨¤ âì ᮡëâ¨ï
  20.         dec  eax
  21.         jz   red_win
  22.         dec  eax
  23.         jz   key
  24.         dec  eax
  25.         jz   button
  26.         mouse_edit_boxes editboxes,editboxes_end
  27.         jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
  28. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29. button:
  30.         mcall   17      ;¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª« ¢¨è¨
  31.         test ah,ah              ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®â稪 ᮡë⨩ still
  32.         jz  still
  33.         mcall   -1
  34. key:
  35.         mcall   2       ;§ £à㧨¬ §­ ç¥­¨¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ­ ¦ â®© ª« ¢¨è¨
  36.         key_edit_boxes editboxes,editboxes_end    
  37.     jmp still
  38.  
  39. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  40. align 4
  41. draw_window:            ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
  42.         mcall   12,1
  43.         mcall   0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
  44.         draw_edit_boxes editboxes,editboxes_end  ;à¨á®¢ ­¨¥ edit box'®¢
  45.         mcall   12,2
  46.     ret
  47. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  48. ;DATA ¤ ­­ë¥
  49. editboxes:
  50. edit1 edit_box 168,5,10,0xffffff,0x6a9480,0,0,0,99,ed_buffer.2,ed_figure_only
  51. edit2 edit_box 250,5,30,0xffffff,0x6a9480,0,0xAABBCC,0,308,hed,ed_focus,53,53
  52. edit3 edit_box 35,5,50,0xffffff,0x6a9480,0,0,0,9,ed_buffer.3,ed_figure_only
  53. edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
  54. editboxes_end:
  55. data_of_code dd 0
  56. mouse_flag dd 0x0
  57. hed db   'EDITBOX optimization and retype <Lrz> date 23.07.2008',0
  58. rb  256
  59. ed_buffer:
  60. ;.1: rb 514;256
  61. .2: rb 101
  62. .3: rb 11
  63. .4: rb 3
  64. ;¤¢  § ¯ á­ëå ¡ ©â  ­¥®¡å®¤¨¬ë ¤«ï ⮣® çâ® ¡ë ­¥ ¯¥¯¥à¥¯¨á âì á«¥¤ãî騥© ¡ ©âë, ¢ ª®­æ¥ ¡ãä¥à  0
  65. buffer_end:
  66. align 16
  67. KOS_APP_END  
  68. udata
  69.