WebSVN – Kolibri OS – Diff – /programs/system/desktop/trunk/desktop.asm


;
;    UNIFORM WINDOW COLOURS & SKIN
;
;    Compile with FASM for Menuet
;
;    < russian edition by Ivan Poddubny >
;    < skin selection by Mike Semenyako >
;
 
;******************************************************************************
   use32
   org     0
   db      'MENUET01'  ; identifier
   dd      1           ; header version
   dd      START       ; start address
   dd      I_END       ; file size
   dd      28000h      ; memory
   dd      10000h      ; stack pointer
   dd      0,0         ; parameters, reserved
 
   include 'lang.inc'
   include '..\..\macros.inc'
   include 'kglobals.inc'
   include 'unpacker.inc'
;******************************************************************************
 
 
struct SKIN_HEADER
  ident   dd ?
  version dd ?
  params  dd ?
  buttons dd ?
  bitmaps dd ?
ends
 
struct SKIN_PARAMS
  skin_height    dd ?
  margin.right   dw ?
  margin.left    dw ?
  margin.bottom  dw ?
  margin.top     dw ?
  colors.inner   dd ?
  colors.outer   dd ?
  colors.frame   dd ?
  colors_1.inner dd ?
  colors_1.outer dd ?
  colors_1.frame dd ?
  dtp.size       dd ?
  dtp.data       db 40 dup (?)
ends
 
struct SKIN_BUTTONS
  type     dd ?
  pos:
    left   dw ?
    top    dw ?
  size:
    width  dw ?
    height dw ?
ends
 
struct SKIN_BITMAPS
  kind  dw ?
  type  dw ?
  _data  dd ?
ends
 
 
START:                          ; start of execution
 
    mov  eax,48                 ; get current colors
    mov  ebx,3
    mov  ecx,color_table
    mov  edx,4*10
    mcall
 
    cld
    mov  esi,default_skn
    mov  edi,fname
    mov  ecx,default_skn.size
    rep  movsb
 
 
    call load_skin_file
 
;    mov  esi, default_dtp
;    mov  edi, fname
;    mov  ecx, default_dtp.size
;    rep  movsb
 
red:
    call draw_window            ; at first, draw the window
 
still:
 
    mov  eax,23                 ; wait here for event
    mov  ebx,5
    mcall
 
    dec  eax                    ; redraw request ?
    jz   red
    dec  eax                    ; key in buffer ?
    jz   key
    dec  eax                    ; button in buffer ?
    jz   button
 
    call draw_cursor
 
    jmp  still
 
 
  key:                          ; key
    mov  al,2                   ; just read it and ignore
    mcall
    jmp  still
 
  button:                       ; button
    mov  al,17                  ; get id
    mcall
 
    cmp  ah,11                  ; read string
    jne  no_string
    call read_string
    jmp  still
  no_string:
 
    cmp  ah,12                  ; load file
    jne  no_load
    call load_file
    call draw_window
    jmp  still
  no_load:
 
    cmp  ah,13                  ; save file
    jne  no_save
    call save_file
    jmp  still
  no_save:
 
    cmp  ah,14                  ; set 3d buttons
    jne  no_3d
    mov  eax,48
    mov  ebx,1
    mov  ecx,1
    mcall
    jmp  doapply
   no_3d:
 
    cmp  ah,15                  ; set flat buttons
    jne  no_flat
    mcall 48, 1, 0
doapply:
    mcall 48, 0, 0
    jmp  still
  no_flat:
 
    cmp  ah,16                  ; apply
    jne  no_apply
  apply_direct:
    mov  eax,48
    mov  ebx,2
    mov  ecx,color_table
    mov  edx,10*4
    mcall
    jmp  doapply
  no_apply:
 
    cmp  ah,17                  ; load skin file
    jne  no_load_skin
    call load_skin_file
    call draw_window
    jmp  still
  no_load_skin:
 
    cmp   ah,18                 ; apply skin
    jne   no_apply_skin
    cmp   [skin_info.fname],0
    je    no_apply_skin
    mcall 48,8,skin_info.fname
    call  draw_window
    jmp   still
  no_apply_skin:
 
    cmp  ah,31
    jb   no_new_colour
    cmp  ah,41
    jg   no_new_colour
    shr  eax,8
    sub  eax,31
    shl  eax,2
    mov  ebx,[color]
    mov  [eax+color_table],ebx
    cmp  dword[0x18000+SKIN_HEADER.ident],'SKIN'
    jne  @f
    mov  edi,[0x18000+SKIN_HEADER.params]
    mov  dword[edi+0x18000+SKIN_PARAMS.dtp.data+eax],ebx
    call draw_skin
@@: call draw_colours
    jmp  still
  no_new_colour:
 
    cmp  ah,1                   ; terminate
    jnz  noid1
    or   eax,-1
    mcall
  noid1:
 
    jmp  still
 
 
draw_cursor:
 
    pusha
    mov  eax,37
    mov  ebx,2
    mcall
 
    cmp  eax,0
    jne  dc1
    popa
    ret
 
 dc1:
 
    mov  eax,37
    mov  ebx,1
    mcall
 
    mov  ebx,eax
    shr  ebx,16
    mov  ecx,eax
    and  ecx,0xffff
 
    cmp  ecx,32
    jbe  no_color
    cmp  ebx,32
    jbe  no_color
 
    cmp  ebx,266           ; CHANGE COLOR
    jb   no_color
    cmp  ebx,266+20*3
    jg   no_color
 
    cmp  ecx,30+128
    jge  no_color
    cmp  ecx,30
    jb   no_color
 
    sub  ebx,266
    mov  eax,ebx
    cdq
    mov  ebx,20
    div  ebx
    mov  ebx,2
    sub  ebx,eax
 
    add  ecx,-30
    not  ecx
    shl  ecx,1
 
    mov  byte [ebx+color],cl
    call draw_color
 
    popa
    ret
 
  no_color:
 
    popa
    ret
 
 
load_file:
        xor     eax, eax
        mov     ebx, read_info
        mov     dword [ebx], eax       ; subfunction: read
        mov     dword [ebx+4], eax     ; offset (low dword)
        mov     dword [ebx+8], eax     ; offset (high dword)
        mov     dword [ebx+12], 40     ; read colors file: 4*10 bytes
        mov     dword [ebx+16], color_table ; address
        mcall   70
        ret
 
