Subversion Repositories Kolibri OS

Rev

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

Rev 3366 Rev 4308
Line 61... Line 61...
61 
align 4
 61 
align 4
62 
On_SaveAndNewFile:
 62 
On_SaveAndNewFile:
63 
  push edi
 63 
  push edi
64 
  mov edi, tedit0
 64 
  mov edi, tedit0
Line 65... Line 65...
65 
 
 65 
 
66 
  stdcall [ted_but_save_file],edi,run_file_70,[edit1.text]
 66 
  call ted_but_save_file
67 
  cmp ted_err_save,0
 67 
  cmp ted_err_save,0
68 
  jne @f
 68 
  jne @f
69 
    call On_NewFile
 69 
    call On_NewFile
70 
  @@:
 70 
  @@:
Line 74... Line 74...
74 
;description:
 74 
;description:
75 
; äã­ªæ¨ï ®âªàëâ¨ï ä ©«  ¡¥§ ®ª­  á®®¡é¥­¨ï
 75 
; äã­ªæ¨ï ®âªàëâ¨ï ä ©«  ¡¥§ ®ª­  á®®¡é¥­¨ï
76 
align 4
 76 
align 4
77 
but_no_msg_OpenFile:
 77 
but_no_msg_OpenFile:
78 
	push eax ebx
 78 
	push eax ebx
79 
	stdcall [ted_open_file], tedit0,run_file_70,[edit1.text]
 79 
	stdcall [ted_open_file], tedit0,run_file_70,openfile_path
80 
	call ted_messages_after_open_file
 80 
	call ted_messages_after_open_file
81 
	pop ebx eax
 81 
	pop ebx eax
82 
	ret
 82 
	ret
Line 83... Line 83...
83 
 
 83 
 
Line 113... Line 113...
113 
		stdcall [mb_create],msgbox_9,thread ;message: error run 'open file dialog'
 113 
		stdcall [mb_create],msgbox_9,thread ;message: error run 'open file dialog'
114 
		jmp .ret_f
 114 
		jmp .ret_f
115 
	@@:
 115 
	@@:
116 
	cmp [OpenDialog_data.status],1
 116 
	cmp [OpenDialog_data.status],1
117 
	jne .ret_f
 117 
	jne .ret_f
118 
		mov esi,[OpenDialog_data.openfile_path]
 118 
		stdcall [PathShow_prepare], PathShow_data_1
119 
		call strlen
 - 
 
120 
		mov [edit1.size],eax
 - 
 
121 
		mov [edit1.pos],eax
 - 
 
122 
		stdcall [edit_box_draw], edit1
 119 
		stdcall [PathShow_draw], PathShow_data_1
Line 123... Line 120...
123 
 
 120 
 
- 
 
 121 
		;¨é¥¬ ¥áâì «¨ ä ©« ¯®¤á¢¥âª¨ ¤«ï ®âªà뢠¥¬®£® ⥪á⮢®£® ä ©« 
- 
 
 122 
		mov esi,[OpenDialog_data.openfile_path]
124 
		;¨é¥¬ ¥áâì «¨ ä ©« ¯®¤á¢¥âª¨ ¤«ï ®âªà뢠¥¬®£® ⥪á⮢®£® ä ©« 
 123 
		call strlen
125 
		mov edx,[edit1.text]
 124 
		mov edx,openfile_path
126 
		add edx,eax
 125 
		add edx,eax
127 
		.f_beg:
 126 
		.f_beg:
128 
		cmp byte[edx],'.'
 127 
		cmp byte[edx],'.'
129 
		je .found
 128 
		je .found
130 
			dec edx
 129 
			dec edx
131 
			cmp edx,[edit1.text]
 130 
			cmp edx,openfile_path
132 
			jg .f_beg
 131 
			jg .f_beg
133 
		.found:
 132 
		.found:
