Subversion Repositories Kolibri OS

;*******************************************************

;**************GRAPHICS EDITOR ANIMAGE *****************

;*******************************************************

; version: 1.51

; last update:  23.03.2016

; changes:      Use library 'kmenu.obj', update GUI

; autors:       IgorA, Veliant, Leency

;--------------------------------------------------------

; version: 1.4

; last update:  12.03.2016

; changes:      Use library 'libimg.obj'

; autors:       IgorA

;--------------------------------------------------------

; version: 1.3

; last update:  05.10.2010

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      Fixed window flicker when redrawing,

;               Fixed memory leak for stack

;--------------------------------------------------------

; version: 1.2

; last update:  30.09.2010

; written by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      Program used function 68 instead 64 is now,

;               select path with OpenDialog

;--------------------------------------------------------

; version: 1.1

; last update:  09.12.2006

; autors:

; programming by andrew_programmer

; design by golus

use32

org	0x0

	db 'MENUET01'

	dd 1, START, IM_END, I_END

	dd stacktop, file_path, cur_dir_path

include '../../../config.inc' ;for nightbuild

include	'../../../macros.inc'

include '../../../proc32.inc'

include '../../../KOSfuncs.inc'

include '../../../develop/libraries/box_lib/load_lib.mac'

include '../../../dll.inc'

include '../../../libio.inc'

;include '../../../develop/libraries/libs-dev/libimg/libimg.inc'

@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load

;---------------------------------------------------------

; *** ª®­áâ ­âë ¤«ï ¨­â¥àä¥©á  ***

; *** constants for interface  ***

; ª®à४â¨à®¢ª¨ ­  ᪨­

ci_offs_skin_w equ  5 ;ª®à४â¨à®¢ª  ­  è¨à¨­ã à ¬ª¨ ᪨­ 

ci_offs_skin_h equ 24 ;ª®à४â¨à®¢ª  ­  ¢ëá®âã ᪨­ 

; £« ¢­®¥ ®ª­®

ci_wnd_min_siz_x equ 585 ;minimum size x

ci_wnd_min_siz_y equ 400 ;minimum size y

; ¯ ­¥«ì ¨­áâà㬥­â®¢

ci_panel_x_pos equ  0 ;ª®®à¤. x ¤«ï ¯ ­¥«¨

ci_panel_y_pos equ 20 ;ª®®à¤. y ¤«ï ¯ ­¥«¨

ci_panel_but_y1 equ ci_panel_y_pos +5 ;ª®®à¤. y ¤«ï 1-£® à鸞 ª­®¯®ª

ci_panel_but_y2 equ ci_panel_y_pos+30 ;ª®®à¤. y ¤«ï 2-£® à鸞 ª­®¯®ª

ci_palete_y_pos equ ci_panel_y_pos+51 ;ª®®à¤. y ¤«ï ¯ «¨âàë 梥⮢

ci_panel_zoom_x equ 178 ;ª®®à¤. x ¤«ï ª­®¯®ª ¯ ­¥«¨ ¬ áèâ ¡ 

; ®ª­® । ªâ®à 

ci_edit_wnd_x_pos  equ  0 ;ª®®à¤. x ¤«ï ®ª­  । ªâ®à 

ci_edit_wnd_y_pos  equ 71 ;ª®®à¤. y ¤«ï ®ª­  । ªâ®à 

ci_edit_wnd_border equ  3 ;à ¬ª  ¢®ªà㣠®ª­  । ªâ®à 

; áªà®««¨­£¨

ci_scroll_dim equ 22 ;à §¬¥àë áªà®««¨­£®¢

ci_scrollh_coord_x_min equ (ci_edit_wnd_x_pos+3) ;¬¨­¨¬ «ì­ ï ¯®§¨æ¨ï ¯®«§ã­ª 

	;£®à¨§®­â «ì­®£® áªà®««¨­£ 

ci_scrollv_coord_y_min equ (ci_edit_wnd_y_pos+3) ;¬¨­¨¬ «ì­ ï ¯®§¨æ¨ï ¯®«§ã­ª 

	;¢¥à⨪ «ì­®£® áªà®««¨­£ 

;---------------------------------------------------------

include	'bmplib.inc'

include	'dialog2.inc'

include	'design.inc'

include	'graphlib.inc'

include	'cursors.inc'

include	'memory.inc'

include	'load_from_parameters.inc'

START:

	mcall SF_SYS_MISC,SSF_HEAP_INIT

	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscolors, syscolors_end-syscolors

load_libraries l_libs_start,end_l_libs

	cmp	eax,-1

	jz	close

	mcall SF_SET_EVENTS_MASK,0x80000067 ; 1100111b

;---------------------------------------------------------

;-----------------------init data-------------------------

;---------------------------------------------------------

include	'init_data.inc'

;----------------------------------------------------------

;--------get memory and draw window of program-------------

;----------------------------------------------------------

	call GetMemory

	mov	[Current_instrument],10 ;pencil

	call TakeButtonInstruments  ;set startup instrument

	call cleare_work_arrea

	call load_icons

	call init_main_menu

;load cursors

	mov	eax,CursorsID

	call load_cursors

;---------------------------------------------------------

;---------check loading of file from parameters-----------

;---------------------------------------------------------

	mov	eax,file_path

	cmp [eax],byte 0

	jz @f

	call load_picture

	call MovePictureToWorkScreen

@@:

;---------------------------------------------------------------------

	mov	edi,filename_area

	mov	esi,path4+5

	call	copy_str_1

	mov	edi,file_path

	cmp	[edi],byte 0

	jne	@f

	mov	esi,path4

	call	copy_str_1

@@:

;OpenDialog	initialisation

	stdcall [OpenDialog_Init], OpenDialog_data

;---------------------------------------------------------------------

align 4

red:

	call drawwin

;----------------------------------------------------------

;---------------------main loop----------------------------

;----------------------------------------------------------

align 4

still:

	mcall SF_WAIT_EVENT

	cmp	eax,1

	je	red

	cmp	eax,2

	je	keys

	cmp	eax,3

	je	buttons

	cmp	eax,6

	je	mouse

	jmp	still

;---------------------------------------------------------------------

copy_str_1:

	xor	eax,eax

	cld

@@:

	lodsb

	stosb

	test	eax,eax

	jnz	@b

	ret

;---------------------------------------------------------------------

include	'events.inc'

include	'events_of_window.inc'

include	'events_of_keys.inc'

include	'events_of_buttons.inc'

include	'events_of_mouse.inc'

include	'panel_engen.inc'

include	'screen.inc'

include 'menu_instruments.inc'