load_skin_file:
        xor     eax, eax
        mov     ebx, read_info
        mov     dword [ebx], eax       ; subfunction: read
        mov     dword [ebx+4], eax     ; offset (low dword)
        mov     dword [ebx+8], eax     ; offset (high dword)
        mov     dword [ebx+12], 32*1024 ; read: max 32 KBytes
        mov     dword [ebx+16], 0x10000 ; address
        mcall   70
 
        mov     esi, 0x10000
 
        cmp     dword [esi], 'KPCK'
        jnz     notpacked
        cmp     dword [esi+4], 32*1024 ; max 32 KBytes
        ja      doret
        push    0x20000
        push    esi
        call    unpack
        mov     esi, 0x20000
notpacked:
 
    cmp   dword[esi+SKIN_HEADER.ident],'SKIN'
    jne   doret
 
    mov   edi,0x18000
    mov   ecx,0x8000/4
    rep   movsd
 
    mov   esi,fname
    mov   edi,skin_info.fname
    mov   ecx,257
    rep   movsb
 
    mov   ebp,0x18000
    mov   esi,[ebp+SKIN_HEADER.params]
    add   esi,ebp
    lea   esi,[esi+SKIN_PARAMS.dtp.data]
    mov   edi,color_table
    mov   ecx,10
    rep   movsd
  doret:
 
ret
 
 
save_file:
        mov     ebx, write_info
        mov     dword [ebx], 2         ; subfunction: write
        and     dword [ebx+4], 0       ; (reserved)
        and     dword [ebx+8], 0       ; (reserved)
        mov     dword [ebx+12], 10*4   ; bytes to write
        mov     dword [ebx+16], color_table ; address
        mcall   70
        ret
 
read_string:
 
    pusha
 
    mov  edi,fname
    mov  al,'_'
    mov  ecx,87
    cld
    rep  stosb
 
    call print_text
 
    mov  edi,fname
 
  f11:
    mov  eax,10
    mcall
    cmp  eax,2
    jne  read_done
;    mov  eax,2
    mcall
    shr  eax,8
    cmp  eax,13
    je   read_done
    cmp  eax,8
    jne  nobsl
    cmp  edi,fname
    je   f11
    dec  edi
    mov  [edi],byte '_'
    call print_text
    jmp  f11
   nobsl:
    mov  [edi],al
 
    call print_text
 
    inc  edi
    cmp  edi, fname+87
    jne  f11
 
  read_done:
 
    mov  ecx, fname+88
    sub  ecx, edi
    mov  eax, 0
    cld
    rep  stosb
 
    call print_text
 
    popa
 
    ret
 
 
print_text:
    pushad
 
    mpack ebx,15,6*87+4
    mpack ecx,(30+18*10+2),11
    mcall 13,,,[w_work]
 
    mpack ebx,17,(30+18*10+4)
    mcall 4,,[w_work_text],fname,87
 
    popad
ret
 
 
draw_color:
 
    pusha
 
    mov  eax,13
    mov  ebx,266*65536+60
    mov  ecx,170*65536+30
    mov  edx,[color]
    mcall
 
;   mov  eax,13
    mov  ebx,266*65536+60
    mov  ecx,200*65536+10
    mov  edx,[w_work]
    mcall
 
    mov  eax,47
    mov  ebx,0+1*256+8*65536
    mov  ecx,[color]
    mov  edx,272*65536+201
    mov  esi,[w_work_text]
    mcall
 
    popa
 
    ret
 
 
draw_colours:
 
    pusha
 
    mov  esi,color_table
 
    mov  ebx,225*65536+32
    mov  ecx,32*65536+12
  newcol:
    mov  eax,13
    mov  edx,[esi]
    mcall
    add  ecx,18*65536
    add  esi,4
    cmp  esi,color_table+4*9
    jbe  newcol
 
    popa
 
    ret
 
 
draw_framerect: ; ebx,ecx
        push    ebx ecx
        add     bx,[esp+6]
        mov     cx,[esp+2]
        dec     ebx
        mcall   38
        add     cx,[esp]
        rol     ecx,16
        add     cx,[esp]
        sub     ecx,0x00010001
        mcall
        mov     ebx,[esp+4]
        mov     ecx,[esp]
        mov     bx,[esp+6]
        add     cx,[esp+2]
        dec     ecx
        mcall
        add     bx,[esp+4]
        rol     ebx,16
        add     bx,[esp+4]
        sub     ebx,0x00010001
        mcall
        add     esp,8
        ret
 
find_bitmap:
        mov     edi,[ebp+SKIN_HEADER.bitmaps]
        add     edi,ebp
        xor     ebx,ebx
  .lp1: cmp     dword[edi],0
        je      .lp2
        cmp     dword[edi+0],eax
        jne     @f
        mov     ebx,[edi+SKIN_BITMAPS._data]
        add     ebx,ebp
        mov     ecx,[ebx-2]
        mov     cx,[ebx+4]
        add     ebx,8
  .lp2: ret
    @@: add     edi,8
        jmp     .lp1
 
dec_edx:
        sub     dl,4
        jnc     @f
        xor     dl,dl
    @@: sub     dh,4
        jnc     @f
        xor     dh,dh
    @@: rol     edx,16
        sub     dl,4
        jnc     @f
        xor     dl,dl
    @@: rol     edx,16
        ret
 
area:
  .x      = 345
  .y      = 20
  .width  = 206
  .height = 191
 
wnd1:
  .x      = area.x+49
  .y      = area.y+5
  .width  = 150
  .height = 90
wnd2:
  .x      = area.x+35
  .y      = area.y+35
  .width  = 150
  .height = 90
wnd3:
  .x      = area.x+21
  .y      = area.y+65
  .width  = 150
  .height = 90
wnd4:
  .x      = area.x+7
  .y      = area.y+95
  .width  = 150
  .height = 90
 
virtual at edi+SKIN_PARAMS.dtp.data
  dtp system_colors
end virtual
 
draw_skin:
        mcall   13,,,0x00FFFFFF
 
        mov     ebp,0x18000
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        mpack   ebx,wnd1.x,wnd1.width
        mpack   ecx,wnd1.y,wnd1.height
        mov     edx,[dtp.frame]
        call    draw_framerect
        mcall   13,,,dword[dtp.work]
 
        mov     eax,38
        mpack   ebx,wnd1.x+1,wnd1.x+wnd1.width-2
        mpack   ecx,wnd1.y+1,wnd1.y+1
        mov     edx,[dtp.grab]
        mov     esi,20
    @@: mcall
        call    dec_edx
        add     ecx,0x00010001
        dec     esi
        jnz     @b
 
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        mcall   4,,dword[dtp.grab_text],caption_text,caption_text.size
 
        mcall   8,,,0,[dtp.grab_button]
        mcall   4,,dword[dtp.grab_button_text],close_text,close_text.size
 