Line 134... Line 133...
134 
		inc edx ;edx - 㪠§ â¥«ì ­  à áè¨à¥­¨¥ ®âªàë⮣® ä ©« 
 133 
		inc edx ;edx - 㪠§ â¥«ì ­  à áè¨à¥­¨¥ ®âªàë⮣® ä ©« 
Line 148... Line 147...
148 
			;mov ecx,ebx
 147 
			;mov ecx,ebx
149 
			;mcall 71,1
 148 
			;mcall 71,1
150 
			call open_unpac_synt_file
 149 
			call open_unpac_synt_file
151 
		.end_0:
 150 
		.end_0:
Line 152... Line 151...
152 
 
 151 
 
153 
		stdcall [ted_open_file], tedit0,run_file_70,[edit1.text]
 152 
		stdcall [ted_open_file], tedit0,run_file_70,openfile_path
Line 154... Line 153...
154 
		call ted_messages_after_open_file
 153 
		call ted_messages_after_open_file
155 
 
 154 
 
156 
	.ret_f:
 155 
	.ret_f:
Line 157... Line 156...
157 
	popad
 156 
	popad
- 
 
 157 
	ret
- 
 
 158 
 
- 
 
 159 
;description:
- 
 
 160 
; äã­ªæ¨ï á®åà ­¥­¨ï ä ©«  á ¢ë§®¢®¬ ®ª­  ¤¨ «®£ 
- 
 
 161 
align 4
- 
 
 162 
proc ted_but_save_file
- 
 
 163 
	;*** ¢ë§®¢ ¤¨ «®£®¢®£® ®ª­  ¤«ï á®åà ­¥­¨ï ä ©« 
- 
 
 164 
	copy_path open_dialog_name,communication_area_default_path,file_name,0
- 
 
 165 
	mov [OpenDialog_data.type],1
- 
 
 166 
	stdcall [OpenDialog_Start],OpenDialog_data
- 
 
 167 
	cmp [OpenDialog_data.status],1 ;if status==1 then save
- 
 
 168 
	jne .end_save_file
- 
 
 169 
		stdcall [PathShow_prepare], PathShow_data_1
- 
 
 170 
		stdcall [ted_save_file],tedit0,run_file_70,openfile_path
- 
 
 171 
	.end_save_file:
- 
 
 172 
	ret
158 
	ret
 173 
endp
159 
 
 174 
 
160 
;description:
 175 
;description:
161 
; ª®¯¨à®¢ ­¨¥ ¯ ¬ïâ¨
 176 
; ª®¯¨à®¢ ­¨¥ ¯ ¬ïâ¨
162 
align 4
 177 
align 4
Line 214... Line 229...
214 
		sub ecx,2 ;ecx = ¬ ªá¨¬ «ì­®¥ ç¨á«® ¡ ©â, ¤«ï ª®â®àëå ¡ë«  ¢ë¤¥«¥­  ¯ ¬ïâì
 229 
		sub ecx,2 ;ecx = ¬ ªá¨¬ «ì­®¥ ç¨á«® ¡ ©â, ¤«ï ª®â®àëå ¡ë«  ¢ë¤¥«¥­  ¯ ¬ïâì
215 
		cmp ebx,ecx
 230 
		cmp ebx,ecx
216 
		jl .ret_f
 231 
		jl .ret_f
217 
			stdcall [mb_create],msgbox_1,thread
 232 
			stdcall [mb_create],msgbox_1,thread
218 
	.ret_f:
 233 
	.ret_f:
- 
 
 234 
	stdcall [PathShow_prepare], PathShow_data_1
219 
	pop edi ecx
 235 
	pop edi ecx
220 
	ret
 236 
	ret
Line 221... Line 237...
221 
 
 237 
 
222 
align 4
 238 
align 4
Line 263... Line 279...
263 
	mov esi,ebx
 279 
	mov esi,ebx
264 
	mov ecx,32
 280 
	mov ecx,32
265 
	cld
 281 
	cld
266 
	rep movsb
 282 
	rep movsb
