kolibrios/programs/system/rb/trunk/@RB.ASM

;
;   DESKTOP CONTEXT MENU
;   written by Ivan Poddubny
;
;   €¢â®à - ˆ¢ ­ <20>®¤¤ã¡­ë©
;   e-mail: ivan-yar@bk.ru
;
;   Compile with flat assembler
;
include 'lang.inc'
include 'macros.inc'

meos_app_start
code

  mov   eax,40       ; ãáâ ­®¢¨¬ ¬ áªã ᮡë⨩
  mov   ebx,100000b  ; ­ á ¨­â¥à¥áã¥â ⮫쪮 ¬ëèì
  int   0x40

still:               ; £« ¢­ë© 横« ®á­®¢­®£® ¯à®æ¥áá 

  mov   eax,10       ; ¦¤ñ¬ ᮡëâ¨ï
  int   0x40

  mov   eax,37       ; ª ª¨¥ ­ ¦ âë ª¯®¯ª¨?
  mov   ebx,2
  int   0x40

  cmp   eax,2        ; ¥á«¨ ­¥ ¯à ¢ ï, ¢®§¢à â
  jne   still

;---¯®¥å «¨!---

;  mov   eax,37       ; íâ® ¤«ï ®â« ¤ª¨ - ¥á«¨ ¬ëèì ¢ â®çª¥ (0;0), § ªà®¥¬áï
;  xor   ebx,ebx
;  int   0x40
;  test  eax,eax      ; ªãàá®à ¢ â®çª¥ (0;0), â.¥. eax = 0
;  je    exit


  mov   eax,9        ; ¯®«ã稬 ç¨á«® ¯à®æ¥áᮢ ¢ á¨á⥬¥
  mov   ebx,procinfo
  xor   ecx,ecx
  int   0x40

  inc   eax          ; ⥯¥àì ¢ eax ᮤ¥à¦¨âáï ç¨á«® ¯à®æ¥áᮢ + 1
  mov   [processes],eax
  mov   ecx,1

 new_process:
  pushad
  mov   eax,9        ; ¯®«ã稬 ¨­ä®à¬ æ¨î ® ¯à®æ¥áá¥; ­®¬¥à - ¢ ecx
  mov   ebx,procinfo
  int   0x40
  mov   eax,37       ; ª®®à¤¨­ âë ªãàá®à 
  xor   ebx,ebx
  int   0x40
  mov   ebx,eax                  ; eax = cursor_x
  shr   eax,16                   ; ebx = cursor_y
  and   ebx,0xffff
  mov   [curx1],eax              ; curx1 = cursor_x
  mov   [cury1],ebx              ; cury1 = cursor_y
  mov   eax,[procinfo.x_start]   ; eax = wnd_x_start
  mov   ebx,[procinfo.y_start]   ; ebx = wnd_y_start

  mov   ecx,[procinfo.x_size]
  add   ecx,eax                  ; ecx = wnd_x_end
  mov   edx,[procinfo.y_size]
  add   edx,ebx                  ; ecx = wnd_y_end

  cmp   eax,[curx1]  ; wnd_x_start > cursor_x => ªãàá®à «¥¢¥¥ ®ª­ 
  jg    ne_goden
  cmp   ecx,[curx1]  ; wnd_x_end   < cursor_x => ªãàá®à ¯à ¢¥¥ ®ª­ 
  jl    ne_goden
  cmp   ebx,[cury1]  ; wnd_y_start > cursor_y => ªãàá®à ¢ëè¥ ®ª­ 
  jg    ne_goden
  cmp   edx,[cury1]  ; wnd_y_end   < cursor_y => ªãàá®à ­¨¦¥ ®ª­ 
  jl    ne_goden

goden:               ; ª«¨ª ¡ë« ¢­ãâਠª ª®£®-â® ®ª­ , ¯®í⮬㠭¨ç¥£® ­¥ ¤¥« ¥¬
  popad
  jmp   still

