Subversion Repositories Kolibri OS

Rev

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

Rev 6100 Rev 6129
Line 26... Line 26...
26 
ends
 26 
ends
Line 27... Line 27...
27 
 
 27 
 
28 
image_data dd 0 ;указатель на временную память, нужен для преобразования изображения
 28 
image_data dd 0 ;указатель на временную память, нужен для преобразования изображения
29 
image_data_toolbar dd 0
 29 
image_data_toolbar dd 0
30 
IMAGE_FILE1_SIZE equ 128*144*3+54 ;размер файла с изображением
 30 
IMAGE_FILE1_SIZE equ 128*144*3+54 ;размер файла с изображением
31 
IMAGE_TOOLBAR_ICON_SIZE equ 256*3
 31 
IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
Line 32... Line 32...
32 
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*3+54
 32 
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*3+54
33 
 
 33 
 
34 
macro load_image_file path,buf,size { ;макрос для загрузки изображений
 34 
macro load_image_file path,buf,size { ;макрос для загрузки изображений
Line 128... Line 128...
128 
	pushad
 128 
	pushad
129 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
 129 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
130 
	mcall SF_CREATE_WINDOW,(50 shl 16)+420,(30 shl 16)+410,0x33ffffff,,caption
 130 
	mcall SF_CREATE_WINDOW,(50 shl 16)+420,(30 shl 16)+410,0x33ffffff,,caption
Line 131... Line 131...
131 
 
 131 
 
132 
	mov esi,[sc.work_button]
 132 
	mov esi,[sc.work_button]
133 
	mcall SF_DEFINE_BUTTON,(5 shl 16)+20,(5 shl 16)+20,3 ;вершины вкл.
 133 
	mcall SF_DEFINE_BUTTON,(6 shl 16)+19,(6 shl 16)+19,3+0x40000000 ;вершины вкл.
134 
	mcall ,(30 shl 16)+20,,4 ;каркасные грани вкл.
 134 
	mcall ,(36 shl 16)+19,,4+0x40000000 ;каркасные грани вкл.
Line 135... Line 135...
135 
	mcall ,(55 shl 16)+20,,5 ;сплошные грани вкл.
 135 
	mcall ,(66 shl 16)+19,,5+0x40000000 ;сплошные грани вкл.
136 
 
 136 
 
137 
	mcall SF_PUT_IMAGE,[image_data_toolbar],(16 shl 16)+16,(7 shl 16)+7 ;вершины вкл.
 137 
	mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+5 ;вершины вкл.
138 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
 138 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
139 
	mcall ,,,(32 shl 16)+7 ;каркасные грани вкл.
 139 
	mcall ,,,(35 shl 16)+5 ;каркасные грани вкл.
Line 140... Line 140...
140 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
 140 
	add ebx,IMAGE_TOOLBAR_ICON_SIZE
141 
	mcall ,,,(57 shl 16)+7 ;сплошные грани вкл.
 141 
	mcall ,,,(65 shl 16)+5 ;сплошные грани вкл.
142 
 
 142 
 
143 
	stdcall [kosglSwapBuffers]
 143 
	stdcall [kosglSwapBuffers]