;----------------------------------------------------------------------
 
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        mpack   ebx,wnd2.x,wnd2.width
        mpack   ecx,wnd2.y,wnd2.height
        mov     edx,[dtp.frame]
        shr     edx,1
        and     edx,0x007F7F7F
        call    draw_framerect
        mpack   ebx,wnd2.x+4,wnd2.width-8
        mpack   ecx,wnd2.y+4,wnd2.height-8
        call    draw_framerect
        mcall   13,,,[dtp.frame]
        add     ecx,(wnd2.height-5)*65536
        mcall
        mcall   ,,
        add     ebx,(wnd2.width-5)*65536
        mcall
        mcall   ,,,dword[dtp.work]
 
        mov     eax,38
        mpack   ebx,wnd2.x+4,wnd2.x+wnd2.width-5
        mpack   ecx,wnd2.y+4,wnd2.y+4
        mov     edx,[dtp.grab]
        mov     esi,16
    @@: mcall
        call    dec_edx
        add     ecx,0x00010001
        dec     esi
        jnz     @b
 
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        mcall   4,,dword[dtp.grab_text],caption_text,caption_text.size
 
        mcall   8,,,0,[dtp.grab_button]
        mcall   4,,dword[dtp.grab_button_text],close_text,close_text.size
 
;----------------------------------------------------------------------
 
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        mpack   ebx,wnd3.x,wnd3.width
        mpack   ecx,wnd3.y,wnd3.height
        mov     edx,[edi+SKIN_PARAMS.colors_1.outer]
        call    draw_framerect
        mpack   ebx,wnd3.x+4,wnd3.width-8
        mpack   ecx,wnd3.y+4,wnd3.height-8
        mov     edx,[edi+SKIN_PARAMS.colors_1.inner]
        call    draw_framerect
        mcall   13,,,[edi+SKIN_PARAMS.colors_1.frame]
        add     ecx,(wnd3.height-5)*65536
        mcall
        mcall   ,,
        add     ebx,(wnd3.width-5)*65536
        mcall
        mcall   ,,,dword[dtp.work]
 
        mov     eax,0x00000001 ; left, inactive
        call    find_bitmap
        mcall   7,,,
 
        pushd   [ebx-8]
        mov     eax,0x00000003 ; base, inactive
        call    find_bitmap
        pop     edx
        mov     esi,wnd3.x+wnd3.width-1
        sub     esi,edx
        shl     edx,16
        add     edx,wnd3.x*65536+wnd3.y
        mcall   7
    @@: rol     edx,16
        add     dx,[ebx-8]
        cmp     dx,si
        ja      @f
        rol     edx,16
        mcall   7
        jmp     @b
    @@:
 
        mov     eax,0x00000002 ; oper, inactive
        call    find_bitmap
        mov     edx,ecx
        shr     edx,16
        neg     edx
        shl     edx,16
        add     edx,(wnd3.x+wnd3.width)*65536+wnd3.y
        mcall   7
 
        mov     ebp,0x18000
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        mov     eax,dword[edi+SKIN_PARAMS.margin.left-2]
        mov     ax,word[edi+SKIN_PARAMS.skin_height]
        sub     ax,[edi+SKIN_PARAMS.margin.bottom]
        shr     ax,1
        add     ax,[edi+SKIN_PARAMS.margin.top]
        add     ax,-4
        push    eax
        lea     ebx,[eax+wnd3.x*65536+wnd3.y]
        mcall   4,,dword[dtp.grab_text],caption_text,caption_text.size
 
;---------------------------------------------------------
 
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        mpack   ebx,wnd4.x,wnd4.width
        mpack   ecx,wnd4.y,wnd4.height
        mov     edx,[edi+SKIN_PARAMS.colors.outer]
        call    draw_framerect
        mpack   ebx,wnd4.x+4,wnd4.width-8
        mpack   ecx,wnd4.y+4,wnd4.height-8
        mov     edx,[edi+SKIN_PARAMS.colors.inner]
        call    draw_framerect
        mcall   13,,,[edi+SKIN_PARAMS.colors.frame]
        add     ecx,(wnd4.height-5)*65536
        mcall
        mcall   ,,
        add     ebx,(wnd4.width-5)*65536
        mcall
        mcall   ,,,dword[dtp.work]
 
        mov     eax,0x00010001 ; left, inactive
        call    find_bitmap
        mcall   7,,,
 
        pushd   [ebx-8]
        mov     eax,0x00010003 ; base, inactive
        call    find_bitmap
        pop     edx
        mov     esi,wnd4.x+wnd4.width-1
        sub     esi,edx
        shl     edx,16
        add     edx,wnd4.x*65536+wnd4.y
        mcall   7
    @@: rol     edx,16
        add     dx,[ebx-8]
        cmp     dx,si
        ja      @f
        rol     edx,16
        mcall   7
        jmp     @b
    @@:
 
        mov     eax,0x00010002 ; oper, inactive
        call    find_bitmap
        mov     edx,ecx
        shr     edx,16
        neg     edx
        shl     edx,16
        add     edx,(wnd4.x+wnd4.width)*65536+wnd4.y
        mcall   7
 
        mov     ebp,0x18000
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        pop     eax
        lea     ebx,[eax+wnd4.x*65536+wnd4.y]
        mcall   4,,dword[dtp.grab_text],caption_text,caption_text.size
 
;----------------------------------------------------------------------
 
        mov     edi,[ebp+SKIN_HEADER.buttons]
        add     edi,ebp
  .lp1: cmp     dword[edi],0
        je      .lp2
        mov     ebx,dword[edi+SKIN_BUTTONS.left-2]
        mov     bx,[edi+SKIN_BUTTONS.width]
        mov     ecx,dword[edi+SKIN_BUTTONS.top-2]
        mov     cx,[edi+SKIN_BUTTONS.height]
        add     ebx,(wnd4.x+wnd4.width)*65536
        add     ecx,wnd4.y*65536
        dec     ebx
        dec     ecx
        mcall   8,,,0x40000000
        add     edi,12
        jmp     .lp1
  .lp2:
 
        mov     edi,[ebp+SKIN_HEADER.params]
        add     edi,ebp
        mpack   ebx,wnd4.x+10,wnd4.y+10
        add     bx,word[edi+SKIN_PARAMS.skin_height]
        mcall   4,,[dtp.work_text],window_text,window_text.size
 
        mov     ecx,[edi+SKIN_PARAMS.skin_height]
        shl     ecx,16
        add     ecx,(wnd4.y+8)*65536+10
        mcall   13,
                   (wnd4.x+window_text.size*6+20)>,,[dtp.work_graph]
 
        add     ecx,25*65536+8
        mcall   8,
                  button_text.size*6+11>,,0,[dtp.work_button]
 
        shr     ecx,16
        mov     bx,cx
        add     ebx,0x00060006
        mcall   4,,[dtp.work_button_text],button_text,button_text.size
 
        ret
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,1                     ; 1, start of draw
    mcall
 
    mov  eax,48
    mov  ebx,3
    mov  ecx,app_colours
    mov  edx,10*4
    mcall
 
    mov  eax,14
    mcall
 
                                      ; DRAW WINDOW
    mov  eax,0                     ; function 0 : define and draw window
    mov  ebx,110*65536+555         ; [x start] *65536 + [x size]
    mov  ecx,50*65536+255          ; [y start] *65536 + [y size]
    mov  edx,[w_work]              ; color of work area RRGGBB,8->color
    or   edx,0x13000000
    mov  edi,title                ; WINDOW LABEL
    mcall
 
