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 >
;
; last update:  10/09/2010
; written by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      select path with OpenDialog
;******************************************************************************
   use32
   org     0
   db      'MENUET01'  ; identifier
   dd      1           ; header version
   dd      START       ; start address
   dd      I_END       ; file size
   dd      i_end ;28000h      ; memory
   dd      stacktop    ; stack pointer
   dd      skin_info       ; parameters
   dd      cur_dir_path ; path to file
   
include 'lang.inc'
include '../../../config.inc'		;for nightbuild
include '../../../macros.inc'
include 'kglobals.inc'
include 'unpacker.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
	@use_library
;******************************************************************************
 
 
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
;---------------------------------------------------------------------
	mcall	68,11
	
	test	eax,eax
	jz	close	
 
load_libraries l_libs_start,end_l_libs
 
;if return code =-1 then exit, else nornary work
;        cmp     eax,-1
	inc	eax
	test	eax,eax
	jz	close
 
;---------------------------------------------------------------------
	mov	edi,filename_area
	mov	esi,start_temp_file_name
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
 
 
	mov	edi,fname
	mov	esi,default_dtp
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
 
;---------------------------------------------------------------------
;        mov     esi, param
;        cmp     byte [esi], 0
;		je	@f
;        jnz     has_param
;    mov  esi,default_skn
;    mov  edi,fname
;    mov  ecx,default_skn.size
;    rep  movsb
;    jmp  skin_path_ready
;has_param:
;        mov     ecx, 256/4
;        mov     edi, fname
;        rep     movsd
;		skin_path_ready
;---------------------------------------------------------------------
	mov	edi,skin_info
	cmp     byte [edi], 0
	jne	skin_path_ready
	mov	esi,default_skin
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
skin_path_ready:	
;---------------------------------------------------------------------
;OpenDialog	initialisation
	push    dword OpenDialog_data
	call    [OpenDialog_Init]
 
	push    dword OpenDialog_data2
	call    [OpenDialog_Init]
	
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
	
	push	dword PathShow_data_2
	call	[PathShow_prepare]
;---------------------------------------------------------------------	
    mov  eax,48                 ; get current colors
    mov  ebx,3
    mov  ecx,color_table
    mov  edx,4*10
    mcall
 
    call load_skin_file.2
 
;    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],0
    je    no_apply_skin
    mcall 48,8,skin_info
    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[not_packed_area+SKIN_HEADER.ident],'SKIN'
    jne  @f
    mov  edi,[not_packed_area+SKIN_HEADER.params]
    mov  dword[edi+not_packed_area+SKIN_PARAMS.dtp.data+eax],ebx
    call draw_skin
@@: call draw_colours
    jmp  still
  no_new_colour:
 
    cmp  ah,1                   ; terminate
    jnz  noid1
close:
    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:
;---------------------------------------------------------------------
; invoke OpenDialog
	mov	[OpenDialog_data.type],dword 0
	push    dword OpenDialog_data
	call    [OpenDialog_Start]
	cmp	[OpenDialog_data.status],1
	je	.1
	ret
.1:
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
 
	call	draw_PathShow
;---------------------------------------------------------------------
        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:
;---------------------------------------------------------------------
; invoke OpenDialog
	push    dword OpenDialog_data2
	call    [OpenDialog_Start]
	cmp	[OpenDialog_data2.status],1
	je	.1
	ret
.1:
; prepare for PathShow
	push	dword PathShow_data_2
	call	[PathShow_prepare]
 
	call	draw_PathShow
;---------------------------------------------------------------------
.2:
        xor     eax, eax
        mov     ebx, read_info2
        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], file_load_area ; address
        mcall   70
 
        mov     esi, file_load_area
 
        cmp     dword [esi], 'KPCK'
        jnz     notpacked
        cmp     dword [esi+4], 32*1024 ; max 32 KBytes
        ja      doret
        push    unpack_area
        push    esi
        call    unpack
        mov     esi, unpack_area
notpacked:
 
    cmp   dword[esi+SKIN_HEADER.ident],'SKIN'
    jne   doret
 
    mov   edi,not_packed_area
    mov   ecx,0x8000/4
    rep   movsd
 
;    mov   esi,fname
;    mov   edi,skin_info.fname
;    mov   ecx,257
;    rep   movsb
 
    mov   ebp,not_packed_area
    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:
;---------------------------------------------------------------------
; invoke OpenDialog
	mov	[OpenDialog_data.type],dword 1
	push    dword OpenDialog_data
	call    [OpenDialog_Start]
	cmp	[OpenDialog_data.status],1
	je	.1
	ret
.1:
; prepare for PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
 
	call	draw_PathShow
;---------------------------------------------------------------------
        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