ne_goden:            ; ª«¨ª ¡ë« á­ à㦨 à áᬠâਢ ¥¬®£® ®ª­ , ¯®í⮬ã
  popad
  inc   ecx
  cmp   ecx,[processes]
  jl    new_process  ; «¨¡® ᬮਬ á«¥¤ãî饥 ®ª­®, «¨¡® § ¯ã᪠¥¬ ¬¥­î


@@:             ; ¯®¤®¦¤ñ¬, ¯®ª  ¯®«ì§®¢ â¥«ì ­¥ ®â¯ãá⨫ ¯à ¢ãî ª­®¯ªã ¬ëè¨
  mov   eax,37
  mov   ebx,2   ; äã­ªæ¨ï 37-2:
  int   0x40    ;   ­ ¦ âë «¨ ª­®¯ª¨ ¬ëè¨?
  cmp   eax,ebx ; ¥á«¨ ®â¯ãá⨫, (eax != 2)
  jnz   @f      ;   ¨¤ñ¬ ¢ ­ ç «® £« ¢­®£® 横« 

  mov   eax,5   ; ¨­ ç¥
  mov   ebx,2   ;   ¯®¤®¦¤ñ¬ 2 ¬á
  int   0x40

  jmp   @b      ;   ¨ ¯à®¢¥à¨¬ ¬ëèì ®¯ïâì
@@:

; ¥á«¨ 㦥 ¡ë«® ®âªàëâ® ¬¥­î, ­ã¦­® ¯®¤®¦¤ âì, ¯®ª  ®­® § ªà®¥âáï:
@@:
  cmp   [menu_opened],0
  je    @f
  mov   eax,5
  mov   ebx,3  ; ¦¤ñ¬ 3 ¬á
  int   0x40
  jmp   @b
@@:

  mov   eax,51           ;   ⥯¥àì ¬®¦­® ᬥ«® § ¯ã᪠âì ¯à®æ¥áá (¯®â®ª) ¬¥­î
  mov   ebx,1            ; ᮧ¤ ñ¬ ¯®â®ª (thread)
  mov   ecx,start_wnd    ; â®çª  ¢å®¤  ¯®â®ª 
  mov   edx,stack_wnd    ; ¢¥à設  áâíª  ¤«ï ¯®â®ª 
  int   0x40

  jmp   still



exit_menu:            ; ¥á«¨ ¢ë室¨¬ ¨§ ¬¥­î, ­ ¤® § ¯¨á âì ¢ [menu_opened] 0
  mov   [menu_opened],0
exit:                 ; á ¬ë ¨¤ñ¬, ª®£¤  ¢ë室¨¬ ¨§ ®á­®¢­®£® ¯à®æ¥áá 
  or    eax,-1        ; eax = -1
  int   0x40




; §¤¥áì áâ àâã¥â ¯à®æ¥áá ¬¥­î
start_wnd:
  mov   [menu_opened],1
  mov   eax,40      ; ãáâ ­®¢¨¬ ¬ áªã ¦¥« ¥¬ëå ᮡë⨩ ¤«ï í⮣® ¯à®æ¥áá 
  mov   ebx,100101b ; ¬¥­î + ª­®¯ª¨ + ¯¥à¥à¨á®¢ª 
  int   0x40

red:
  call  draw_window

still2:             ; £« ¢­ë© 横« ¯à®æ¥áá  ¬¥­î

  mov   eax,10      ; ¦¤ñ¬ ᮡëâ¨ï
  int   0x40

  cmp   eax,1       ; ¯¥à¥à¨á®¢ª ?
  je    red
  cmp   eax,3       ; ª­®¯ª ?
  je    button
  cmp   eax,6       ; ¬ëèì?
  je    mouse

  jmp   still2      ; ¢¥à­ñ¬áï ¢ ­ ç «® £« ¢­®£® 横« 


