Subversion Repositories Kolibri OS

Rev

Rev 3942 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3942 Rev 6687
Line 1... Line -...
1 
; 24.07.2008  ®¡­®¢«¥­ Edit ¡®ªá
 - 
 
2 
; 01.02.07 - ®¡­®¢«ñ­ editbox
 - 
 
3 
; 31.01.07 - ¨á¯à ¢«¥­  ­¥ª®àà¥ªâ­ ï ®âà¨á®¢ª  ¯à¨ ¡®«ì讬 §­ ç¥­¨¨ ¢ëá®âë ᪨­ 
 - 
 
4 
;            ¢ëà ¢­¨¢ ­¨¥ á­¨§ã ®â­®á¨â¥«ì­® à ¡®ç¥© ®¡« á⨠íªà ­ 
 - 
 
5 
window_y=67
 1 
window_h=85
6 
window_x=400
 2 
window_w=430
7 
;--- ¤à㣨¥ ¬ ªà®áë ---
 3 
;--- ¤à㣨¥ ¬ ªà®áë ---
8 
include '../../../develop/libraries/box_lib/load_lib.mac'
 4 
include '../../../develop/libraries/box_lib/load_lib.mac'
9 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 5 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
10 
include 'txtbut.inc'
 6 
include 'txtbut.inc'
11 
include '../../../macros.inc'
 7 
include '../../../macros.inc'
Line 168... Line 164...
168 
	mcall	12,1
 164 
	mcall	12,1
169 
	mcall	48,4
 165 
	mcall	48,4
170 
	mov	dx,ax
 166 
	mov	dx,ax
171 
	mcall	14
 167 
	mcall	14
172 
	xor	ecx,ecx
 168 
	xor	ecx,ecx
173 
	sub	cx,window_y+2
 169 
	sub	cx,window_h+40
174 
	sub	cx,dx
 170 
	sub	cx,dx
175 
	add	cx,si
 171 
	add	cx,si
176 
	shl	ecx,16
 172 
	shl	ecx,16
177 
	mov	cx,dx
 173 
	mov	cx,dx
178 
	add	cx,window_y
 174 
	add	cx,window_h
179 
	shr	eax,16
 175 
	shr	eax,16
180 
	mov	bx,ax
 176 
	mov	bx,ax
181 
	sub	bx,window_x
 177 
	sub	bx,window_w
182 
	shl	ebx,15
 178 
	shl	ebx,15
183 
	mov	bx,window_x
 179 
	mov	bx,window_w
184 
	mov	edx,[sc.work]
 180 
	mov	edx,[sc.work]
185 
	or	edx,0x33000000
 181 
	or	edx,0x33000000
186 
	xor	esi,esi
 182 
	xor	esi,esi
187 
	mov	edi,grab_text
 183 
	mov	edi,grab_text
188 
	mcall	0
 184 
	mcall	0
Line 192... Line 188...
192 
	mov	eax,[procinfo.box.width]
 188 
	mov	eax,[procinfo.box.width]
193 
	sub	eax,20
 189 
	sub	eax,20
194 
	mov	[input_fn.width],eax
 190 
	mov	[input_fn.width],eax
195 
	mov	[run_but.width],ax
 191 
	mov	[run_but.width],ax
Line -... Line 192...
- 
 
 192 
 
196 
 
 193 
	; ; draw line
197 
	xor	bx,bx
 194 
	; xor	bx,bx
198 
	shl	ebx,16
 195 
	; shl	ebx,16
199 
	mov	bx,ax
 196 
	; mov	bx,ax
200 
	add	bx,10
 197 
	; add	bx,10
201 
	mov	cx,45
 198 
	; mov	cx,58
202 
	push	cx
 199 
	; push	cx
203 
	shl	ecx,16
 200 
	; shl	ecx,16
204 
	pop	cx
 201 
	; pop	cx
205 
	mov	edx,[sc.work_graph]
 202 
	; mov	edx,[sc.work_graph]
- 
 
 203 
	; mcall	38
206 
	mcall	38
 204 
 
207 
;        draw_edit_box input_fn
 205 
	; draw_edit_box input_fn
208 
	push	dword input_fn
 206 
	push	dword input_fn
Line 209... Line 207...
209 
	call	[edit_box_draw]
 207 
	call	[edit_box_draw]
Line 216... Line 214...
216 
ret
 214 
ret
Line 217... Line 215...
217 
 
 215 
 
218 
draw_status:
 216 
draw_status:
219 
	mov	ebx,[procinfo.box.width]
 217 
	mov	ebx,[procinfo.box.width]
220 
	sub	bx,10
 218 
	sub	bx,10
221 
	mov	ecx,(50)*65536+12
 219 
	mov	ecx,(60)*65536+15
222 
	mov	edx,[sc.work]
 220 
	mov	edx,[sc.work]
223 
	mcall	13
 221 
	mcall	13
224 
draw_status_text:
 222 
draw_status_text:
225 
	mov	edx,[status]
 223 
	mov	edx,[status]
Line 229... Line 227...
229 
	je	@f
 227 
	je	@f
230 
	inc	esi
 228 
	inc	esi
231 
	jmp	@b
 229 
	jmp	@b
232 
@@:
 230 
@@:
233 
	mov	ecx,[sc.work_text]
 231 
	mov	ecx,[sc.work_text]
- 
 
 232 
	or  ecx,0x90000000
234 
	mcall	4,5*65536+(50)
 233 
	mcall	4,5*65536+(60)
235 
ret
 234 
ret
Line 236... Line 235...
236 
 
 235 
 
237 
run_but txt_button 0,5,15,25,2,0,0,run_but_text,
 236 
run_but txt_button 0,5,20,33,2,0,0x90000000,run_but_text,
238 
input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0,511,fn,mouse_dd,ed_focus+ed_always_focus
 237 
input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0x90000000,511,fn,mouse_dd,ed_focus+ed_always_focus
239 
;mouse_flag: dd 0x0
 238 
;mouse_flag: dd 0x0
240 
input_fn_end:
 239 
input_fn_end:
241 
if lang eq ru
 240 
if lang eq ru
242 
	hello db '‚¢¥¤¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã ¨ ­ ¦¬¨â¥ Enter',0
 241 
	hello db '‚¢¥¤¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã ¨ ­ ¦¬¨â¥ Enter',0