WebSVN – Kolibri OS – Diff – /programs/develop/libraries/fontslib/trunk/font_ex.asm


; Copyright (c) 2009, 
; All rights reserved.
;
; Redistribution and use in source and binary forms, with or without
; modification, are permitted provided that the following conditions are met:
;       * Redistributions of source code must retain the above copyright
;       notice, this list of conditions and the following disclaimer.
;       * Redistributions in binary form must reproduce the above copyright
;       notice, this list of conditions and the following disclaimer in the
;       documentation and/or other materials provided with the distribution.
;       * Neither the name of the  nor the
;       names of its contributors may be used to endorse or promote products
;       derived from this software without specific prior written permission.
;
; THIS SOFTWARE IS PROVIDED BY Alexey Teplov nickname  ''AS IS'' AND ANY
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
; DISCLAIMED. IN NO EVENT SHALL  BE LIABLE FOR ANY
; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;*****************************************************************************
 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
use32                ; âà ­á«ïâ®à, ¨á¯®«ì§ãîé¨© 32 à §àï¤­ëå ª®¬ ­¤ë
    org 0x0                ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0x0
    db 'MENUET01'        ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)
    dd 0x1                ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 
    dd start                ;  ¤à¥á, ­  ª®â®àë© á¨áâ¥¬  ¯¥à¥¤ ñâ ã¯à ¢«¥­¨¥
                        ; ¯®á«¥ § £àã§ª¨ ¯à¨«®¦¥­¨ï ¢ ¯ ¬ïâì
    dd mem                ; à §¬¥à ¯à¨«®¦¥­¨ï
    dd mem                  ; ¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï áâ¥ª  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ëà®¢­¨¬ ­  £à­¨æã 4 ¡ ©â 
    dd mem                  ; à á¯®«®¦¨¬ ¯®§¨æ¨î áâ¥ª  ¢ ®¡« áâ¨ ¯ ¬ïâ¨, áà §ã §  â¥«®¬ ¯à®£à ¬¬ë. ¥àè¨­  áâ¥ª  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, ãª § ­­®¬ ¢ëè¥
    dd 0x0              ; ãª § â¥«ì ­  áâà®ªã á ¯ à ¬¥âà ¬¨.
    dd way_of_ini
include '../../../../macros.inc'
include '../../box_lib/asm/trunk/editbox_ex.mac'
include '../../box_lib/load_lib.mac'
        @use_library    ;use load lib macros
start:
;universal load library/librarys
sys_load_libraries l_libs_start,end_l_libs
;if return code =-1 then exit, else nornary work
        cmp     eax,-1
        jz      exit
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå á®¡ëâ¨©
 
        mov  eax,48
        mov  ebx,3
        mov  ecx,sc
        mov  edx,sizeof.system_colors
        mcall
        mov  eax,dword [sc.work]
        mov  dword [con_colors+4],eax
 
;       mcall   66,1,0
       call [initialization_font]       ; ¨­¨æ¨ «¨§ æ¨ï á¯¨áª  èà¨äâ®¢ 
       push dword (8 shl 16 +16)        ; ¯®¨áª ­ã¦­®£® èà¨äâ  ¢ ­ ¡®à¥ èà¨äâ®¢ (¯®ª  ¤®áâã¯¥­ â®«ìª® 8å16)
       call [get_font]
        test    eax,eax                 ;­ è«¨ ? 
        jnz     exit
;;;;;;;;;;;;;;;;;;;;
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå á®¡ëâ¨©
red_win:
    call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
align 4
still:                          ;®á­®¢­®© ®¡à ¡®âç¨ª
        mcall   10              ;¦¨¤ âì á®¡ëâ¨ï
        dec  eax
        jz   red_win
        dec  eax
        jz   key
        dec  eax
        jz   button
 
        push    dword edit1
        call    [edit_box_mouse]
 
        jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ æ¨ª«
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
button:
        mcall   17      ;¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª« ¢¨è¨
        test ah,ah      ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®âç¨ª á®¡ëâ¨© still
        jz  still
exit:   
        call    [free_fulder_info]
        call    [free_font]
        mcall   -1