if lang eq ru
  load_w  = (5*2+6*9)
  save_w  = (5*2+6*9)
  flat_w  = (5*2+6*7)
  apply_w = (5*2+6*9)
else
  load_w  = (5*2+6*6)
  save_w  = (5*2+6*6)
  flat_w  = (5*2+6*4)
  apply_w = (5*2+6*7)
end if
 
    mov  eax,8                    ; FILENAME BUTTON
    mov  ebx,5*65536+545
    mov  ecx,212*65536+10
    mov  edx,0x4000000B
    mov  esi,[w_grab_button]       ; button color RRGGBB
    mcall
 
;   mov  eax,8                    ; LOAD BUTTON
    mov  ebx,15*65536+load_w
    mov  ecx,(30+18*11)*65536+14
    mov  edx,12
    mov  esi,[w_work_button]
    mcall
 
;   mov  eax,8                    ; SAVE BUTTON
    add  ebx,(load_w+2)*65536-load_w+save_w
    inc  edx
    mcall
 
;   mov  eax,8                    ; 3D
;   mov  ebx,15*65536+35
;   mov  ecx,(30+18*12)*65536+14
    mov  ebx,(340-t1.size*6-13)*65536+(5*2+6*4)
    inc  edx
    mcall
 
;   mov  eax,8                    ; FLAT
    add  ebx,(5*2+6*4+2)*65536-(5*2+6*4)+flat_w
    inc  edx
    mcall
 
;   mov  eax,8                    ; APPLY BUTTON
    add  ebx,(flat_w+6+2)*65536-flat_w+apply_w
    inc  edx
    mcall
 
;   mov  eax,8                    ; LOAD SKIN BUTTON
    mov  ebx,(336+(555-335)/2-t2.size*6/2)*65536+load_w
    inc  edx
    mcall
 
;   mov  eax,8                    ; APPLY SKIN BUTTON
    add  ebx,(load_w+6+2)*65536-load_w+apply_w
    inc  edx
    mcall
 
    mov  eax, 4
    mov  ebx, (339-t1.size*6-12)*65536+(30+18*11+4)
    mov  ecx, [w_work_button_text]
    mov  edx, t1
    mov  esi, t1.size
    mcall
 
    mov  ebx,(336+(555-335)/2-t2.size*6/2)*65536+(30+18*11+4)
    mov  edx,t2
    mov  esi,t2.size
    mcall
 
;   mov  eax, 4
;    mov  ebx, 277*65536+(30+18*12+4)
;    mov  edx, t2
;    mov  esi, t2.size
;    mcall
 
    mov  eax,38                    ; R G B COLOR GLIDES
    mov  ebx,266*65536+285
    mov  ecx,30*65536+30
    mov  edx,0xff0000
  .newl:
    mcall
    pusha
    add  ebx,20*65536+20
    shr  edx,8
    mcall
    add  ebx,20*65536+20
    shr  edx,8
    mcall
    popa
    sub  edx,0x020000
    add  ecx,0x00010001
    cmp  ecx,158*65536+158
    jnz  .newl
 
    call draw_color
 
    mov  edx,31                    ; BUTTON ROW
    mov  ebx,15*65536+200
    mov  ecx,30*65536+14
    mov  esi,[w_work_button]
  newb:
    mov  eax,8
    mcall
    add  ecx,18*65536
    inc  edx
    cmp  edx,40
    jbe  newb
 
    mov  ebx,15*65536+34           ; ROW OF TEXTS
    mov  ecx,[w_work_button_text]
    mov  edx,text
    mov  esi,32
  newline:
    mov  eax,4
    mcall
    add  ebx,18
    add  edx,32
    cmp  [edx],byte 'x'
    jne  newline
 
    call draw_colours
 
    mcall 13,<5,546>,<212,11>,[w_work]
    mcall 13,<337,7>,<2,250>,[w_frame]
    shr   edx,1
    and   edx,0x007F7F7F
    mcall 38,<336,336>,<20,250>
    add   ebx,0x00080008
    mcall
    sub   ebx,0x00040004
    mcall ,,<0,255>
    mcall ,<5,550>,<211,211>
    add   ecx,0x000C000C
    mcall
 
    call print_text
 
    cmp  dword[0x18000+SKIN_HEADER.ident],'SKIN'
    jne  @f
    call draw_skin
  @@:
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,2                     ; 2, end of draw
    mcall
 
    ret
 
 
; DATA AREA
 
lsz text,\
    ru,  '                       ',\
    ru,  '                 ',\
    ru,  '         ',\
    ru,  '        ',\
    ru,  '                 ',\
    ru,  '                  ',\
    ru,  '           ',\
    ru,  '                   ',\
    ru,  '            ',\
    ru,  '          ',\
    ru,  '                                ',\
    ru,  '              ',\
    ru,  'x',\
    en,  ' WINDOW FRAME                   ',\
    en,  ' WINDOW GRAB BAR                ',\
    en,  ' WINDOW GRAB BUTTON             ',\
    en,  ' WINDOW GRAB BUTTON TEXT        ',\
    en,  ' WINDOW GRAB TITLE              ',\
    en,  ' WINDOW WORK AREA               ',\
    en,  ' WINDOW WORK AREA BUTTON        ',\
    en,  ' WINDOW WORK AREA BUTTON TEXT   ',\
    en,  ' WINDOW WORK AREA TEXT          ',\
    en,  ' WINDOW WORK AREA GRAPH         ',\
    en,  '                                ',\
    en,  '  LOAD    SAVE                  ',\
    en,  'x',\
    et,  ' AKNA RAAM                      ',\
    et,  ' AKNA HAARAMISE RIBA            ',\
    et,  ' AKNA HAARAMISE NUPP            ',\
    et,  ' AKNA HAARAMISE NUPU TEKST      ',\
    et,  ' AKNA HAARAMISE PEALKIRI        ',\
    et,  ' AKNA TÖÖPIIRKOND               ',\
    et,  ' AKNA TÖÖPIIRKONNA NUPP         ',\
    et,  ' AKNA TÖÖPIIRKONNA NUPPU TEKST  ',\
    et,  ' AKNA TÖÖPIIRKONNA TEKST        ',\
    et,  ' AKNA TÖÖPIIRKONNA GRAAFIKA     ',\
    et,  '                                ',\
    et,  '  LAADI SALVESTA                ',\
    et,  'x'
 
