keXa/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

run: use big fonts

Browse Source 
git-svn-id: svn://kolibrios.org@6687 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2016-11-07 22:04:04 +00:00
parent 50bcfc998b
commit fd62d79524
1 changed files with 24 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,5 @@
; 24.07.2008 <Lrz> ®¡­®¢«¥­ Edit ¡®ªá window_h=85
; 01.02.07 - ®¡­®¢«ñ­ editbox window_w=430
; 31.01.07 - ¨á¯à ¢«¥­  ­¥ª®àà¥ªâ­ ï ®âà¨á®¢ª  ¯à¨ ¡®«ì讬 §­ ç¥­¨¨ ¢ëá®âë ᪨­ 
; ¢ëà ¢­¨¢ ­¨¥ á­¨§ã ®â­®á¨â¥«ì­® à ¡®ç¥© ®¡« á⨠íªà ­ 
window_y=67
window_x=400
;--- ¤à㣨¥ ¬ ªà®áë --- ;--- ¤à㣨¥ ¬ ªà®áë ---
include '../../../develop/libraries/box_lib/load_lib.mac' include '../../../develop/libraries/box_lib/load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac' include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
@ -170,17 +166,17 @@ draw_window:
mov dx,ax mov dx,ax
mcall 14 mcall 14
xor ecx,ecx xor ecx,ecx
sub cx,window_y+2 sub cx,window_h+40
sub cx,dx sub cx,dx
add cx,si add cx,si
shl ecx,16 shl ecx,16
mov cx,dx mov cx,dx
add cx,window_y add cx,window_h
shr eax,16 shr eax,16
mov bx,ax mov bx,ax
sub bx,window_x sub bx,window_w
shl ebx,15 shl ebx,15
mov bx,window_x mov bx,window_w
mov edx,[sc.work] mov edx,[sc.work]
or edx,0x33000000 or edx,0x33000000
xor esi,esi xor esi,esi
@ -194,17 +190,19 @@ draw_window:
mov [input_fn.width],eax mov [input_fn.width],eax
mov [run_but.width],ax mov [run_but.width],ax
xor bx,bx ; ; draw line
shl ebx,16 ; xor bx,bx
mov bx,ax ; shl ebx,16
add bx,10 ; mov bx,ax
mov cx,45 ; add bx,10
push cx ; mov cx,58
shl ecx,16 ; push cx
pop cx ; shl ecx,16
mov edx,[sc.work_graph] ; pop cx
mcall 38 ; mov edx,[sc.work_graph]
; draw_edit_box input_fn ; mcall 38
; draw_edit_box input_fn
push dword input_fn push dword input_fn
call [edit_box_draw] call [edit_box_draw]
@ -218,7 +216,7 @@ ret
draw_status: draw_status:
mov ebx,[procinfo.box.width] mov ebx,[procinfo.box.width]
sub bx,10 sub bx,10
mov ecx,(50)*65536+12 mov ecx,(60)*65536+15
mov edx,[sc.work] mov edx,[sc.work]
mcall 13 mcall 13
draw_status_text: draw_status_text:
@ -231,11 +229,12 @@ draw_status_text:
jmp @b jmp @b
@@: @@:
mov ecx,[sc.work_text] mov ecx,[sc.work_text]
mcall 4,5*65536+(50) or ecx,0x90000000
mcall 4,5*65536+(60)
ret ret
run_but txt_button 0,5,15,25,2,0,0,run_but_text, run_but txt_button 0,5,20,33,2,0,0x90000000,run_but_text,
input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0,511,fn,mouse_dd,ed_focus+ed_always_focus input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0x90000000,511,fn,mouse_dd,ed_focus+ed_always_focus
;mouse_flag: dd 0x0 ;mouse_flag: dd 0x0
input_fn_end: input_fn_end:
if lang eq ru if lang eq ru