key:
        mcall   2       ;§ £àã§¨¬ §­ ç¥­¨¥ 2 ¢ à¥£¨áâ®à eax ¨ ¯®«ãç¨¬ ª®¤ ­ ¦ â®© ª« ¢¨è¨
 
        push    dword edit1
        call    [edit_box_key]
 
 
        mcall   13,<20,650>,<40,16>, dword[con_colors+4]
 
 
        push    dword 20 shl 16 + 40    ; esp+12= dd x shl 16 + y x- ª®®à¤¨­ â  ¯® , y - ª®®à¤¨­ â  ¯® Y
        push    dword con_colors        ; esp+8 = dd point to color of background and font
        push    dword text              ; esp+4 = dd point to ASCIIZ
; esp+0 = dd back
        call    [font_draw_on_string]   ; ¢ë¢¥áâ¨ ¯® £«¨ä ¬ áâà®çªã
 
 
        jmp still
 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
align 4
draw_window:            ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
        mcall   12,1
        xor  eax,eax             ;®¡­ã«¨âì eax
        mov  ebx,50*65536+680    ;[ª®®à¤¨­ â  ¯® ®á¨ x]*65536 + [à §¬¥à ¯® ®á¨ x]
        mov  ecx,30*65536+200    ;[ª®®à¤¨­ â  ¯® ®á¨ y]*65536 + [à §¬¥à ¯® ®á¨ y]
        mov  edx,[sc.work]       ; color of work area RRGGBB,8->color gl
        or   edx,0x34000000
        mov  edi,hed
        mcall                    ;­ à¨á®¢ âì ®ª­® ¯à¨«®¦¥­¨ï
        
        push    dword edit1
        call    [edit_box_draw]
;
        push    dword 20 shl 16 + 40    ; esp+12= dd x shl 16 + y x- ª®®à¤¨­ â  ¯® , y - ª®®à¤¨­ â  ¯® Y
        push    dword con_colors        ; esp+8 = dd point to color of background and font
        push    dword text; esp+4 = dd point to ASCIIZ
; esp+0 = dd back
        call    [font_draw_on_string]   ; ¢ë¢¥áâ¨ ¯® £«¨ä ¬ áâà®çªã
        mov eax,12               ;ã­ªæ¨ï 12 - ­ ç âì/§ ª®­ç¨âì ¯¥à¥à¨á®¢ªã ®ª­ .
        mov ebx,2                ;®¤äã­ªæ¨ï 2 - § ª®­ç¨âì ¯¥à¥à¨á®¢ªã ®ª­ .
        mcall
        ret
;;;;;;;;;;;;
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;DATA ¤ ­­ë¥
l_libs_start:
library01 l_libs library_name, way_of_ini, library_path, system_path, err_message_found_lib, head_f_l, font_import, err_message_import, head_f_i
 
library02 l_libs library_name1, way_of_ini, library_path, system_path1, err_message_found_lib1, head_f_l, import_box_lib, err_message_import1, head_f_i
 
end_l_libs:
 
;
system_path      db '/sys/lib/'
library_name     db 'fonts_lib.obj',0
 
system_path1      db '/sys/lib/'
library_name1     db 'box_lib.obj',0
 
err_message_found_lib   db 'Sorry I cannot load library fonts_lib.obj',0
err_message_found_lib1  db 'Sorry I cannot load library box_lib.obj',0
 
head_f_i:
head_f_l        db 'System error',0
err_message_import      db 'Error on load import library fonts_lib.obj',0
err_message_import1     db 'Error on load import library box_lib.obj',0
 
align 4
import_box_lib:   
 
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
 
                dd      0
                dd      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
 
font_import:
initialization_font     dd      a_initialization_font
get_font                dd      a_get_font
free_fulder_info        dd      a_free_fulder_info
free_font               dd      a_free_font
font_draw_on_string     dd      a_font_draw_on_string
show_all_glif           dd      a_show_all_glif
Version_fn            dd      a_Version_fn
                      dd      0,0
 
a_initialization_font   db 'initialization_font',0
a_get_font              db 'get_font',0
a_free_fulder_info      db 'free_fulder_info',0
a_free_font             db 'free_font',0
a_font_draw_on_string   db 'font_draw_on_string',0
a_show_all_glif         db 'show_all_glif',0
a_Version_fn          db 'version_fn',0
 
 
 
edit1 edit_box 350,175,5,0xffffff,0x6f9480,0,0xAABBCC,0,test_leght,text,ed_focus,text_end-text-1,text_end-text-1
 