; Ž<><C5BD>€<EFBFBD>Ž’—ˆŠ Œ›˜ˆ
mouse:            ; ª®£¤  ¯®«ì§®¢ â¥«ì ­ ¦¬ñâ ª­®¯ªã ¬ëè¨, § ªà®¥¬áï
  mov   eax,37
  mov   ebx,2     ; ª ª¨¥ ª­®¯ª¨ ­ ¦ âë?
  int   0x40
  test  eax,eax   ; ­¨ª ª¨¥? - ⮣¤  ¯à¥ªà á­®! ¢¥à­ñ¬áï ¢ £« ­ë© 横«
  jz    still2
  jmp   exit_menu ;   ¥á«¨ ¢áñ-â ª¨ ­ ¦ âë - § ªà®¥¬ ®ª­®


; <20>€†€’€ Š<>Ž<EFBFBD>Š€
button:
  mov   eax,17        ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
  int   0x40

  sub   ah,10         ; áà ¢­¨¢ ¥¬ á 10
  jl    nofuncbtns    ; ¥á«¨ ¬¥­ìè¥ - § ªà뢠¥¬ ¬¥­î

  movzx ebx,ah        ; ¯®«ã稫¨ ­®¬¥à ¯à®£à ¬¬ë ¢ ᯨ᪥ ¢ ebx
  mov   esi, [startapps + ebx*4]
  mov   edi, start_info.path
  cld
 @@:
  lodsb
  stosb
  test  al, al
  jnz   @b
  mcall 70, start_info

;  mov   eax,5         ; ¯®¤®¦¤ñ¬, ¯®ª  ¯à®£à ¬¬  § ¯ãáâ¨âìáï
;  mov   ebx,1         ;   â® ¥ñ ®ª­® ­¥ ¡ã¤¥â ®âà¨á®¢ ­® (¡ £ ¢ ï¤à¥???)
;  int   0x40          ; à áª®¬¬¥­â¨àã©â¥ í⨠áâப¨, ¥á«¨ ã ¢ á ¯à®¡«¥¬ë
                       ; á ®âà¨á®¢ª®©

nofuncbtns:           ; § ªà뢠¥¬ ¬¥­î
  jmp   exit_menu



_BTNS_            = 8     ; ª®«¨ç¥á⢮ ª­®¯®ª ("¯ã­ªâ®¢ ¬¥­î")

if lang eq ru
  font            = 0x00000000
  string_length   = 20          ; ¤«¨­  áâப¨
  wnd_x_size      = 133         ; è¨à¨­  ®ª­ 
  header_pos      = 36 shl 16 + 7
else
  font            = 0x10000000
  string_length   = 12          ; ¤«¨­  áâப¨
  wnd_x_size      = 105         ; è¨à¨­  ®ª­ 
  header_pos      = 23 shl 16 + 7
end if

;*******************************
;********  <20>ˆ‘“…Œ ŽŠ<C5BD>Ž  ********
;*******************************

draw_window:

  mov   eax,12           ; ­ ç¨­ ¥¬ "à¨á®¢ âì"
  mov   ebx,1
  int   0x40

  mov   eax,[curx1]      ; ⥪ã騥 ª®®à¤¨­ âë ªãàá®à 
  mov   [curx],eax       ; § ¯¨è¥¬ ¢ ª®®à¤¨­ âë ®ª­ 
  mov   eax,[cury1]
  mov   [cury],eax