Line 267... Line 283...
267 
 
 283 
 
268 
	copy_path ebx,fn_syntax_dir,file_name_rez,0
 284 
	copy_path ebx,fn_syntax_dir,syntax_path,0
269 
	copy_path file_name_rez,sys_path,file_name,0
 285 
	copy_path syntax_path,sys_path,file_name,0
270 
	mov edi, tedit0
 286 
	mov edi, tedit0
271 
	mov [run_file_70.Function], 0
 287 
	mov [run_file_70.Function], 0
272 
	mov [run_file_70.Position], 0
 288 
	mov [run_file_70.Position], 0
273 
	mov [run_file_70.Flags], 0
 289 
	mov [run_file_70.Flags], 0
Line 306... Line 322...
306 
	ret
 322 
	ret
Line 307... Line 323...
307 
 
 323 
 
308 
;description:
 324 
;description:
309 
; ¢ë§®¢/áªàë⨥ ¯ ­¥«¨ ¯®¨áª 
 325 
; ¢ë§®¢/áªàë⨥ ¯ ­¥«¨ ¯®¨áª 
310 
align 4
 326 
align 4
311 
proc ted_but_find
 - 
 
312 
  push edi
 327 
proc ted_but_find uses edi
Line 313... Line 328...
313 
  mov edi,tedit0
 328 
	mov edi,tedit0
314 
 
 329 
 
315 
  cmp ted_panel_id,TED_PANEL_NULL
 330 
	cmp ted_panel_id,TED_PANEL_NULL
Line 321... Line 336...
321 
    mov ted_panel_id,TED_PANEL_FIND
 336 
		mov ted_panel_id,TED_PANEL_FIND
322 
    mov ted_wnd_l,TED_PANEL_WIDTH
 337 
		mov ted_wnd_l,TED_PANEL_WIDTH
323 
  .e_if:
 338 
	.e_if:
324 
  call EvSize
 339 
	call EvSize
325 
  stdcall [ted_draw],edi
 340 
	stdcall [ted_draw],edi
326 
  pop edi
 - 
 
327 
  ret
 341 
	ret
328 
endp
 342 
endp
Line 329... Line 343...
329 
 
 343 
 
- 
 
 344 
align 4
- 
 
 345 
tbl_1251_866:
- 
 
 346 
rb 128
- 
 
 347 
db   0,  0,  0,  0,  0,  0,  0,  0,  0,0,0,0,0,0,0,0 ;128
- 
 
 348 
db   0,  0,  0,  0,  0,  0,  0,  0,  0,0,0,0,0,0,0,0 ;144
- 
 
 349 
db   0,  0,  0,  0,  0,  0,  0,  0,240,0,0,0,0,0,0,0 ;160
- 
 
 350 
db   0,  0,  0,  0,  0,  0,  0,  0,241,0,0,0,0,0,0,0 ;176
- 
 
 351 
db 128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143 ;192
- 
 
 352 
db 144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159 ;208
- 
 
 353 
db 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175 ;224
- 
 
 354 
db 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239 ;240
- 
 
 355 
 
- 
 
 356 
align 4
- 
 
 357 
tbl_866_1251:
- 
 
 358 
rb 128
- 
 
 359 
db 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207 ;128
- 
 
 360 
db 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223 ;144
- 
 
 361 
db 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239 ;160
- 
 
 362 
db   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;176
- 
 
 363 
db   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;192
- 
 
 364 
db   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;208
- 
 
 365 
db 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255 ;224
- 
 
 366 
db 168,184,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;240
- 
 
 367 
 
330 
align 4
 368 
align 4
331 
ted_on_find_err:
 369 
ted_on_find_err:
332 
	stdcall [mb_create],msgbox_7,thread ;message: Can not find text
 370 
	stdcall [mb_create],msgbox_7,thread ;message: Can not find text
Line 333... Line 371...
333 
	ret
 371 
	ret