;---------------------------------------------------------------------
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
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,not_packed_area
        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,not_packed_area
        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,not_packed_area
        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
;---------------------------------------------------------------------
draw_PathShow:
	pusha
	mcall	13,<10,534>,<214,15>,0xffffff
	mcall	13,<10,534>,<232,15>,0xffffff
; draw for PathShow
	push	dword PathShow_data_1
	call	[PathShow_draw]
	
	push	dword PathShow_data_2
	call	[PathShow_draw]
	popa
	ret
;---------------------------------------------------------------------
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
 
 
 
	mcall	12,1
 
 
 
	mcall	48,3,app_colours,10*4
 
	mcall	14
 
 
 
 
; DRAW WINDOW
	xor	eax,eax		; function 0 : define and draw window
	xor	esi,esi
 
	mov	edx,[w_work]	; color of work area RRGGBB,8->color
	or	edx,0x14000000
	mcall	,<110,555>,<50,275>,,,title
 
	mcall	9,procinfo,-1
	
	mov	eax,[procinfo+70] ;status of window
	test	eax,100b
	jne	.end
    
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*8)
  flat_w  = (5*2+6*4)
  apply_w = (5*2+6*7)
end if
 
 
 
 
 
 
 
 
; LOAD BUTTON
;	mov  ebx,15*65536+load_w
 
;	mov  ecx,(35+18*12)*65536+14
	mcall	8,<15,load_w>,<35+18*12,14>,12,[w_work_button]
 
 
; SAVE BUTTON
	add	ebx,(load_w+2)*65536-load_w+save_w
	inc	edx
	mcall
; 3D
 
 
 
	mov	ebx,(340-t1.size*6-13)*65536+(5*2+6*4)
	inc	edx
	mcall
; FLAT
 
	add	ebx,(5*2+6*4+2)*65536-(5*2+6*4)+flat_w
	inc	edx
	mcall
 
; APPLY BUTTON
	add	ebx,(flat_w+6+2)*65536-flat_w+apply_w
	inc	edx
	mcall
 
; LOAD SKIN BUTTON
	mov	ebx,(336+(555-335)/2-t2.size*6/2)*65536+load_w
	inc	edx
	mcall
 
; APPLY SKIN BUTTON
	add	ebx,(load_w+6+2)*65536-load_w+apply_w
	inc	edx
	mcall
 
	
	mov	ebx,(339-t1.size*6-12)*65536+(35+18*12+4)
 
 
 
	mcall	4,,[w_work_button_text],t1,t1.size
 
	
 
	mov	ebx,(336+(555-335)/2-t2.size*6/2)*65536+(35+18*12+4)
 
	mcall	,,,t2,t2.size
 
 
 
 
 
 
 
	
	mov	ebx,(15+(load_w+save_w+2-t3.size*6)/2)*65536+(35+18*12+4)
	mcall	,,,t3,t3.size
	
	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]
 
	mov	eax,8
;-----------------------------------
.newb:
	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
 
	mov	eax,4
;-----------------------------------
.newline:
	mcall
	add	ebx,18
	add	edx,32
	cmp	[edx],byte 'x'
	jne	.newline
 
;-----------------------------------
	call	draw_colours
 
	call	draw_PathShow	
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
	cmp	dword[not_packed_area+SKIN_HEADER.ident],'SKIN'
	jne	@f
	call	draw_skin
@@:
.end:
 
 
	mcall	12,2
 
	ret
 
 
;---------------------------------------------------------------------
; DATA AREA
 
;---------------------------------------------------------------------
lsz text,\
    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,  '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,  'x'
 
lsz t1,\
    ru, '  3D       ',\
    en, '  3D   FLAT    APPLY  ',\
    et, '  3D   LAME   KINNITA '
 
lsz t2,\
    ru,  '     ',\
    en,  '  LOAD     APPLY  ',\
    et,  '  LAADI   KINNITA '
 
lsz t3,\
    ru,  '    ',\
    en,  '  LOAD     SAVE  ',\
    et,  ' LAADI  SALVESTA',\
 
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
 
;---------------------------------------------------------------------
l_libs_start:
 
library01  l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i
 
library02  l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
 
end_l_libs:
;---------------------------------------------------------------------
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
 
head_f_i:
head_f_l	db 'System error',0
 
err_message_found_lib1	db 'box_lib.obj - Not found!',0
err_message_found_lib2	db 'proc_lib.obj - Not found!',0
 
err_message_import1	db 'box_lib.obj - Wrong import!',0
err_message_import2	db 'proc_lib.obj - Wrong import!',0
 
;---------------------------------------------------------------------
align 4
ProcLib_import:
OpenDialog_Init		dd aOpenDialog_Init
OpenDialog_Start	dd aOpenDialog_Start
;OpenDialog__Version	dd aOpenDialog_Version
        dd      0
        dd      0
