Subversion Repositories Kolibri OS

Rev

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

Rev 7415 Rev 7441
Line 12... Line 12...
12 
include 'lang.inc'
 12 
include 'lang.inc'
13 
include 'cnc_editor.inc'
 13 
include 'cnc_editor.inc'
14 
include '../../develop/info3ds/info_fun_float.inc'
 14 
include '../../develop/info3ds/info_fun_float.inc'
Line 15... Line 15...
15 
 
 15 
 
16 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 16 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
Line 17... Line 17...
17 
caption db 'CNC editor 24.09.18',0 ;¯®¤¯¨áì ®ª­ 
 17 
caption db 'CNC editor 08.10.18',0 ;¯®¤¯¨áì ®ª­ 
Line 18... Line 18...
18 
 
 18 
 
Line 319... Line 319...
319 
pushad
 319 
pushad
320 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
 320 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
Line 321... Line 321...
321 
 
 321 
 
322 
	; *** à¨á®¢ ­¨¥ £« ¢­®£® ®ª­  (¢ë¯®«­ï¥âáï 1 à § ¯à¨ § ¯ã᪥) ***
 322 
	; *** à¨á®¢ ­¨¥ £« ¢­®£® ®ª­  (¢ë¯®«­ï¥âáï 1 à § ¯à¨ § ¯ã᪥) ***
323 
	mov edx,[sc.work]
 323 
	mov edx,[sc.work]
324 
	or  edx,(3 shl 24)+0x10000000+0x20000000
 324 
	or  edx,0x33000000
325 
	mov edi,caption
 325 
	mov edi,caption
Line 326... Line 326...
326 
	mcall SF_CREATE_WINDOW,(20 shl 16)+599,(20 shl 16)+415
 326 
	mcall SF_CREATE_WINDOW,(20 shl 16)+599,(20 shl 16)+415
327 
 
 327 
 
Line 361... Line 361...
361 
		mov dword[offs_last_timer],0
 361 
		mov dword[offs_last_timer],0
362 
		call timer_funct
 362 
		call timer_funct
363 
	.end0:
 363 
	.end0:
Line 364... Line 364...
364 
 
 364 
 
365 
	; *** ᮧ¤ ­¨¥ ª­®¯®ª ­  ¯ ­¥«ì ***
 365 
	; *** ᮧ¤ ­¨¥ ª­®¯®ª ­  ¯ ­¥«ì ***
366 
	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3,, [sc.work_button]
 - 
 
367 
 
 - 
 
368 
	mov ebx,(30 shl 16)+20
 - 
 
369 
	mov edx,4 ;0x4000000?
 - 
 
Line 370... Line 366...
370 
	int 0x40 ;open
 366 
	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3, [sc.work_button]
- 
 
 367 
 
371 
 
 368 
	add ebx,25 shl 16
372 
	add ebx,25 shl 16
 369 
	mcall ,,,4 ;open
Line 373... Line 370...
373 
	mov edx,5
 370 
	add ebx,25 shl 16
374 
	int 0x40 ;save
 - 
 
375 
 
 371 
	mcall ,,,5 ;save
Line 376... Line 372...
376 
	add ebx,30 shl 16
 372 
 
377 
	mov edx,6
 - 
 
378 
	int 0x40 ;captions on off
 373 
	add ebx,30 shl 16
379 
 
 374 
	mcall ,,,6 ;captions on off
380 
	add ebx,25 shl 16
 - 
 
381 
	mov edx,7
 375 
 
Line 382... Line 376...
382 
	int 0x40 ;figure move up
 376 
	add ebx,25 shl 16
383 
	add ebx,25 shl 16
 - 
 
384 
	mov edx,8
 377 
	mcall ,,,7 ;figure move up
Line 385... Line 378...
385 
	int 0x40 ;figure move down
 378 
	add ebx,25 shl 16
386 
 
 - 
 
387 
	add ebx,25 shl 16
 379 
	mcall ,,,8 ;figure move down
388 
	mov edx,9
 380 
 
389 
	int 0x40 ;sel points dlg
 - 
 
390 
 
 381 
	add ebx,25 shl 16
Line 391... Line 382...
391 
	add ebx,25 shl 16
 382 
	mcall ,,,9 ;sel points dlg
392 
	mov edx,10
 - 
 
393 
	int 0x40 ;sel points move up
 383 
 
394 
	add ebx,25 shl 16
 384 
	add ebx,25 shl 16
395 
	mov edx,11
 - 
 
396 
	int 0x40 ;sel points move down
 385 
	mcall ,,,10 ;sel points move up
397 
 
 386 
	add ebx,25 shl 16
398 
	add ebx,25 shl 16
 - 
 
399 
	mov edx,12
 387 
	mcall ,,,11 ;sel points move down
400 
	int 0x40 ;align sel points left
 388 
 
401 
	add ebx,25 shl 16
 - 
 
402 
	mov edx,13
 389 
	add ebx,25 shl 16
Line 403... Line 390...
403 
	int 0x40 ;align sel points right
 390 
	mcall ,,,12 ;align sel points left
404 
	add ebx,25 shl 16
 - 
 
405 
	mov edx,14
 391 
	add ebx,25 shl 16
406 
	int 0x40 ;align sel points top
 392 
	mcall ,,,13 ;align sel points right
407 
	add ebx,25 shl 16
 - 
 
408 
	mov edx,15
 393 
	add ebx,25 shl 16
Line 409... Line 394...
409 
	int 0x40 ;align sel points bottom
 394 
	mcall ,,,14 ;align sel points top
410 
 
 - 
 
411 
	add ebx,25 shl 16
 395 
	add ebx,25 shl 16
Line 412... Line 396...
412 
	mov edx,16
 396 
	mcall ,,,15 ;align sel points bottom
413 
	int 0x40 ;copy to clipboard
 - 
 
414 
	add ebx,25 shl 16
 397 
 
Line 415... Line 398...
415 
	mov edx,17
 398 
	add ebx,25 shl 16
416 
	int 0x40 ;paste from clipboard
 - 
 
417 
 
 399 
	mcall ,,,16 ;copy to clipboard
Line 418... Line 400...
418 
	add ebx,25 shl 16
 400 
	add ebx,25 shl 16
419 
	mov edx,18
 - 
 
420 
	int 0x40 ;sel points del
 401 
	mcall ,,,17 ;paste from clipboard
Line 421... Line 402...
421 
 
 402 
 
422 
	add ebx,30 shl 16
 403 
	add ebx,25 shl 16
Line 423... Line 404...
423 
	mov edx,19
 404 
	mcall ,,,18 ;sel points del