File-Manager/MOD1/COLOR.ASM

;////////////////////////////////////////////////////////////////////////
;
;  ‚맮¢ ®ª­  ­ áâனª¨ 梥⮢ (Options->Colors)
;
;////////////////////////////////////////////////////////////////////////
setup_colors:
	; ¬ áᨢ 梥⮢ ¢® ¢à¥¬. ¡ãä¥à
	ld	hl,color_array		; ®âªã¤ 
	ld	de,tmp_color_list	; ªã¤  (¢à¥¬. ¡ãä¥à)
	ld	bc,len_color_array	; à §¬¥à ¬ áᨢ 
	ldir
	; ¢ë¢®¤ ®ª­ 
	ld	hl,dial_colors		; ®¯¨á â¥«ì ®ª­ 
	call	DialogW
	cp	evCommand		; ᮡë⨥ "ª®¬ ­¤ "
	jr	nz,set_colors_done
	ld	a,(hl)			;+1 what
	cp	cmOkey			; "Set"
	jr	nz,set_colors_done
	; 梥â. ­ áâனª¨ ¢ ¯à®¬¥¦. ¡ãä¥à
	ld	hl,tmp_color_list	; ®âªã¤ 
	ld	de,temp_colors		; ªã¤  (¢à¥¬. ¡ãä¥à)
	ld	bc,len_color_array	; à §¬¥à ¬ áᨢ 
	ldir
set_colors_done:
	; <20>ਬ¥­¨âì ­ áâனª¨ "Colors"
	call	test_show_panels	; â¥áâ ­  ०¨¬ ¢ª«. ¯ ­¥«¥©
	ret	z
	ld	hl,what			; ¯®«¥ ᮡë⨩
	ld	a,(hl)
	cp	evCommand
	ret	nz
	inc	hl
	ld	a,(hl)
	cp	cmDefault
	jr	nz,$+7
	ld	hl,default_colors	; ¬ áᨢ 梥⮢ ¯®-㬮«ç ­¨î
	jr	$+8
	cp	cmOkey
	ret	nz
	; ¯à¨¬¥­¨âì 梥â. ­ áâனª¨
	ld	hl,temp_colors		; ®âªã¤ 
	ld	de,color_array		; ªã¤ 
	ld	bc,len_color_array	; à §¬¥à ¬ áᨢ 
	ldir
	call	set_colors		; ­ áâனª  梥⮢ ®¡®«®çª¨
	; ®¡­®¢¨âì æ¢¥â  ¯ ­¥«¥©
;apply_colors__:			; <- ¨§ set_attrib
	call	change_panel		; ᬥ­¨âì ¯ ­¥«ì
	call	A20FC			; ®¡­®¢¨âì ¯ ­¥«ì
	call	change_panel
	call	A20FC
	call	print_compath		; ®¡­®¢¨âì ª®¬-áâபã
	call	print_keybar		; ®¡­®¢¨âì key-¡ à
	jp	show_pointer		; ®¡­®¢¨âì 㪠§ â¥«ì