aOpenDialog_Init	db 'OpenDialog_init',0
aOpenDialog_Start	db 'OpenDialog_start',0
;aOpenDialog_Version	db 'Version_OpenDialog',0
;---------------------------------------------------------------------
align 4
Box_lib_import:	
;init_lib		dd a_init
;version_lib		dd a_version
 
 
;edit_box_draw		dd aEdit_box_draw
;edit_box_key		dd aEdit_box_key
;edit_box_mouse		dd aEdit_box_mouse
;version_ed		dd aVersion_ed
 
;check_box_draw		dd aCheck_box_draw
;check_box_mouse	dd aCheck_box_mouse
;version_ch		dd aVersion_ch
 
;option_box_draw	dd aOption_box_draw
;option_box_mouse	dd aOption_box_mouse
;version_op		dd aVersion_op
 
;scrollbar_ver_draw	dd aScrollbar_ver_draw
;scrollbar_ver_mouse	dd aScrollbar_ver_mouse
;scrollbar_hor_draw	dd aScrollbar_hor_draw
;scrollbar_hor_mouse	dd aScrollbar_hor_mouse
;version_scrollbar	dd aVersion_scrollbar
 
;dinamic_button_draw	dd aDbutton_draw
;dinamic_button_mouse	dd aDbutton_mouse
;version_dbutton	dd aVersion_dbutton
 
;menu_bar_draw		dd aMenu_bar_draw
;menu_bar_mouse		dd aMenu_bar_mouse
;menu_bar_activate	dd aMenu_bar_activate
;version_menu_bar	dd aVersion_menu_bar
 
;FileBrowser_draw	dd aFileBrowser_draw
;FileBrowser_mouse	dd aFileBrowser_mouse
;FileBrowser_key	dd aFileBrowser_key
;Version_FileBrowser	dd aVersion_FileBrowser
 
PathShow_prepare	dd sz_PathShow_prepare
PathShow_draw		dd sz_PathShow_draw
;Version_path_show	dd szVersion_path_show
			dd 0
			dd 0
 
;a_init			db 'lib_init',0
;a_version		db 'version',0
 
;aEdit_box_draw		db 'edit_box',0
;aEdit_box_key		db 'edit_box_key',0
;aEdit_box_mouse	db 'edit_box_mouse',0
;aVersion_ed		db 'version_ed',0
 
;aCheck_box_draw	db 'check_box_draw',0
;aCheck_box_mouse	db 'check_box_mouse',0
;aVersion_ch		db 'version_ch',0
 
;aOption_box_draw	db 'option_box_draw',0
;aOption_box_mouse	db 'option_box_mouse',0
;aVersion_op		db 'version_op',0
 
;aScrollbar_ver_draw	db 'scrollbar_v_draw',0
;aScrollbar_ver_mouse	db 'scrollbar_v_mouse',0
;aScrollbar_hor_draw	db 'scrollbar_h_draw',0
;aScrollbar_hor_mouse	db 'scrollbar_h_mouse',0
;aVersion_scrollbar	db 'version_scrollbar',0
 
;aDbutton_draw		db 'dbutton_draw',0
;aDbutton_mouse		db 'dbutton_mouse',0
;aVersion_dbutton	db 'version_dbutton',0
 
;aMenu_bar_draw		db 'menu_bar_draw',0
;aMenu_bar_mouse		db 'menu_bar_mouse',0
;aMenu_bar_activate	db 'menu_bar_activate',0
;aVersion_menu_bar	db 'version_menu_bar',0
 
;aFileBrowser_draw	db 'FileBrowser_draw',0
;aFileBrowser_mouse	db 'FileBrowser_mouse',0
;aFileBrowser_key	db 'FileBrowser_key',0
;aVersion_FileBrowser	db 'version_FileBrowser',0
 
