kolibrios-fun/programs/media/animage/trunk/icons.inc
Evgeny Grechnikov (Diamond) d5f66e011c * new version of gif_lite.inc, common for all programs which use GIF
* restored config.inc because it is needed for normal compilation of
  one program with build_ru.bat

git-svn-id: svn://kolibrios.org@552 a494cfbc-eb01-0410-851d-a64ba20cac60
2007-06-25 17:20:49 +00:00

158 lines
2.5 KiB
PHP

;-----------------------------------------------------------
;---load icons in memory and draw icons on panel-----------
;-----------------------------------------------------------
load_icons:
mov esi,panel_picture
mov edi,[ScreenPointer]
add edi,(1200*1000*3)
;mov edi,[PointerToIcons]
call ReadGIF
ret
draw_icons:
mov [Icon_X],7
mov [Icon_Y],20+15+4
;draw panel picture
mov edx,[Icon_X]
shl edx,16
add edx,[Icon_Y]
mov ebx,[ScreenPointer]
add ebx,(1200*1000*3)+8
mov eax,7
mov ecx,417*65536+46
mcall
;main buttons of instrumnts
and [counter],0
mov [Icon_X],8
mov [Icon_Y],20+15+4+1
main_buttons:
mov eax,8
mov ebx,[Icon_X]
mov ecx,[Icon_Y]
dec ebx
dec ecx
shl ebx,16
shl ecx,16
add ebx,19
add ecx,20
mov edx,[counter]
add edx,10
add edx,1000000000000000000000000000000b
mcall
add [Icon_X],22
inc [counter]
cmp [counter],19
jne main_buttons
;buttons of brushes(and lines width)
and [counter],0
mov [Icon_X],7+1
mov [Icon_Y],20+15+4+25+1
next_button_brush:
mov eax,8
mov ebx,[Icon_X]
mov ecx,[Icon_Y]
dec ebx
dec ecx
shl ebx,16
shl ecx,16
add ebx,19
add ecx,20
mov edx,[counter]
add edx,40
add edx,1000000000000000000000000000000b
mcall
add [Icon_X],19
inc [counter]
cmp [counter],5
jne next_button_brush
;buttons of zoom
and [counter],0
mov [Icon_X],7+155+1
mov [Icon_Y],20+15+4+25+1
next_button_zoom:
mov eax,8
mov ebx,[Icon_X]
mov ecx,[Icon_Y]
dec ebx
dec ecx
shl ebx,16
shl ecx,16
add ebx,19
add ecx,20
mov edx,[counter]
add edx,45
add edx,1000000000000000000000000000000b
mcall
add [Icon_X],19
inc [counter]
cmp [counter],6
jne next_button_zoom
; button of palette
mov [Icon_X],7+105+1
mov [Icon_Y],20+15+4+25+1
mov eax,8
mov ebx,[Icon_X]
mov ecx,[Icon_Y]
dec ebx
dec ecx
shl ebx,16
shl ecx,16
add ebx,20
add ecx,21
mov edx,51
add edx,1000000000000000000000000000000b
mcall
; button of color
mov [Icon_X],7+128+1
mov [Icon_Y],20+15+4+25+1
mov eax,8
mov ebx,[Icon_X]
mov ecx,[Icon_Y]
dec ebx
dec ecx
shl ebx,16
shl ecx,16
add ebx,20
add ecx,21
mov edx,52
add edx,1000000000000000000000000000000b
mcall
mov eax,13
mov ebx,136*65536+20
mov ecx,65*65536+20
mov edx,[Color]
mcall
ret