upgrade RUN, add new edit_box

git-svn-id: svn://kolibrios.org@305 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Alexey Teplov ( 2007-02-01 07:18:09 +00:00
parent 254c631866
commit dbd82dd523
4 changed files with 766 additions and 543 deletions

File diff suppressed because it is too large Load Diff

View File

@ -1,13 +1,6 @@
;--- ¤à㣨¥ ¬ ªà®áë --- ;--- ¤à㣨¥ ¬ ªà®áë ---
include 'editbox.inc' include 'editbox.inc'
include 'txtbut.inc' include 'txtbut.inc'
;include 'gp.inc'
;include 'label.inc'
;include 'checkbox.inc'
;include 'file_sys.inc'
;include 'textwork.inc'
;include 'ini.inc'
include 'lang.inc' include 'lang.inc'
;--- § £®«®¢®ª --- ;--- § £®«®¢®ª ---

View File

@ -156,24 +156,23 @@ draw_window:
shl ebx,15 shl ebx,15
mov bx,window_x mov bx,window_x
mov edx,[sc.work] mov edx,[sc.work]
or edx,0x03000000 or edx,0xb3000000
xor eax,eax xor eax,eax
xor esi,esi mov esi,[sc.grab_text]
xor edi,edi mov edi,hed
int 0x40 int 0x40
get_procinfo app get_procinfo app
mov ax,[app.width] mov ax,[app.width]
sub ax,20 sub ax,20
mov [input_fn.width],ax mov [input_fn.width],eax
mov [run_but.width],ax mov [run_but.width],ax
mov bx,5 mov ebx,10000
shl ebx,16
mov bx,ax mov bx,ax
add bx,15 add bx,10
mov cx,70 mov cx,47
push cx push cx
shl ecx,16 shl ecx,16
pop cx pop cx
@ -190,8 +189,8 @@ draw_window:
ret ret
draw_status: draw_status:
mov ebx,5*65536+(window_x-5-5) mov ebx,5*65536+(window_x-5-10)
mov ecx,(window_y-16)*65536+12 mov ecx,(window_y-39)*65536+12
mov edx,[sc.work] mov edx,[sc.work]
mov eax,13 mov eax,13
int 0x40 int 0x40
@ -205,18 +204,18 @@ draw_status_text:
jmp @b jmp @b
@@: @@:
mov eax,4 mov eax,4
mov ebx,10*65536+(window_y-14) mov ebx,6*65536+(window_y-37)
mov ecx,[sc.work_text] mov ecx,[sc.work_text]
int 0x40 int 0x40
ret ret
run_but txt_button 0,10,15,50,2,0,0,run_but_text, run_but txt_button 0,5,15,30,2,0,0,run_but_text,
if lang eq ru if lang eq ru
run_but_text db '‡€<E280A1>ˆœ',0 run_but_text db '‡€<E280A1>ˆœ',0
else else
run_but_text db 'RUN',0 run_but_text db 'RUN',0
end if end if
input_fn edit_box 0,10,30,0xffffff,0,0xaaaaaa,0,511,fn,ed_focus+\ input_fn edit_box 0,5,10,0xffffff,0,0xaaaaaa,0,511,fn,ed_focus+\
ed_always_focus ed_always_focus
if lang eq ru if lang eq ru
@ -241,6 +240,11 @@ file_not_executable db 'File is not executable',0 ; 31
many_processes db 'Too many processes',0 ; 32 many_processes db 'Too many processes',0 ; 32
end if end if
if lang eq ru
hed db 'RUN ®â ¯¥à¢®£® ”¥¢à «ï 2007 £®¤ ',0
else
hed db 'RUN of the first of FEBRUARY 2007 year',0
end if
status dd hello status dd hello
file_info: file_info:

View File

@ -1,3 +1,6 @@
<Lrz> 01.02.2007 „®¡ ¢¨« ¬®¤¥à­¨§¨à®¢ ­­ë© ª®¬¯®­¥­â edit_box,
ã«ãç訫 ¨ ¯¥à¥¯¨á « ç áâì ª®¤ .
RUN - § ¯ã᪠«ª  ¯à®£à ¬¬ ¢ Š®«¨¡à¨Ž‘ ç¥à¥§ 70-î äã­ªæ¨î. RUN - § ¯ã᪠«ª  ¯à®£à ¬¬ ¢ Š®«¨¡à¨Ž‘ ç¥à¥§ 70-î äã­ªæ¨î.
‡ ¯ã᪠¯à®£à ¬¬ ‡ ¯ã᪠¯à®£à ¬¬