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

Subversion Repositories Kolibri OS

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