lsz t1,\
    ru, '  3D       ',\
    en, '  3D   FLAT    APPLY  ',\
    et, '  3D   LAME   KINNITA '
 
lsz t2,\
    ru,  '     ',\
    en,  '  LOAD     APPLY  ',\
    et,  '  LAADI   KINNITA '
 
lsz caption_text,\
    ru, ' £®«®¢®ª',\
    en, 'Caption',\
    et, 'Pealkiri'
 
sz  close_text,'x'
 
lsz window_text,\
    ru, '¥ªáâ ¢ ®ª­¥',\
    en, 'Window text',\
    et, 'Akna tekst'
 
lsz button_text,\
    ru, '¥ªáâ ­  ª­®¯ª¥',\
    en, 'Button text',\
    et, 'Nupu tekst'
 
sz  default_skn, '/RD/1/DEFAULT.SKN',0
 
if lang eq ru
  title db ' ',0
else if lang eq et
  title db 'AKNA SEADED - VALI VÄRV JA VAJUTA OBJEKTILE',0
else
  title db 'WINDOWS SETTINGS - DEFINE COLOR AND CLICK ON TARGET',0
end if
 
 
color dd  0
 
IncludeIGlobals
 
I_END:
 
IncludeUGlobals
 
read_info:
  .mode         dd ?            ; read
  .start_block  dd ?            ; first block
  .blocks       dd ?            ; 512 bytes
  .address      dd ?
  .workarea     dd ?
fname rb 256+1            ; filename (+1 - for zero at the end)
 
virtual at read_info
 write_info:
  .mode         dd ?
  rd 1
  .bytes2write  dd ?
  .address      dd ?
  .workarea     dd ?
end virtual
 
skin_info:
 
 
 
 
 
  .fname rb 256+1
 
app_colours:
 
w_frame              dd ?
w_grab               dd ?
w_grab_button        dd ?
w_grab_button_text   dd ?
w_grab_text          dd ?
w_work               dd ?
w_work_button        dd ?
w_work_button_text   dd ?
w_work_text          dd ?
w_work_graph         dd ?
 
color_table:
  times 10 dd ?
>
>