sz_PathShow_prepare	db 'PathShow_prepare',0
sz_PathShow_draw	db 'PathShow_draw',0
;szVersion_path_show	db 'version_PathShow',0
;---------------------------------------------------------------------
PathShow_data_1:
.type			dd 0	;+0
.start_y		dw 217	;+4
.start_x		dw 12	;+6
.font_size_x		dw 6	;+8	; 6 - for font 0, 8 - for font 1
.area_size_x		dw 530	;+10
.font_number		dd 0	;+12	; 0 - monospace, 1 - variable
.background_flag	dd 0	;+16
.font_color		dd 0x0	;+20
.background_color	dd 0x0	;+24
.text_pointer		dd fname	;+28
.work_area_pointer	dd text_work_area	;+32
.temp_text_length	dd 0	;+36
;---------------------------------------------------------------------
PathShow_data_2:
.type			dd 0	;+0
.start_y		dw 235	;+4
.start_x		dw 12	;+6
.font_size_x		dw 6	;+8	; 6 - for font 0, 8 - for font 1
.area_size_x		dw 530	;+10
.font_number		dd 0	;+12	; 0 - monospace, 1 - variable
.background_flag	dd 0	;+16
.font_color		dd 0x0	;+20
.background_color	dd 0x0	;+24
.text_pointer		dd skin_info	;+28
.work_area_pointer	dd text_work_area2	;+32
.temp_text_length	dd 0	;+36
;---------------------------------------------------------------------
OpenDialog_data:
.type			dd 0
.procinfo		dd procinfo	;+4
.com_area_name		dd communication_area_name	;+8
.com_area		dd 0	;+12
.opendir_pach		dd temp_dir_pach	;+16
.dir_default_pach	dd communication_area_default_pach	;+20
.start_path		dd open_dialog_path	;+24
.draw_window		dd draw_window	;+28
.status			dd 0	;+32
.openfile_pach 		dd fname	;+36
.filename_area		dd filename_area	;+40
.filter_area		dd Filter
.x:
.x_size			dw 420 ;+48 ; Window X size
.x_start		dw 10 ;+50 ; Window X position
.y:
.y_size			dw 320 ;+52 ; Window y size
.y_start		dw 10 ;+54 ; Window Y position
 
OpenDialog_data2:
.type			dd 0
.procinfo		dd procinfo	;+4
.com_area_name		dd communication_area_name2	;+8
.com_area		dd 0	;+12
.opendir_pach		dd temp_dir_pach2	;+16
.dir_default_pach	dd communication_area_default_pach	;+20
.start_path		dd open_dialog_path	;+24
.draw_window		dd draw_window	;+28
.status			dd 0	;+32
.openfile_pach 		dd skin_info	;+36
.filename_area		dd filename_area2	;+40
.filter_area		dd Filter2
.x:
.x_size			dw 420 ;+48 ; Window X size
.x_start		dw 10 ;+50 ; Window X position
.y:
.y_size			dw 320 ;+52 ; Window y size
.y_start		dw 10 ;+54 ; Window Y position
 
communication_area_name2:
	db 'FFFFFFFF_open_dialog',0
 
communication_area_name:
	db 'FFFFFFFF_open_dialog2',0
open_dialog_path:
if __nightbuild eq yes
    db '/sys/MANAGERS/opendial',0
else
    db '/sys/File Managers/opendial',0
end if
communication_area_default_pach:
	db '/sys',0
 
Filter:
dd	Filter.end - Filter
.1:
db	'DTP',0
.end:
db	0
 
Filter2:
dd	Filter.end - Filter
.1:
db	'SKN',0
.end:
db	0
 
start_temp_file_name:	db 'default.dtp',0
 
default_skin:
	db '/sys/default.skn',0
default_dtp:
	db '/sys/default.dtp',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 4096            ; filename
 
virtual at read_info
 write_info:
  .mode         dd ?
  rd 1
  .bytes2write  dd ?
  .address      dd ?
  .workarea     dd ?
end virtual
 
read_info2:
  .mode         dd ?            ; read
  .start_block  dd ?            ; first block
  .blocks       dd ?            ; 512 bytes
  .address      dd ?
  .workarea     dd ?
skin_info rb 4096
 
;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 ?
;---------------------------------------------------------------------
align 4
cur_dir_path:
	rb 4096
;---------------------------------------------------------------------
library_path:
	rb 4096
;---------------------------------------------------------------------
;fname_buf:
;	rb 4096
;---------------------------------------------------------------------
temp_dir_pach:
	rb 4096
;---------------------------------------------------------------------
temp_dir_pach2:
	rb 4096
;---------------------------------------------------------------------
text_work_area:
	rb 1024
;---------------------------------------------------------------------
text_work_area2:
	rb 1024
;---------------------------------------------------------------------
procinfo:
	rb 1024
;---------------------------------------------------------------------
filename_area:
	rb 256
;---------------------------------------------------------------------
filename_area2:
	rb 256
;---------------------------------------------------------------------
	rb 4096
stacktop:
;---------------------------------------------------------------------
file_load_area:	; old 0x10000
	rb 32*1024
;---------------------------------------------------------------------
not_packed_area:	; old 0x18000
	rb 32*1024
;---------------------------------------------------------------------
unpack_area:	; old 0x20000
	rb 32*1024
;---------------------------------------------------------------------
i_end:
>
>

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

Subversion Repositories Kolibri OS

(root)/programs/system/desktop/trunk/desktop.asm – Rev 1702 → 2068