Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 484 → Rev 485

/programs/system/rdsave/trunk/rdsave.asm
8,7 → 8,7
;
;---------------------------------------------------------------------
include 'lang.inc'
include 'macros.inc'
include '..\..\..\macros.inc'
 
appname equ 'RDsave '
version equ '1.2'
20,13 → 20,13
dd 0x01 ; ¢¥àá¨ï § £®«®¢ª  (¢á¥£¤  1)
dd START ;  ¤à¥á ¯¥à¢®© ª®¬ ­¤ë
dd I_END ; à §¬¥à ¯à®£à ¬¬ë
dd 0x1000 ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
dd 0x1000 ;  ¤à¥á ¢¥à設ë áâíª 
dd 0x2000 ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
dd 0x2000 ;  ¤à¥á ¢¥à設ë áâíª 
dd 0x0 ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
dd 0x0 ; § à¥§¥à¢¨à®¢ ­®
 
include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
use_edit_box
use_edit_box structure_of_potock,22,5
 
;---------------------------------------------------------------------
;--- €—€‹Ž Žƒ€ŒŒ› ----------------------------------------------
35,7 → 35,7
START:
mov eax, 40
mov ebx, 100111b
int 0x40
mcall
red: ; ¯¥à¥à¨á®¢ âì ®ª­®
call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
 
46,7 → 46,7
still:
push 10
pop eax
int 40h
mcall
 
dec eax ; ¯¥à¥à¨á®¢ âì ®ª­®?
jz red ; ¥á«¨ ¤  - ­  ¬¥âªã red
61,12 → 61,12
button:
mov al,17 ; ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
int 0x40
mcall
 
cmp ah,1 ; ª­®¯ª  á id=1("§ ªàëâì")?
jne noclose
or eax,-1 ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
int 0x40
mcall
 
noclose:
cmp ah,2
74,7 → 74,7
call clear_err
mov al,16
mov ebx,1
int 0x40
mcall
call check_for_error
jmp still
path_2:
83,7 → 83,7
call clear_err
mov al,16
mov ebx,2
int 0x40
mcall
call check_for_error
jmp still
path_3:
93,7 → 93,7
mov al,18
mov ebx,6
mov ecx,path3
int 0x40
mcall
call check_for_error
jmp still
path_4:
101,13 → 101,13
mov eax,18
mov ebx,6
mov ecx,path4
int 0x40
mcall
call check_for_error
jmp still
 
key:
mov al,2
int 0x40
mcall
key_edit_boxes editbox,editbox_end
jmp still
 
163,7 → 163,7
mov eax,4 ;­ ¤¯¨á¨
mov ebx,20 shl 16 + 148
or ecx,0x80000000
int 0x40
mcall
ret
 
clear_err:
171,7 → 171,7
mov ebx,15 shl 16 + 240
mov ecx,145 shl 16 +15
mov edx,[sc.work]
int 0x40
mcall
ret
 
;---------------------------------------------------------------------
184,11 → 184,11
mov ebx,3
mov ecx,sc
mov edx,sizeof.system_colors
int 0x40
mcall
 
mov eax,12 ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
mov bl,1 ; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
int 0x40
mcall
 
; ‘Ž‡„€ðŒ ŽŠŽ
xor eax,eax ; äã­ªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª­®
196,25 → 196,25
mov ecx,200 shl 16 + 190 ; [y áâ àâ] *65536 + [y à §¬¥à]
mov edx,[sc.work] ; 梥â à ¡®ç¥© ®¡« á⨠RRGGBB,8->color gl
or edx,0x33000000
mov edi,header ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
int 0x40
mov edi,title ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
mcall
 
draw_edit_boxes editbox,editbox_end ;à¨á®¢ ­¨¥ edit box'®¢
draw_edit_boxes editbox,editbox_end,use_f9,structure_of_potock ;à¨á®¢ ­¨¥ edit box'®¢
 
mov al,13 ;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
mov ebx,194 shl 16 + 60
mov ecx,34 shl 16 +15
mov edx,0x444444
int 0x40
mcall
 
add ecx,20 shl 16
int 0x40
mcall
 
add ecx,20 shl 16
int 0x40
mcall
 
add ecx,40 shl 16
int 0x40
mcall
 
mov eax,8 ;®âà¨á®¢ª  ª­®¯®ª
sub ebx,4 shl 16
221,19 → 221,19
sub ecx,4 shl 16
mov edx,5
mov esi,[sc.work_button]
int 0x40
mcall
 
sub ecx,40 shl 16
dec edx
int 0x40
mcall
 
sub ecx,20 shl 16
dec edx
int 0x40
mcall
 
sub ecx,20 shl 16
dec edx
int 0x40
mcall
 
mov al,4 ;­ ¤¯¨á¨
mov ebx,45 shl 16 + 12
240,46 → 240,46
mov ecx,[sc.work_text]
or ecx,0x80000000
mov edx,label1
int 0x40
mcall
 
mov ebx,150 shl 16 + 35
mov edx,path1
int 0x40
mcall
 
add ebx,20
mov edx,path2
int 0x40
mcall
 
mov ebx,75 shl 16 + 75
mov edx,path3
int 0x40
mcall
 
mov ebx,30 shl 16 + 97
mov edx,label2
int 0x40
mcall
 
mov ebx,40 shl 16 + 135
mov edx,label3
int 0x40
mcall
 
mov ecx,[sc.work_button_text]
or ecx,0x80000000
mov ebx,195 shl 16 + 35
mov edx,save
int 0x40
mcall
 
add ebx,20
int 0x40
mcall
 
add ebx,20
int 0x40
mcall
 
add ebx,40
int 0x40
mcall
 
mov al,12 ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
mov ebx,2 ; 2, § ª®­ç¨«¨ à¨á®¢ âì
int 0x40
mcall
 
ret ; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë
 
288,18 → 288,12
;--- „€›… Žƒ€ŒŒ› ----------------------------------------------
;---------------------------------------------------------------------
 
header db appname,version,0
title db appname,version,0
 
editbox:
edit1 edit_box 170,10,113,0xffffff,0,0,0,512,path4,ed_focus,26
edit1 edit_box 170,10,113,0xffffff,0xaabbcc,0,0,0,512,path4,ed_focus,26,26
editbox_end:
 
path1 db '/fd/1/',0
path2 db '/fd/2/',0
path3 db '/hd0/1/kolibri.img',0
path4 db '/hd0/1/kolibri/kolibri.img',0 ;¤«ï १¥à¢­®£® á®åà ­¥­¨ï
rb 513
 
if lang eq ru
save db '‘®åà ­¨âì',0
label1 db '‚ë¡¥à¨â¥ ®¤¨­ ¨§ ¢ à¨ ­â®¢:',0
329,10 → 323,20
end if
 
mouse_flag: dd 0x0
 
path1 db '/fd/1/',0
path2 db '/fd/2/',0
path3 db '/hd0/1/kolibri.img',0
path4 db '/hd0/1/kolibri/kolibri.img',0 ;¤«ï १¥à¢­®£® á®åà ­¥­¨ï
 
;---------------------------------------------------------------------
I_END: ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë
 
rb 514
 
sc system_colors
 
structure_of_potock:
rb 100
;---------------------------------------------------------------------
 
I_END: ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë
 
sc system_colors