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

Subversion Repositories Kolibri OS

(root)/programs/system/desktop/trunk/desktop.asm @ 551 – Rev 529 → 551