; ⥯¥àì ¡ã¤¥¬ áç¨â âì ª®®à¤¨­ âë ®ª­ , çâ®¡ë ®­® §  ªà © íªà ­  ­¥ ¢ë«¥§«®
  mov   eax,14                ; ¯®«ã稬 à §¬¥à íªà ­ 
  int   0x40
  mov   ebx,eax
  shr   eax,16                ; ¢ eax - x_screen
  and   ebx,0xffff            ; ¢ ebx - y_screen
  add   eax,-wnd_x_size       ; eax = [x_screen - è¨à¨­  ®ª­ ]
  add   ebx,-_BTNS_*15-21     ; ebx = [y_screen - ¢ëá®â  ®ª­ ]

  cmp   eax,[curx]
  jg    .okx                  ; ¥á«¨ ®ª­® ᫨誮¬ ¡«¨§ª® ª ¯à ¢®¬ã ªà î,
  add   [curx],-wnd_x_size    ; ᤢ¨­¥¬ ¥£® ¢«¥¢® ­  100
 .okx:

  cmp   ebx, [cury]
  jg    .oky                  ; ¯® ¢¥à⨪ «¨ â®ç­® â ª¦¥
  add   [cury], -_BTNS_*15-21
 .oky:

  mov   eax, 48                   ; ¯®«ãç¨âì á¨á⥬­ë¥ 梥â 
  mov   ebx, 3
  mov   ecx, sc                   ;   ¤à¥á áâàãªâãàë
  mov   edx, sizeof.system_colors ;  ¨ ¥¥ à §¬¥à
  int   0x40

  xor   eax, eax           ; äã­ªæ¨ï 0 - ᮧ¤ âì ®ª­®
  mov   ebx, [curx]        ;  ebx = [ª®®à¤¨­ â  ¯® x] shl 16 + [è¨à¨­ ]
  shl   ebx, 16
  add   ebx, wnd_x_size
  mov   ecx, [cury]        ;  ecx = [ª®®à¤¨­ â  ¯® y] shl 16 + [¢ëá®â ]
  shl   ecx, 16
  add   ecx, _BTNS_*15+21
  mov   edx, [sc.work]     ;  梥â à ¡®ç¥© ®¡« áâ¨
  mov   esi, [sc.grab]     ;  梥⠧ £®«®¢ª 
  or    esi, 0x81000000
  mov   edi, [sc.frame]    ;  梥â à ¬ª¨
  int   0x40

  mov   eax, 4             ; § £®«®¢®ª
  mov   ebx, header_pos    ;  [x] shl 16 + [y]
  mov   ecx, [sc.grab_text];  èà¨äâ ¨ 梥â (á¥àë©)
  or    ecx, 0x10000000
;  add   ecx, -0x333333
  push  ecx
  push  ecx
  xor   edx,edx
.dec_color:
  sub   byte [esp+edx], 0x33
  jae   @f
  mov   byte [esp+edx], 0
@@:
  inc   edx
  jnp   .dec_color
  pop   ecx
  mov   edx, header        ;   ¤à¥á § £®«®¢ª 
  mov   esi, header.size   ;  ¤«¨­  § £®«®¢ª  ("M E N U")
  int   0x40
  pop   ecx
  add   ebx, 1 shl 16      ;  ᤢ¨­¥¬ ¢¯à ¢® ­  1
  int   0x40

  mov   ebx, 1*65536+wnd_x_size-2  ; ­ ç¨­ ¥¬ ¤¥« âì ª­®¯ª¨
  mov   ecx, 20*65536+15
  mov   edx, 10 or 0x40000000 ; ¡¨â 30 ãáâ ­®¢«¥­ => ª­®¯ª  ­¥ à¨áã¥âáï

  mov   edi,_BTNS_           ; ª®«¨ç¥á⢮ ª­®¯®ª (áçñâ稪)

 newbtn:                     ; ­ ç «® 横« 
  mov   eax,8                ;  ᮧ¤ ñ¬ ª­®¯ªã
  int   0x40

                             ;  ¯¨è¥¬ ⥪áâ ­  ª­®¯ª¥
  pushad                     ;   ᯠᠥ¬ ॣ¨áâàë
  shr   ecx, 16
  and   ebx, 0xffff0000
  add   ebx, ecx             ;   ebx = [x] shl 16 + [y];
  add   ebx, 10*65536+4      ;   ebx += ᬥ饭¨¥ ®â­®á¨â¥«ì­® ªà ï ª­®¯ª¨;
  mov   ecx, [sc.work_text]  ;   èà¨äâ ¨ 梥â
  or    ecx, font
  add   edx, -10             ;   edx = ­®¬¥à ª­®¯ª¨;
  imul  edx, string_length   ;   edx *= ¤«¨­  áâப¨;
  add   edx, text            ;   edx += text;  ⥯¥àì ¢ edx  ¤à¥á áâப¨
  mov   esi, string_length   ;   ¢ esi - ¤«¨­  áâப¨
  mov   eax, 4               ;   äã­ªæ¨ï 4 - ¢ë¢®¤ ⥪áâ 
  int   0x40
  popad

  inc   edx                  ;  ­®¬¥à ª­®¯ª¨++;
  add   ecx,15*65536         ;  㢥«¨ç¨¬ ᬥ饭¨¥ ¯® y
  dec   edi                  ;  㬥­ì訬 áçñâ稪
  jnz   newbtn               ; ¥á«¨ ­¥ ­®«ì, ¯®¢â®à¨¬ ¢áñ ¥éñ à §

  mov   eax,12               ; § ª®­ç¨«¨ "à¨á®¢ âì"
  mov   ebx,2
  int   0x40

