Subversion Repositories Kolibri OS

Rev

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

Rev 3951 Rev 6328
Line 1... Line 1...
1 
;*******************************************************
 1 
;*******************************************************
2 
;**************GRAPHICS EDITOR ANIMAGE *****************
 2 
;**************GRAPHICS EDITOR ANIMAGE *****************
3 
;*******************************************************
 3 
;*******************************************************
- 
 
 4 
; version: 1.4
- 
 
 5 
; last update:  12/03/2016
- 
 
 6 
; changes:      Use library 'libimg.obj'
- 
 
 7 
;--------------------------------------------------------
4 
; version:	1.3
 8 
; version:	1.3
5 
; last update:  05/10/2010
 9 
; last update:  05/10/2010
6 
; written by:   Marat Zakiyanov aka Mario79, aka Mario
 10 
; written by:   Marat Zakiyanov aka Mario79, aka Mario
7 
; changes:      Fixed window flicker when redrawing,
 11 
; changes:      Fixed window flicker when redrawing,
8 
;               Fixed memory leak for stack
 12 
;               Fixed memory leak for stack
Line 18... Line 22...
18 
; programming by andrew_programmer
 22 
; programming by andrew_programmer
19 
; design by golus
 23 
; design by golus
Line 20... Line 24...
20 
 
 24 
 
21 
use32
 25 
use32
22 
org	0x0
 - 
 
23 
 
 26 
org	0x0
24 
	db 'MENUET01'
 27 
	db 'MENUET01'
25 
	dd 0x1
 28 
	dd 0x1
26 
	dd START
 29 
	dd START
27 
	dd IM_END
 30 
	dd IM_END
28 
	dd I_END	;0x19000;100	kb
 31 
	dd I_END
29 
	dd stacktop	;0x19000;
 32 
	dd stacktop
30 
	dd file_path	;parameters
 33 
	dd file_path	;parameters
Line 31... Line -...
31 
	dd cur_dir_path
 - 
 
32 
 
 34 
	dd cur_dir_path
33 
 
 35 
 
- 
 
 36 
include '../../../config.inc'		;for nightbuild
- 
 
 37 
include	'../../../macros.inc'
34 
include '../../../config.inc'		;for nightbuild
 38 
include '../../../proc32.inc'
- 
 
 39 
include '../../../KOSfuncs.inc'
35 
include	'..\..\..\macros.inc'
 40 
include '../../../develop/libraries/box_lib/load_lib.mac'
- 
 
 41 
include '../../../dll.inc'
- 
 
 42 
include '../../../libio.inc'
- 
 
 43 
 
36 
include '../../../develop/libraries/box_lib/load_lib.mac'
 44 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
37 
	@use_library
 45 
 
38 
COLOR_ORDER equ MENUETOS
 46 
COLOR_ORDER equ MENUETOS
39 
include	'gif_lite.inc'
 - 
 
40 
include	'bmplib.inc'
 47 
include	'gif_lite.inc'
41 
;include	'dialog.inc'
 48 
include	'bmplib.inc'
42 
include	'dialog2.inc'
 49 
include	'dialog2.inc'
Line 43... Line 50...
43 
include	'design.inc'
 50 
include	'design.inc'
Line 76... Line 83...
76 
 
 83 
 
77 
	call	drawwin
 84 
	call	drawwin
78 
;---------------------------------------------------------
 85 
;---------------------------------------------------------
79 
;---------Check loading of file from parameters-----------
 86 
;---------Check loading of file from parameters-----------
80 
;---------------------------------------------------------
 - 
 
81 
;	mov	eax,parameters
 - 
 
82 
;	mov	ebx,file_path
 - 
 
83 
;	call	check_loading_from_parameters
 87 
;---------------------------------------------------------
84 
	mov	eax,file_path
 88 
	mov	eax,file_path
85 
	cmp [eax],byte 0
 89 
	cmp [eax],byte 0
86 
	jz @f
 90 
	jz @f
- 
 
 91 
	call load_picture
- 
 
 92 
	call MovePictureToWorkScreen
- 
 
 93 
	mov [Scroll1CoordinatX],9
87 
	call load_picture
 94 
	mov [Scroll2CoordinatY],89
Line 88... Line 95...
88 
@@:
 95 
@@:
89 
 
 96 
 
90 
;---------------------------------------------------------------------
 97 
;---------------------------------------------------------------------
Line 169... Line 176...
169 
;-------------------ICON"S picture-------------------------
 176 
;-------------------ICON"S picture-------------------------
170 
;----------------------------------------------------------
 177 
;----------------------------------------------------------
171 
	dd	0
 178 
	dd	0
172 
panel_picture:
 179 
panel_picture:
173 
file 'panel_buttons.gif'
 180 
file 'panel_buttons.gif'
- 
 
 181 
.end:
174 
;****************cursors******************
 182 
;****************cursors******************
175 
brush_cursor:
 183 
brush_cursor:
176 
file 'brush.cur'
 184 
file 'brush.cur'
177 
;----------------------------------------------------------
 185 
;----------------------------------------------------------
178 
flood_fill_cursor:
 186 
flood_fill_cursor:
Line 312... Line 320...
312 
;---------------------------------------------------------------------
 320 
;---------------------------------------------------------------------
313 
align 4
 321 
align 4
314 
CursorsID	rd 10
 322 
CursorsID	rd 10
315 
;---------------------------------------------------------------------
 323 
;---------------------------------------------------------------------
316 
align 4
 324 
align 4
317 
file_path:
 325 
file_path rb 4096
318 
	rb 4096
 - 
 
319 
;---------------------------------------------------------------------
 - 
 
320 
align 4
 - 
 
321 
filename_area:
 326 
filename_area rb 256
322 
	rb 256
 - 
 
323 
;---------------------------------------------------------------------
 - 
 
324 
align 4
 - 
 
325 
temp_dir_pach:
 327 
temp_dir_pach rb 4096
326 
	rb 4096
 - 
 
327 
;---------------------------------------------------------------------
 - 
 
328 
align 4
 - 
 
329 
library_path:
 328 
library_path rb 4096
330 
	rb 4096
 - 
 
331 
;---------------------------------------------------------------------
 - 
 
332 
align 4
 - 
 
333 
cur_dir_path:
 329 
cur_dir_path rb 4096
334 
	rb 4096
 - 
 
335 
;---------------------------------------------------------------------
 - 
 
336 
align 4
 - 
 
337 
procinfo:
 330 
procinfo: rb 1024
338 
	rb 1024
 - 
 
339 
;---------------------------------------------------------------------
 331 
;---------------------------------------------------------------------
340 
align 4
 332 
align 4
341 
	rb 4096
 333 
	rb 4096
342 
stacktop:
 334 
stacktop:
343 
;---------------------------------------------------------------------
 335 
;---------------------------------------------------------------------