Rev 485	Rev 524
1	;	1	;
2	; UNIFORM WINDOW COLOURS & SKIN	2	; UNIFORM WINDOW COLOURS & SKIN
3	;	3	;
4	; Compile with FASM for Menuet	4	; Compile with FASM for Menuet
5	;	5	;
6	; < russian edition by Ivan Poddubny >	6	; < russian edition by Ivan Poddubny >
7	; < skin selection by Mike Semenyako >	7	; < skin selection by Mike Semenyako >
8	;	8	;
9		9
10	;******************************************************************************	10	;******************************************************************************
11	use32	11	use32
12	org 0	12	org 0
13	db 'MENUET01' ; identifier	13	db 'MENUET01' ; identifier
14	dd 1 ; header version	14	dd 1 ; header version
15	dd START ; start address	15	dd START ; start address
16	dd I_END ; file size	16	dd I_END ; file size
17	dd 28000h ; memory	17	dd 28000h ; memory
18	dd 10000h ; stack pointer	18	dd 10000h ; stack pointer
19	dd 0,0 ; parameters, reserved	19	dd 0,0 ; parameters, reserved
20		20
21	include 'lang.inc'	21	include 'lang.inc'
22	include '..\..\..\macros.inc'	22	include '..\..\macros.inc'
23	include 'kglobals.inc'	23	include 'kglobals.inc'
24	include 'unpacker.inc'	24	include 'unpacker.inc'
25	;******************************************************************************	25	;******************************************************************************
26		26
27		27
28	struct SKIN_HEADER	28	struct SKIN_HEADER
29	ident dd ?	29	ident dd ?
30	version dd ?	30	version dd ?
31	params dd ?	31	params dd ?
32	buttons dd ?	32	buttons dd ?
33	bitmaps dd ?	33	bitmaps dd ?
34	ends	34	ends
35		35
36	struct SKIN_PARAMS	36	struct SKIN_PARAMS
37	skin_height dd ?	37	skin_height dd ?
38	margin.right dw ?	38	margin.right dw ?
39	margin.left dw ?	39	margin.left dw ?
40	margin.bottom dw ?	40	margin.bottom dw ?
41	margin.top dw ?	41	margin.top dw ?
42	colors.inner dd ?	42	colors.inner dd ?
43	colors.outer dd ?	43	colors.outer dd ?
44	colors.frame dd ?	44	colors.frame dd ?
45	colors_1.inner dd ?	45	colors_1.inner dd ?
46	colors_1.outer dd ?	46	colors_1.outer dd ?
47	colors_1.frame dd ?	47	colors_1.frame dd ?
48	dtp.size dd ?	48	dtp.size dd ?
49	dtp.data db 40 dup (?)	49	dtp.data db 40 dup (?)
50	ends	50	ends
51		51
52	struct SKIN_BUTTONS	52	struct SKIN_BUTTONS
53	type dd ?	53	type dd ?
54	pos:	54	pos:
55	left dw ?	55	left dw ?
56	top dw ?	56	top dw ?
57	size:	57	size:
58	width dw ?	58	width dw ?
59	height dw ?	59	height dw ?
60	ends	60	ends
61		61
62	struct SKIN_BITMAPS	62	struct SKIN_BITMAPS
63	kind dw ?	63	kind dw ?
64	type dw ?	64	type dw ?
65	_data dd ?	65	_data dd ?
66	ends	66	ends
67		67
68		68
69	START: ; start of execution	69	START: ; start of execution
70		70
71	mov eax,48 ; get current colors	71	mov eax,48 ; get current colors
72	mov ebx,3	72	mov ebx,3
73	mov ecx,color_table	73	mov ecx,color_table
74	mov edx,4*10	74	mov edx,4*10
75	mcall	75	mcall
76		76
77	cld	77	cld
78	mov esi,default_skn	78	mov esi,default_skn
79	mov edi,fname	79	mov edi,fname
80	mov ecx,default_skn.size	80	mov ecx,default_skn.size
81	rep movsb	81	rep movsb
82	mov [skin_info.fname],0	-
83	mov [skin_info.workarea],0x10000	-
84	call load_skin_file	82	call load_skin_file
85		83
86	; mov esi, default_dtp	84	; mov esi, default_dtp
87	; mov edi, fname	85	; mov edi, fname
88	; mov ecx, default_dtp.size	86	; mov ecx, default_dtp.size
89	; rep movsb	87	; rep movsb
90		88
91	red:	89	red:
92	call draw_window ; at first, draw the window	90	call draw_window ; at first, draw the window
93		91
94	still:	92	still:
95		93
96	mov eax,23 ; wait here for event	94	mov eax,23 ; wait here for event
97	mov ebx,5	95	mov ebx,5
98	mcall	96	mcall
99		97
100	dec eax ; redraw request ?	98	dec eax ; redraw request ?
101	jz red	99	jz red
102	dec eax ; key in buffer ?	100	dec eax ; key in buffer ?
103	jz key	101	jz key
104	dec eax ; button in buffer ?	102	dec eax ; button in buffer ?
105	jz button	103	jz button
106		104
107	call draw_cursor	105	call draw_cursor
108		106
109	jmp still	107	jmp still
110		108
111		109
112	key: ; key	110	key: ; key
113	mov al,2 ; just read it and ignore	111	mov al,2 ; just read it and ignore
114	mcall	112	mcall
115	jmp still	113	jmp still
116		114
117	button: ; button	115	button: ; button
118	mov al,17 ; get id	116	mov al,17 ; get id
119	mcall	117	mcall
120		118
121	cmp ah,11 ; read string	119	cmp ah,11 ; read string
122	jne no_string	120	jne no_string
123	call read_string	121	call read_string
124	jmp still	122	jmp still
125	no_string:	123	no_string:
126		124
127	cmp ah,12 ; load file	125	cmp ah,12 ; load file
128	jne no_load	126	jne no_load
129	call load_file	127	call load_file
130	call draw_window	128	call draw_window
131	jmp still	129	jmp still
132	no_load:	130	no_load:
133		131
134	cmp ah,13 ; save file	132	cmp ah,13 ; save file
135	jne no_save	133	jne no_save
136	call save_file	134	call save_file
137	jmp still	135	jmp still
138	no_save:	136	no_save:
139		137
140	cmp ah,14 ; set 3d buttons	138	cmp ah,14 ; set 3d buttons
141	jne no_3d	139	jne no_3d
142	mov eax,48	140	mov eax,48
143	mov ebx,1	141	mov ebx,1
144	mov ecx,1	142	mov ecx,1
145	mcall	143	mcall
146	jmp doapply	144	jmp doapply
147	no_3d:	145	no_3d:
148		146
149	cmp ah,15 ; set flat buttons	147	cmp ah,15 ; set flat buttons
150	jne no_flat	148	jne no_flat
151	mcall 48, 1, 0	149	mcall 48, 1, 0
152	doapply:	150	doapply:
153	mcall 48, 0, 0	151	mcall 48, 0, 0
154	jmp still	152	jmp still
155	no_flat:	153	no_flat:
156		154
157	cmp ah,16 ; apply	155	cmp ah,16 ; apply
158	jne no_apply	156	jne no_apply
159	apply_direct:	157	apply_direct:
160	mov eax,48	158	mov eax,48
161	mov ebx,2	159	mov ebx,2
162	mov ecx,color_table	160	mov ecx,color_table
163	mov edx,10*4	161	mov edx,10*4
164	mcall	162	mcall
165	jmp doapply	163	jmp doapply
166	no_apply:	164	no_apply:
167		165
168	cmp ah,17 ; load skin file	166	cmp ah,17 ; load skin file
169	jne no_load_skin	167	jne no_load_skin
170	call load_skin_file	168	call load_skin_file
171	call draw_window	169	call draw_window
172	jmp still	170	jmp still
173	no_load_skin:	171	no_load_skin:
174		172
175	cmp ah,18 ; apply skin	173	cmp ah,18 ; apply skin
176	jne no_apply_skin	174	jne no_apply_skin
177	cmp [skin_info.fname],0	175	cmp [skin_info.fname],0
178	je no_apply_skin	176	je no_apply_skin
179	mcall 48,8,skin_info	177	mcall 48,8,skin_info.fname
180	call draw_window	178	call draw_window
181	jmp still	179	jmp still
182	no_apply_skin:	180	no_apply_skin:
183		181
184	cmp ah,31	182	cmp ah,31
185	jb no_new_colour	183	jb no_new_colour
186	cmp ah,41	184	cmp ah,41
187	jg no_new_colour	185	jg no_new_colour
188	shr eax,8	186	shr eax,8
189	sub eax,31	187	sub eax,31
190	shl eax,2	188	shl eax,2
191	mov ebx,[color]	189	mov ebx,[color]
192	mov [eax+color_table],ebx	190	mov [eax+color_table],ebx
193	cmp dword[0x18000+SKIN_HEADER.ident],'SKIN'	191	cmp dword[0x18000+SKIN_HEADER.ident],'SKIN'
194	jne @f	192	jne @f
195	mov edi,[0x18000+SKIN_HEADER.params]	193	mov edi,[0x18000+SKIN_HEADER.params]
196	mov dword[edi+0x18000+SKIN_PARAMS.dtp.data+eax],ebx	194	mov dword[edi+0x18000+SKIN_PARAMS.dtp.data+eax],ebx
197	call draw_skin	195	call draw_skin
198	@@: call draw_colours	196	@@: call draw_colours
199	jmp still	197	jmp still
200	no_new_colour:	198	no_new_colour:
201		199
202	cmp ah,1 ; terminate	200	cmp ah,1 ; terminate
203	jnz noid1	201	jnz noid1
204	or eax,-1	202	or eax,-1
205	mcall	203	mcall
206	noid1:	204	noid1:
207		205
208	jmp still	206	jmp still
209		207
210		208
211	draw_cursor:	209	draw_cursor:
212		210
213	pusha	211	pusha
214	mov eax,37	212	mov eax,37
215	mov ebx,2	213	mov ebx,2
216	mcall	214	mcall
217		215
218	cmp eax,0	216	cmp eax,0
219	jne dc1	217	jne dc1
220	popa	218	popa
221	ret	219	ret
222		220
223	dc1:	221	dc1:
224		222
225	mov eax,37	223	mov eax,37
226	mov ebx,1	224	mov ebx,1
227	mcall	225	mcall
228		226
229	mov ebx,eax	227	mov ebx,eax
230	shr ebx,16	228	shr ebx,16
231	mov ecx,eax	229	mov ecx,eax
232	and ecx,0xffff	230	and ecx,0xffff
233		231
234	cmp ecx,32	232	cmp ecx,32
235	jbe no_color	233	jbe no_color
236	cmp ebx,32	234	cmp ebx,32
237	jbe no_color	235	jbe no_color
238		236
239	cmp ebx,266 ; CHANGE COLOR	237	cmp ebx,266 ; CHANGE COLOR
240	jb no_color	238	jb no_color
241	cmp ebx,266+20*3	239	cmp ebx,266+20*3
242	jg no_color	240	jg no_color
243		241
244	cmp ecx,30+128	242	cmp ecx,30+128
245	jge no_color	243	jge no_color
246	cmp ecx,30	244	cmp ecx,30
247	jb no_color	245	jb no_color
248		246
249	sub ebx,266	247	sub ebx,266
250	mov eax,ebx	248	mov eax,ebx
251	cdq	249	cdq
252	mov ebx,20	250	mov ebx,20
253	div ebx	251	div ebx
254	mov ebx,2	252	mov ebx,2
255	sub ebx,eax	253	sub ebx,eax
256		254
257	add ecx,-30	255	add ecx,-30
258	not ecx	256	not ecx
259	shl ecx,1	257	shl ecx,1
260		258
261	mov byte [ebx+color],cl	259	mov byte [ebx+color],cl
262	call draw_color	260	call draw_color
263		261
264	popa	262	popa
265	ret	263	ret
266		264
267	no_color:	265	no_color:
268		266
269	popa	267	popa
270	ret	268	ret
271		269
272		270
273	load_file:	271	load_file:
274	xor eax, eax	272	xor eax, eax
275	mov ebx, read_info	273	mov ebx, read_info
276	mov dword [ebx], eax ; subfunction: read	274	mov dword [ebx], eax ; subfunction: read
277	mov dword [ebx+4], eax ; offset (low dword)	275	mov dword [ebx+4], eax ; offset (low dword)
278	mov dword [ebx+8], eax ; offset (high dword)	276	mov dword [ebx+8], eax ; offset (high dword)
279	mov dword [ebx+12], 40 ; read colors file: 4*10 bytes	277	mov dword [ebx+12], 40 ; read colors file: 4*10 bytes
280	mov dword [ebx+16], color_table ; address	278	mov dword [ebx+16], color_table ; address
281	mcall 70	279	mcall 70
282	ret	280	ret
283		281
284	load_skin_file:	282	load_skin_file:
285	xor eax, eax	283	xor eax, eax
286	mov ebx, read_info	284	mov ebx, read_info
287	mov dword [ebx], eax ; subfunction: read	285	mov dword [ebx], eax ; subfunction: read
288	mov dword [ebx+4], eax ; offset (low dword)	286	mov dword [ebx+4], eax ; offset (low dword)
289	mov dword [ebx+8], eax ; offset (high dword)	287	mov dword [ebx+8], eax ; offset (high dword)
290	mov dword [ebx+12], 32*1024 ; read: max 32 KBytes	288	mov dword [ebx+12], 32*1024 ; read: max 32 KBytes
291	mov dword [ebx+16], 0x10000 ; address	289	mov dword [ebx+16], 0x10000 ; address
292	mcall 70	290	mcall 70
293		291
294	mov esi, 0x10000	292	mov esi, 0x10000
295		293
296	cmp dword [esi], 'KPCK'	294	cmp dword [esi], 'KPCK'
297	jnz notpacked	295	jnz notpacked
298	cmp dword [esi+4], 32*1024 ; max 32 KBytes	296	cmp dword [esi+4], 32*1024 ; max 32 KBytes
299	ja doret	297	ja doret
300	push 0x20000	298	push 0x20000
301	push esi	299	push esi
302	call unpack	300	call unpack
303	mov esi, 0x20000	301	mov esi, 0x20000
304	notpacked:	302	notpacked:
305		303
306	cmp dword[esi+SKIN_HEADER.ident],'SKIN'	304	cmp dword[esi+SKIN_HEADER.ident],'SKIN'
307	jne doret	305	jne doret
308		306
309	mov edi,0x18000	307	mov edi,0x18000
310	mov ecx,0x8000/4	308	mov ecx,0x8000/4
311	rep movsd	309	rep movsd
312		310
313	mov esi,fname	311	mov esi,fname
314	mov edi,skin_info.fname	312	mov edi,skin_info.fname
315	mov ecx,257	313	mov ecx,257
316	rep movsb	314	rep movsb
317		315
318	mov ebp,0x18000	316	mov ebp,0x18000
319	mov esi,[ebp+SKIN_HEADER.params]	317	mov esi,[ebp+SKIN_HEADER.params]
320	add esi,ebp	318	add esi,ebp
321	lea esi,[esi+SKIN_PARAMS.dtp.data]	319	lea esi,[esi+SKIN_PARAMS.dtp.data]
322	mov edi,color_table	320	mov edi,color_table
323	mov ecx,10	321	mov ecx,10
324	rep movsd	322	rep movsd
325	doret:	323	doret:
326		324
327	ret	325	ret
328		326
329		327
330	save_file:	328	save_file:
331	mov ebx, write_info	329	mov ebx, write_info
332	mov dword [ebx], 2 ; subfunction: write	330	mov dword [ebx], 2 ; subfunction: write
333	and dword [ebx+4], 0 ; (reserved)	331	and dword [ebx+4], 0 ; (reserved)
334	and dword [ebx+8], 0 ; (reserved)	332	and dword [ebx+8], 0 ; (reserved)
335	mov dword [ebx+12], 10*4 ; bytes to write	333	mov dword [ebx+12], 10*4 ; bytes to write
336	mov dword [ebx+16], color_table ; address	334	mov dword [ebx+16], color_table ; address
337	mcall 70	335	mcall 70
338	ret	336	ret
339		337
340	read_string:	338	read_string:
341		339
342	pusha	340	pusha
343		341
344	mov edi,fname	342	mov edi,fname
345	mov al,'_'	343	mov al,'_'
346	mov ecx,87	344	mov ecx,87
347	cld	345	cld
348	rep stosb	346	rep stosb
349		347
350	call print_text	348	call print_text
351		349
352	mov edi,fname	350	mov edi,fname
353		351
354	f11:	352	f11:
355	mov eax,10	353	mov eax,10
356	mcall	354	mcall
357	cmp eax,2	355	cmp eax,2
358	jne read_done	356	jne read_done
359	; mov eax,2	357	; mov eax,2
360	mcall	358	mcall
361	shr eax,8	359	shr eax,8
362	cmp eax,13	360	cmp eax,13
363	je read_done	361	je read_done
364	cmp eax,8	362	cmp eax,8
365	jne nobsl	363	jne nobsl
366	cmp edi,fname	364	cmp edi,fname
367	je f11	365	je f11
368	dec edi	366	dec edi
369	mov [edi],byte '_'	367	mov [edi],byte '_'
370	call print_text	368	call print_text
371	jmp f11	369	jmp f11
372	nobsl:	370	nobsl:
373	mov [edi],al	371	mov [edi],al
374		372
375	call print_text	373	call print_text
376		374
377	inc edi	375	inc edi
378	cmp edi, fname+87	376	cmp edi, fname+87
379	jne f11	377	jne f11
380		378
381	read_done:	379	read_done:
382		380
383	mov ecx, fname+88	381	mov ecx, fname+88
384	sub ecx, edi	382	sub ecx, edi
385	mov eax, 0	383	mov eax, 0
386	cld	384	cld
387	rep stosb	385	rep stosb
388		386
389	call print_text	387	call print_text
390		388
391	popa	389	popa
392		390
393	ret	391	ret
394		392
395		393
396	print_text:	394	print_text:
397	pushad	395	pushad
398		396
399	mpack ebx,15,6*87+4	397	mpack ebx,15,6*87+4
400	mpack ecx,(30+18*10+2),11	398	mpack ecx,(30+18*10+2),11
401	mcall 13,,,[w_work]	399	mcall 13,,,[w_work]
402		400
403	mpack ebx,17,(30+18*10+4)	401	mpack ebx,17,(30+18*10+4)
404	mcall 4,,[w_work_text],fname,87	402	mcall 4,,[w_work_text],fname,87
405		403
406	popad	404	popad
407	ret	405	ret
408		406
409		407
410	draw_color:	408	draw_color:
411		409
412	pusha	410	pusha
413		411
414	mov eax,13	412	mov eax,13
415	mov ebx,266*65536+60	413	mov ebx,266*65536+60
416	mov ecx,170*65536+30	414	mov ecx,170*65536+30
417	mov edx,[color]	415	mov edx,[color]
418	mcall	416	mcall
419		417
420	; mov eax,13	418	; mov eax,13
421	mov ebx,266*65536+60	419	mov ebx,266*65536+60
422	mov ecx,200*65536+10	420	mov ecx,200*65536+10
423	mov edx,[w_work]	421	mov edx,[w_work]
424	mcall	422	mcall
425		423
426	mov eax,47	424	mov eax,47
427	mov ebx,0+1256+865536	425	mov ebx,0+1256+865536
428	mov ecx,[color]	426	mov ecx,[color]
429	mov edx,272*65536+201	427	mov edx,272*65536+201
430	mov esi,[w_work_text]	428	mov esi,[w_work_text]
431	mcall	429	mcall
432		430
433	popa	431	popa
434		432
435	ret	433	ret
436		434
437		435
438	draw_colours:	436	draw_colours:
439		437
440	pusha	438	pusha
441		439
442	mov esi,color_table	440	mov esi,color_table
443		441
444	mov ebx,225*65536+32	442	mov ebx,225*65536+32
445	mov ecx,32*65536+12	443	mov ecx,32*65536+12
446	newcol:	444	newcol:
447	mov eax,13	445	mov eax,13
448	mov edx,[esi]	446	mov edx,[esi]
449	mcall	447	mcall
450	add ecx,18*65536	448	add ecx,18*65536
451	add esi,4	449	add esi,4
452	cmp esi,color_table+4*9	450	cmp esi,color_table+4*9
453	jbe newcol	451	jbe newcol
454		452
455	popa	453	popa
456		454
457	ret	455	ret
458		456
459		457
460	draw_framerect: ; ebx,ecx	458	draw_framerect: ; ebx,ecx
461	push ebx ecx	459	push ebx ecx
462	add bx,[esp+6]	460	add bx,[esp+6]
463	mov cx,[esp+2]	461	mov cx,[esp+2]
464	dec ebx	462	dec ebx
465	mcall 38	463	mcall 38
466	add cx,[esp]	464	add cx,[esp]
467	rol ecx,16	465	rol ecx,16
468	add cx,[esp]	466	add cx,[esp]
469	sub ecx,0x00010001	467	sub ecx,0x00010001
470	mcall	468	mcall
471	mov ebx,[esp+4]	469	mov ebx,[esp+4]
472	mov ecx,[esp]	470	mov ecx,[esp]
473	mov bx,[esp+6]	471	mov bx,[esp+6]
474	add cx,[esp+2]	472	add cx,[esp+2]
475	dec ecx	473	dec ecx
476	mcall	474	mcall
477	add bx,[esp+4]	475	add bx,[esp+4]
478	rol ebx,16	476	rol ebx,16
479	add bx,[esp+4]	477	add bx,[esp+4]
480	sub ebx,0x00010001	478	sub ebx,0x00010001
481	mcall	479	mcall
482	add esp,8	480	add esp,8
483	ret	481	ret
484		482
485	find_bitmap:	483	find_bitmap:
486	mov edi,[ebp+SKIN_HEADER.bitmaps]	484	mov edi,[ebp+SKIN_HEADER.bitmaps]
487	add edi,ebp	485	add edi,ebp
488	xor ebx,ebx	486	xor ebx,ebx
489	.lp1: cmp dword[edi],0	487	.lp1: cmp dword[edi],0
490	je .lp2	488	je .lp2
491	cmp dword[edi+0],eax	489	cmp dword[edi+0],eax
492	jne @f	490	jne @f
493	mov ebx,[edi+SKIN_BITMAPS._data]	491	mov ebx,[edi+SKIN_BITMAPS._data]
494	add ebx,ebp	492	add ebx,ebp
495	mov ecx,[ebx-2]	493	mov ecx,[ebx-2]
496	mov cx,[ebx+4]	494	mov cx,[ebx+4]
497	add ebx,8	495	add ebx,8
498	.lp2: ret	496	.lp2: ret
499	@@: add edi,8	497	@@: add edi,8
500	jmp .lp1	498	jmp .lp1

Subversion Repositories Kolibri OS

(root)/programs/system/desktop/trunk/desktop.asm – Rev 485 → 524