ret                          ; ¢®§¢à â



; „€<E2809E><E282AC>›… <20><>Žƒ<C5BD>€ŒŒ›
DATA

  macro strtbl name, [string]
  {
   common
     label name dword
   forward
     local str
     dd str
   forward
     str db string
  }

  strtbl startapps       ,\
    <"/RD/1/PIC4",0>     ,\
    <"/RD/1/DESKTOP",0>  ,\
    <"/RD/1/MV",0>       ,\
    <"/RD/1/JPEGVIEW",0> ,\
    <"/RD/1/CPU",0>      ,\
    <"/RD/1/SPANEL",0>   ,\
    <"/RD/1/ICON2",0> ,\
    <"/RD/1/VRR",0>

;  header:            ; § £®«®¢®ª
;    db 'M E N U'
;  header_len = $ - header

;  text:              ; ⥪áâ ­  ª­®¯ª å
;    db 'Background  '; 12
;    db 'Colors      '
;    db 'MeView      '
;    db 'Processes   '
;    db 'Panel setup '
;    db 'Icon manager'

  sz header, "KolibriOS"

  lsz text,\
    en, 'Background  ',\
    en, 'Colors      ',\
    en, 'MeView      ',\
    en, 'JpegView    ',\
    en, 'Processes   ',\
    en, 'Panel setup ',\
    en, 'Icon manager',\
    en, 'VRR         ',\
    \
    ru, 'ƒ¥­¥à â®à ®¡®¥¢     ',\
    ru, '‘¨á⥬­ë¥ æ¢¥â      ',\
    ru, '<27>à®á¬®âà BMP        ',\
    ru, '<27>à®á¬®âà JPEG       ',\
    ru, '<27>à®æ¥ááë            ',\
    ru, '<27> áâனª  ¯ ­¥«¨    ',\
    ru, '“¯à ¢«¥­¨¥ ¨ª®­ª ¬¨ ',\
    ru, '<27> áâனª  ¬®­¨â®à   '

start_info:
        .mode   dd      7
                dd      0
        .params dd      0
                dd      0
                dd      0
                db      0
                dd      start_info.path

; <20>…ˆ<E280A6>ˆ–ˆ€‹ˆ‡ˆ<E280A1>Ž‚€<E2809A><E282AC>›… „€<E2809E><E282AC>›…
UDATA
  processes   dd ?              ; ª®«¨ç¥á⢮ ¯à®æ¥áᮢ ¢ á¨á⥬¥
  curx1       dd ?              ; ª®®à¤¨­ âë ªãàá®à 
  cury1       dd ?
  curx        dd ?              ; ª®®à¤¨­ âë ®ª­  ¬¥­î
  cury        dd ?

  menu_opened db ?              ; ®âªàëâ® ¬¥­î ¨«¨ ­¥â? (1-¤ , 0-­¥â)

align 4
start_info.path rb 256

  sc       system_colors        ; á¨á⥬­ë¥ 梥â 
  procinfo process_information  ; ¨­ä®à¬ æ¨ï ® ¯à®æ¥áá¥

  rb 1024                       ; áâíª ¤«ï ®ª­  ¬¥­î - 墠â¨â ¨ 1 Š¡
  align 32
  stack_wnd:


MEOS_APP_END
; ŠŽ<C5A0>…– <20><>Žƒ<C5BD>€ŒŒ›