Subversion Repositories Kolibri OS

; 01.02.07 - ������� editbox

; 31.01.07 - ��ࠢ���� �����४⭠� ���ᮢ�� �� ����讬 ���祭�� ����� ᪨��

;            ��ࠢ������� ᭨�� �⭮�⥫쭮 ࠡ�祩 ������ ��࠭�

window_y=67

;window_x=320

window_x=640

;--- ��㣨� ������ ---

include '../../../develop/examples/editbox/trunk/editbox.inc'

;include 'editbox.inc'

include 'txtbut.inc'

include '../../../macros.inc'

;include 'macros.inc'

include 'run.mac'

include 'lang.inc'

        meos_app_start

        use_edit_box procinfo,22,5

        use_txt_button

        code

        cmp     [par],byte 0

        jne     read_par

        mcall   40,EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW

red:

        mcall   48,3,sc,40

        set_sys_colors_txt_button run_but,sc

        push    dword [sc.work_graph]

        pop     [input_fn.focus_border_color]

        call    draw_window

still:

        mcall   10

        cmp al,0x1    ;�᫨ ���������� ��������� ����

        jz red

        cmp al,0x2    ;�᫨ ����� ������ � ��३�

        jz key

        cmp al,0x3    ;�᫨ ����� ������ � ��३�

        jz button

        mouse_edit_box input_fn

        jmp still    ;�᫨ ��祣� �� ����᫥����� � ᭮�� � 横�

key:

        mcall   2

        cmp     ah,13

        je      run

        key_edit_box input_fn

        jmp     still

button:

        mcall   17

        dec     ah

        jz      close

        dec     ah

        jz      run

        jmp     still

read_par:

        mov     esi,par

        mov     edi,fn

        mov     ecx,256

        rep     movsb

run:

        xor     eax,eax

        mov     edi,file_info.name

        mov     ecx,512

        rep     stosb

        mov     edi,run_par

        mov     ecx,256

        rep     stosb

        mov     esi,fn

        mov     edi,file_info.name

        cmp     [esi],byte '"'

        je      copy_fn_with_spaces

copy_fn:

        cmp     [esi],byte ' '

        je      .stop

        cmp     [esi],byte 0

        je      .stop

        mov     al,[esi]

        mov     [edi],al

        inc     esi

        inc     edi

        jmp     copy_fn

.stop:

        jmp     copy_par

copy_fn_with_spaces:

        inc     esi

@@:

        cmp     [esi],byte '"'

        je      .stop

        cmp     [esi],byte 0

        je      .stop

        mov     al,[esi]

        mov     [edi],al

        inc     esi

        inc     edi

        jmp     @b

.stop:

copy_par:

@@:

        inc     esi

        cmp     [esi],byte ' '

        je      @b

        mov     edi,run_par

@@:

        cmp     [esi],byte 0

        je      .stop

        mov     al,[esi]

        mov     [edi],al

        inc     esi

        inc     edi

        jmp     @b

.stop:

        mcall   70,file_info

        cmp     eax,0

        jl      error

        mov     [status],run_ok

        call    draw_status

        jmp     still

close:

        mcall -1

error:

        neg     eax

        cmp_err 3,bad_file_sys

        cmp_err 5,file_not_find

        cmp_err 9,bad_fat_table

        cmp_err 10,acces_denyied

        cmp_err 11,device_error

        cmp_err 30,out_of_memory

        cmp_err 31,file_not_executable

        cmp_err 32,many_processes

        call    draw_status

        jmp     still

draw_window:

        mcall   48,5

        mov     si,bx

        mcall   12,1

        mcall   48,4

        mov     dx,ax

        mcall   14

        xor     ecx,ecx

        sub     cx,window_y+2

        sub     cx,dx

        add     cx,si

        shl     ecx,16

        mov     cx,dx

        add     cx,window_y

        shr     eax,16

        mov     bx,ax

        sub     bx,window_x

        shl     ebx,15

        mov     bx,window_x

        mov     edx,[sc.work]

        or      edx,0x33000000

        xor     esi,esi

        mov     edi,grab_text

        mcall   0

        mcall   9,procinfo,-1

        mov     eax,[procinfo.box.width]

        sub     eax,20

        mov     [input_fn.width],eax

        mov     [run_but.width],ax

        xor     bx,bx

        shl     ebx,16

        mov     bx,ax

        add     bx,10

        mov     cx,45

        push    cx

        shl     ecx,16

        pop     cx

        mov     edx,[sc.work_graph]

        mcall   38

        draw_edit_box input_fn

        draw_txt_button run_but

        call    draw_status_text

        mcall   12,2

ret

draw_status:

        mov     ebx,[procinfo.box.width]

        sub     bx,10

        mov     ecx,(50)*65536+12

        mov     edx,[sc.work]

        mcall   13

draw_status_text:

        mov     edx,[status]

        xor     esi,esi

@@:

        cmp     [edx+esi],byte 0

        je      @f

        inc     esi

        jmp     @b

@@:

        mov     ecx,[sc.work_text]

        mcall   4,5*65536+(50)

ret

run_but txt_button 0,5,15,25,2,0,0,run_but_text,

input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0,511,fn,ed_focus+ed_always_focus

mouse_flag: dd 0x0

if lang eq ru

hello db '������ ����� ���� � 䠩�� � ������ Enter',0

bad_file_sys db '�������⭠� 䠩����� ��⥬�',0 ; 3

file_not_find db '���� �� ������',0              ; 5

bad_fat_table db '������ FAT ࠧ��襭�',0       ; 9

acces_denyied db '����� ����饭',0             ; 10

device_error db '�訡�� ���ன�⢠',0            ; 11

out_of_memory db '�������筮 �����',0         ; 30

file_not_executable db '���� �� ���� �ᯮ��塞�',0 ; 31

many_processes db '���誮� ����� ����ᮢ',0    ; 32

run_ok db '�ணࠬ�� �ᯥ譮 ����饭�',0

grab_text db '������ ���������',0

run_but_text db '���������',0

else

hello db 'Enter full path to file and press ',0

bad_file_sys db 'Unknown file system',0                ; 3

file_not_find db 'File not found',0                    ; 5

bad_fat_table db 'FAT table corrupted',0               ; 9

acces_denyied db 'Access denied',0                     ; 10

device_error db 'Device error',0                       ; 11

out_of_memory db 'Out of memory',0                     ; 30

file_not_executable db 'File is not executable',0      ; 31

many_processes db 'Too many processes',0               ; 32

run_ok db 'The program was started successfully',0

grab_text db 'RUN',0

run_but_text db 'RUN',0

end if

status dd hello

file_info:

.mode dd 7

.flags dd 0

.par dd run_par

dd 0,0

.name rb 512

flags dw ?

sc system_colors

procinfo process_information

run_par rb 256

par rb 256

fn rb 512

meos_app_end

udata