text db   'à¨¬¥à ¨á¯®«ì§®¢ ­¨ï ¡¨¡«¨®â¥ª¨ èà¨äâ®¢ fonts_lib.obj',0
text_end:
rb  256
test_leght = ($-text)-1
 
hed db   "Font's demo ",0
align 4
con_colors      dd      0x1E1EFF, 0x96FFCF
 
align 4
sc     system_colors
way_of_ini      rb 4096
library_path    rb 4096
 
align 4
i_end:
rb 1024
mem:
                ;ª®­¥æ ª®¤ 

Rev 1158	Rev 1169
1	; Copyright (c) 2009,	1	; Copyright (c) 2009,
2	; All rights reserved.	2	; All rights reserved.
3	;	3	;
4	; Redistribution and use in source and binary forms, with or without	4	; Redistribution and use in source and binary forms, with or without
5	; modification, are permitted provided that the following conditions are met:	5	; modification, are permitted provided that the following conditions are met:
6	; * Redistributions of source code must retain the above copyright	6	; * Redistributions of source code must retain the above copyright
7	; notice, this list of conditions and the following disclaimer.	7	; notice, this list of conditions and the following disclaimer.
8	; * Redistributions in binary form must reproduce the above copyright	8	; * Redistributions in binary form must reproduce the above copyright
9	; notice, this list of conditions and the following disclaimer in the	9	; notice, this list of conditions and the following disclaimer in the
10	; documentation and/or other materials provided with the distribution.	10	; documentation and/or other materials provided with the distribution.
11	; * Neither the name of the nor the	11	; * Neither the name of the nor the
12	; names of its contributors may be used to endorse or promote products	12	; names of its contributors may be used to endorse or promote products
13	; derived from this software without specific prior written permission.	13	; derived from this software without specific prior written permission.
14	;	14	;
15	; THIS SOFTWARE IS PROVIDED BY Alexey Teplov nickname ''AS IS'' AND ANY	15	; THIS SOFTWARE IS PROVIDED BY Alexey Teplov nickname ''AS IS'' AND ANY
16	; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED	16	; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
17	; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE	17	; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
18	; DISCLAIMED. IN NO EVENT SHALL BE LIABLE FOR ANY	18	; DISCLAIMED. IN NO EVENT SHALL BE LIABLE FOR ANY
19	; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES	19	; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
20	; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;	20	; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
21	; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND	21	; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
22	; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT	22	; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23	; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS	23	; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
24	; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.	24	; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
25	;*****************************************************************************	25	;*****************************************************************************
26		26
27	;§ £®«®¢®ª ¯à¨«®¦¥¨ï	27	;§ £®«®¢®ª ¯à¨«®¦¥¨ï
28	use32 ; âà á«ïâ®à, ¨á¯®«ì§ãîé¨© 32 à §àï¤ëå ª®¬ ¤ë	28	use32 ; âà á«ïâ®à, ¨á¯®«ì§ãîé¨© 32 à §àï¤ëå ª®¬ ¤ë
29	org 0x0 ; ¡ §®¢ë© ¤à¥á ª®¤ , ¢á¥£¤ 0x0	29	org 0x0 ; ¡ §®¢ë© ¤à¥á ª®¤ , ¢á¥£¤ 0x0
30	db 'MENUET01' ; ¨¤¥â¨ä¨ª â®à ¨á¯®«ï¥¬®£® ä ©« (8 ¡ ©â)	30	db 'MENUET01' ; ¨¤¥â¨ä¨ª â®à ¨á¯®«ï¥¬®£® ä ©« (8 ¡ ©â)
31	dd 0x1 ; ¢¥àá¨ï ä®à¬ â § £®«®¢ª ¨á¯®«ï¥¬®£® ä ©«	31	dd 0x1 ; ¢¥àá¨ï ä®à¬ â § £®«®¢ª ¨á¯®«ï¥¬®£® ä ©«
32	dd start ; ¤à¥á, ª®â®àë© á¨áâ¥¬ ¯¥à¥¤ ñâ ã¯à ¢«¥¨¥	32	dd start ; ¤à¥á, ª®â®àë© á¨áâ¥¬ ¯¥à¥¤ ñâ ã¯à ¢«¥¨¥
33	; ¯®á«¥ § £àã§ª¨ ¯à¨«®¦¥¨ï ¢ ¯ ¬ïâì	33	; ¯®á«¥ § £àã§ª¨ ¯à¨«®¦¥¨ï ¢ ¯ ¬ïâì
34	dd mem ; à §¬¥à ¯à¨«®¦¥¨ï	34	dd mem ; à §¬¥à ¯à¨«®¦¥¨ï
35	dd mem ; ¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï áâ¥ª ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ëà®¢¨¬ £à¨æã 4 ¡ ©â	35	dd mem ; ¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï áâ¥ª ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ëà®¢¨¬ £à¨æã 4 ¡ ©â
36	dd mem ; à á¯®«®¦¨¬ ¯®§¨æ¨î áâ¥ª ¢ ®¡« áâ¨ ¯ ¬ïâ¨, áà §ã § â¥«®¬ ¯à®£à ¬¬ë. ¥àè¨ áâ¥ª ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, ãª § ®¬ ¢ëè¥	36	dd mem ; à á¯®«®¦¨¬ ¯®§¨æ¨î áâ¥ª ¢ ®¡« áâ¨ ¯ ¬ïâ¨, áà §ã § â¥«®¬ ¯à®£à ¬¬ë. ¥àè¨ áâ¥ª ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, ãª § ®¬ ¢ëè¥
37	dd 0x0 ; ãª § â¥«ì áâà®ªã á ¯ à ¬¥âà ¬¨.	37	dd 0x0 ; ãª § â¥«ì áâà®ªã á ¯ à ¬¥âà ¬¨.
38	dd way_of_ini	38	dd way_of_ini
39	include '../../../../macros.inc'	39	include '../../../../macros.inc'
40	include '../../box_lib/asm/trunk/editbox_ex.mac'	40	include '../../box_lib/asm/trunk/editbox_ex.mac'
41	include '../../box_lib/load_lib.mac'	41	include '../../box_lib/load_lib.mac'
42	@use_library ;use load lib macros	42	@use_library ;use load lib macros
43	start:	43	start:
44	;universal load library/librarys	44	;universal load library/librarys
45	sys_load_libraries l_libs_start,end_l_libs	45	sys_load_libraries l_libs_start,end_l_libs
46	;if return code =-1 then exit, else nornary work	46	;if return code =-1 then exit, else nornary work
47	cmp eax,-1	47	cmp eax,-1
48	jz exit	48	jz exit
49	mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå á®¡ëâ¨©	49	mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå á®¡ëâ¨©
50		50
51	mov eax,48	51	mov eax,48
52	mov ebx,3	52	mov ebx,3
53	mov ecx,sc	53	mov ecx,sc
54	mov edx,sizeof.system_colors	54	mov edx,sizeof.system_colors
55	mcall	55	mcall
56	mov eax,dword [sc.work]	56	mov eax,dword [sc.work]
57	mov dword [con_colors+4],eax	57	mov dword [con_colors+4],eax
58		58
59	; mcall 66,1,0	59	; mcall 66,1,0
60	call [initialization_font] ; ¨¨æ¨ «¨§ æ¨ï á¯¨áª èà¨äâ®¢	60	call [initialization_font] ; ¨¨æ¨ «¨§ æ¨ï á¯¨áª èà¨äâ®¢
61	push dword (8 shl 16 +16) ; ¯®¨áª ã¦®£® èà¨äâ ¢ ¡®à¥ èà¨äâ®¢ (¯®ª ¤®áâã¯¥ â®«ìª® 8å16)	61	push dword (8 shl 16 +16) ; ¯®¨áª ã¦®£® èà¨äâ ¢ ¡®à¥ èà¨äâ®¢ (¯®ª ¤®áâã¯¥ â®«ìª® 8å16)
62	call [get_font]	62	call [get_font]
63	test eax,eax ; è«¨ ?	63	test eax,eax ; è«¨ ?
64	jnz exit	64	jnz exit
65	;;;;;;;;;;;;;;;;;;;;	65	;;;;;;;;;;;;;;;;;;;;
66	mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå á®¡ëâ¨©	66	mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå á®¡ëâ¨©
67	red_win:	67	red_win:
68	call draw_window ;¯¥à¢® ç «ì® ¥®¡å®¤¨¬® à¨á®¢ âì ®ª®	68	call draw_window ;¯¥à¢® ç «ì® ¥®¡å®¤¨¬® à¨á®¢ âì ®ª®
69	align 4	69	align 4
70	still: ;®á®¢®© ®¡à ¡®âç¨ª	70	still: ;®á®¢®© ®¡à ¡®âç¨ª
71	mcall 10 ;¦¨¤ âì á®¡ëâ¨ï	71	mcall 10 ;¦¨¤ âì á®¡ëâ¨ï
72	dec eax	72	dec eax
73	jz red_win	73	jz red_win
74	dec eax	74	dec eax
75	jz key	75	jz key
76	dec eax	76	dec eax
77	jz button	77	jz button
78		78
79	push dword edit1	79	push dword edit1
80	call [edit_box_mouse]	80	call [edit_box_mouse]
81		81
82	jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® â® á®¢ ¢ æ¨ª«	82	jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® â® á®¢ ¢ æ¨ª«
83	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	83	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
84	button:	84	button:
85	mcall 17 ;¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª« ¢¨è¨	85	mcall 17 ;¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª« ¢¨è¨
86	test ah,ah ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ®¡à ¡®âç¨ª á®¡ëâ¨© still	86	test ah,ah ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ®¡à ¡®âç¨ª á®¡ëâ¨© still
87	jz still	87	jz still
-		88	exit:
-		89	call [free_fulder_info]
-		90	call [free_font]
88	exit: mcall -1	91	mcall -1
89	key:	92	key:
90	mcall 2 ;§ £àã§¨¬ § ç¥¨¥ 2 ¢ à¥£¨áâ®à eax ¨ ¯®«ãç¨¬ ª®¤ ¦ â®© ª« ¢¨è¨	93	mcall 2 ;§ £àã§¨¬ § ç¥¨¥ 2 ¢ à¥£¨áâ®à eax ¨ ¯®«ãç¨¬ ª®¤ ¦ â®© ª« ¢¨è¨
91		94
92	push dword edit1	95	push dword edit1
93	call [edit_box_key]	96	call [edit_box_key]
94		97
95		98
96	mcall 13,<20,650>,<40,16>, dword[con_colors+4]	99	mcall 13,<20,650>,<40,16>, dword[con_colors+4]
97		100
98		101
99	push dword 20 shl 16 + 40 ; esp+12= dd x shl 16 + y x- ª®®à¤¨ â ¯® , y - ª®®à¤¨ â ¯® Y	102	push dword 20 shl 16 + 40 ; esp+12= dd x shl 16 + y x- ª®®à¤¨ â ¯® , y - ª®®à¤¨ â ¯® Y
100	push dword con_colors ; esp+8 = dd point to color of background and font	103	push dword con_colors ; esp+8 = dd point to color of background and font
101	push dword text ; esp+4 = dd point to ASCIIZ	104	push dword text ; esp+4 = dd point to ASCIIZ
102	; esp+0 = dd back	105	; esp+0 = dd back
103	call [font_draw_on_string] ; ¢ë¢¥áâ¨ ¯® £«¨ä ¬ áâà®çªã	106	call [font_draw_on_string] ; ¢ë¢¥áâ¨ ¯® £«¨ä ¬ áâà®çªã
104		107
105		108
106	jmp still	109	jmp still
107		110
108	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>	111	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
109	align 4	112	align 4
110	draw_window: ;à¨á®¢ ¨¥ ®ª ¯à¨«®¦¥¨ï	113	draw_window: ;à¨á®¢ ¨¥ ®ª ¯à¨«®¦¥¨ï
111	mcall 12,1	114	mcall 12,1
112	xor eax,eax ;®¡ã«¨âì eax	115	xor eax,eax ;®¡ã«¨âì eax
113	mov ebx,5065536+680 ;[ª®®à¤¨ â ¯® ®á¨ x]65536 + [à §¬¥à ¯® ®á¨ x]	116	mov ebx,5065536+680 ;[ª®®à¤¨ â ¯® ®á¨ x]65536 + [à §¬¥à ¯® ®á¨ x]
114	mov ecx,3065536+500 ;[ª®®à¤¨ â ¯® ®á¨ y]65536 + [à §¬¥à ¯® ®á¨ y]	117	mov ecx,3065536+200 ;[ª®®à¤¨ â ¯® ®á¨ y]65536 + [à §¬¥à ¯® ®á¨ y]
115	mov edx,[sc.work] ; color of work area RRGGBB,8->color gl	118	mov edx,[sc.work] ; color of work area RRGGBB,8->color gl
116	or edx,0x34000000	119	or edx,0x34000000
117	mov edi,hed	120	mov edi,hed
118	mcall ; à¨á®¢ âì ®ª® ¯à¨«®¦¥¨ï	121	mcall ; à¨á®¢ âì ®ª® ¯à¨«®¦¥¨ï
119		122
120	push dword edit1	123	push dword edit1
121	call [edit_box_draw]	124	call [edit_box_draw]
122	;	125	;
123	push dword 20 shl 16 + 40 ; esp+12= dd x shl 16 + y x- ª®®à¤¨ â ¯® , y - ª®®à¤¨ â ¯® Y	126	push dword 20 shl 16 + 40 ; esp+12= dd x shl 16 + y x- ª®®à¤¨ â ¯® , y - ª®®à¤¨ â ¯® Y
124	push dword con_colors ; esp+8 = dd point to color of background and font	127	push dword con_colors ; esp+8 = dd point to color of background and font
125	push dword text; esp+4 = dd point to ASCIIZ	128	push dword text; esp+4 = dd point to ASCIIZ
126	; esp+0 = dd back	129	; esp+0 = dd back
127	call [font_draw_on_string] ; ¢ë¢¥áâ¨ ¯® £«¨ä ¬ áâà®çªã	130	call [font_draw_on_string] ; ¢ë¢¥áâ¨ ¯® £«¨ä ¬ áâà®çªã
128	mov eax,12 ;ãªæ¨ï 12 - ç âì/§ ª®ç¨âì ¯¥à¥à¨á®¢ªã ®ª .	131	mov eax,12 ;ãªæ¨ï 12 - ç âì/§ ª®ç¨âì ¯¥à¥à¨á®¢ªã ®ª .
129	mov ebx,2 ;®¤äãªæ¨ï 2 - § ª®ç¨âì ¯¥à¥à¨á®¢ªã ®ª .	132	mov ebx,2 ;®¤äãªæ¨ï 2 - § ª®ç¨âì ¯¥à¥à¨á®¢ªã ®ª .
130	mcall	133	mcall
131	ret	134	ret
132	;;;;;;;;;;;;	135	;;;;;;;;;;;;
133	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>	136	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
134	;DATA ¤ ë¥	137	;DATA ¤ ë¥
135	l_libs_start:	138	l_libs_start:
136	library01 l_libs library_name, way_of_ini, library_path, system_path, err_message_found_lib, head_f_l, font_import, err_message_import, head_f_i	139	library01 l_libs library_name, way_of_ini, library_path, system_path, err_message_found_lib, head_f_l, font_import, err_message_import, head_f_i
137		140
138	library02 l_libs library_name1, way_of_ini, library_path, system_path1, err_message_found_lib1, head_f_l, import_box_lib, err_message_import1, head_f_i	141	library02 l_libs library_name1, way_of_ini, library_path, system_path1, err_message_found_lib1, head_f_l, import_box_lib, err_message_import1, head_f_i
139		142
140	end_l_libs:	143	end_l_libs:
141		144
142	;	145	;
143	system_path db '/sys/lib/'	146	system_path db '/sys/lib/'
144	library_name db 'fonts_lib.obj',0	147	library_name db 'fonts_lib.obj',0
145		148
146	system_path1 db '/sys/lib/'	149	system_path1 db '/sys/lib/'
147	library_name1 db 'box_lib.obj',0	150	library_name1 db 'box_lib.obj',0
148		151
149	err_message_found_lib db 'Sorry I cannot load library fonts_lib.obj',0	152	err_message_found_lib db 'Sorry I cannot load library fonts_lib.obj',0
150	err_message_found_lib1 db 'Sorry I cannot load library box_lib.obj',0	153	err_message_found_lib1 db 'Sorry I cannot load library box_lib.obj',0
151		154
152	head_f_i:	155	head_f_i:
153	head_f_l db 'System error',0	156	head_f_l db 'System error',0
154	err_message_import db 'Error on load import library fonts_lib.obj',0	157	err_message_import db 'Error on load import library fonts_lib.obj',0
155	err_message_import1 db 'Error on load import library box_lib.obj',0	158	err_message_import1 db 'Error on load import library box_lib.obj',0
156		159
157	align 4	160	align 4
158	import_box_lib:	161	import_box_lib:
159		162
160	edit_box_draw dd aEdit_box_draw	163	edit_box_draw dd aEdit_box_draw
161	edit_box_key dd aEdit_box_key	164	edit_box_key dd aEdit_box_key
162	edit_box_mouse dd aEdit_box_mouse	165	edit_box_mouse dd aEdit_box_mouse
163	version_ed dd aVersion_ed	166	version_ed dd aVersion_ed
164		167
165	dd 0	168	dd 0
166	dd 0	169	dd 0
167		170
168	aEdit_box_draw db 'edit_box',0	171	aEdit_box_draw db 'edit_box',0
169	aEdit_box_key db 'edit_box_key',0	172	aEdit_box_key db 'edit_box_key',0
170	aEdit_box_mouse db 'edit_box_mouse',0	173	aEdit_box_mouse db 'edit_box_mouse',0
171	aVersion_ed db 'version_ed',0	174	aVersion_ed db 'version_ed',0
172		175
173	font_import:	176	font_import:
174	initialization_font dd a_initialization_font	177	initialization_font dd a_initialization_font
175	get_font dd a_get_font	178	get_font dd a_get_font
176	free_fulder_info dd a_free_fulder_info	179	free_fulder_info dd a_free_fulder_info
177	free_font dd a_free_font	180	free_font dd a_free_font
178	font_draw_on_string dd a_font_draw_on_string	181	font_draw_on_string dd a_font_draw_on_string
179	show_all_glif dd a_show_all_glif	182	show_all_glif dd a_show_all_glif
180	Version_fn dd a_Version_fn	183	Version_fn dd a_Version_fn
181	dd 0,0	184	dd 0,0
182		185
183	a_initialization_font db 'initialization_font',0	186	a_initialization_font db 'initialization_font',0
184	a_get_font db 'get_font',0	187	a_get_font db 'get_font',0
185	a_free_fulder_info db 'free_fulder_info',0	188	a_free_fulder_info db 'free_fulder_info',0
186	a_free_font db 'free_font',0	189	a_free_font db 'free_font',0
187	a_font_draw_on_string db 'font_draw_on_string',0	190	a_font_draw_on_string db 'font_draw_on_string',0
188	a_show_all_glif db 'show_all_glif',0	191	a_show_all_glif db 'show_all_glif',0
189	a_Version_fn db 'version_fn',0	192	a_Version_fn db 'version_fn',0
190		193
191		194
192		195
193	edit1 edit_box 350,175,5,0xffffff,0x6f9480,0,0xAABBCC,0,test_leght,text,ed_focus,text_end-text-1,text_end-text-1	196	edit1 edit_box 350,175,5,0xffffff,0x6f9480,0,0xAABBCC,0,test_leght,text,ed_focus,text_end-text-1,text_end-text-1
194		197
195	text db 'à¨¬¥à ¨á¯®«ì§®¢ ¨ï ¡¨¡«¨®â¥ª¨ èà¨äâ®¢ fonts_lib.obj',0	198	text db 'à¨¬¥à ¨á¯®«ì§®¢ ¨ï ¡¨¡«¨®â¥ª¨ èà¨äâ®¢ fonts_lib.obj',0
196	text_end:	199	text_end:
197	rb 256	200	rb 256
198	test_leght = ($-text)-1	201	test_leght = ($-text)-1
199		202
200	hed db "Font's demo ",0	203	hed db "Font's demo ",0
201	align 4	204	align 4
202	con_colors dd 0x1E1EFF, 0x96FFCF	205	con_colors dd 0x1E1EFF, 0x96FFCF
203		206
204	align 4	207	align 4
205	sc system_colors	208	sc system_colors
206	way_of_ini rb 4096	209	way_of_ini rb 4096
207	library_path rb 4096	210	library_path rb 4096
208		211
209	align 4	212	align 4
210	i_end:	213	i_end:
211	rb 1024	214	rb 1024
212	mem:	215	mem:
213	;ª®¥æ ª®¤	216	;ª®¥æ ª®¤

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/fontslib/trunk/font_ex.asm @ 1373 – Rev 1158 → 1169