KolibriOS/kolibrios
13
14
Fork 12
Code Issues 113 Pull Requests 16 Actions Projects 1 Releases Wiki Activity

upgrade RUN, add new edit_box

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

1263
programs/system/run/trunk/editbox.inc
View File

File diff suppressed because it is too large Load Diff

7
programs/system/run/trunk/macros.inc
View File

@@ -1,13 +1,6 @@
;--- <EFBFBD><EFBFBD>㣨<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
include 'editbox.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'
;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---

30
programs/system/run/trunk/run.asm
View File

@@ -156,24 +156,23 @@ draw_window:
shl ebx,15
mov bx,window_x
mov edx,[sc.work]
or edx,0x03000000
or edx,0xb3000000
xor eax,eax
xor esi,esi
xor edi,edi
mov esi,[sc.grab_text]
mov edi,hed
int 0x40
get_procinfo app
mov ax,[app.width]
sub ax,20
mov [input_fn.width],ax
mov [input_fn.width],eax
mov [run_but.width],ax
mov bx,5
shl ebx,16
mov ebx,10000
mov bx,ax
add bx,15
mov cx,70
add bx,10
mov cx,47
push cx
shl ecx,16
pop cx
@@ -190,8 +189,8 @@ draw_window:
ret
draw_status:
mov ebx,5*65536+(window_x-5-5)
mov ecx,(window_y-16)*65536+12
mov ebx,5*65536+(window_x-5-10)
mov ecx,(window_y-39)*65536+12
mov edx,[sc.work]
mov eax,13
int 0x40
@@ -205,18 +204,18 @@ draw_status_text:
jmp @b
@@:
mov eax,4
mov ebx,10*65536+(window_y-14)
mov ebx,6*65536+(window_y-37)
mov ecx,[sc.work_text]
int 0x40
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
run_but_text db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
else
run_but_text db 'RUN',0
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
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
end if
if lang eq ru
hed db 'RUN <20><> <20><>ࢮ<EFBFBD><E0A2AE> <20><><EFBFBD>ࠫ<EFBFBD> 2007 <20><><EFBFBD><EFBFBD>',0
else
hed db 'RUN of the first of FEBRUARY 2007 year',0
end if
status dd hello
file_info:

3
programs/system/run/trunk/run.txt
View File

@@ -1,3 +1,6 @@
<Lrz> 01.02.2007 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>୨<EFBFBD><E0ADA8>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> edit_box,
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>訫 <20> <20><>९<EFBFBD>ᠫ <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.
RUN - <20><><EFBFBD><EFBFBD>᪠<EFBFBD><E1AAA0><EFBFBD> <20>ணࠬ<E0AEA3> <20> <20><><EFBFBD><EFBFBD><EFBFBD>਎<EFBFBD> <20><>१ 70-<2D> <20>㭪<EFBFBD><E3ADAA><EFBFBD>.
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3>