Subversion Repositories Kolibri OS

;

;    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 '../../../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