forked from KolibriOS/kolibrios
21d1027a5a
New function is added. void ActivateTrapForSpecializedMessage (dword *control) - to activate a trap for the specialized messages. git-svn-id: svn://kolibrios.org@675 a494cfbc-eb01-0410-851d-a64ba20cac60
425 lines
9.1 KiB
NASM
425 lines
9.1 KiB
NASM
;
|
|
;
|
|
; Example of using GUI componet ProgressBar from libGUI
|
|
;
|
|
;
|
|
|
|
include 'macros.inc'
|
|
use32
|
|
db 'MENUET01'
|
|
dd 1
|
|
dd start
|
|
dd i_end
|
|
dd 124*1024
|
|
dd 124*1024
|
|
dd 0
|
|
dd path
|
|
|
|
start:
|
|
;init hepe of memory
|
|
mcall 68,11
|
|
|
|
;set current dir as ./
|
|
call GetPath
|
|
|
|
;load dll
|
|
mcall 68,19,path
|
|
|
|
test eax,eax
|
|
jnz libGUI_loaded
|
|
|
|
mcall 68,19,sys_libGUI_path
|
|
|
|
test eax,eax
|
|
jnz libGUI_loaded
|
|
|
|
mcall -1
|
|
|
|
libGUI_loaded:
|
|
|
|
mov [myexport],eax
|
|
|
|
;load dll functions
|
|
|
|
push fnDestroyControl
|
|
push [myexport]
|
|
call _ksys_cofflib_getproc
|
|
mov [destroy_control],eax
|
|
|
|
push fnSendMessage
|
|
push [myexport]
|
|
call _ksys_cofflib_getproc
|
|
mov [send_message],eax
|
|
|
|
push fnActivateTrapForSpecializedMessage
|
|
push [myexport]
|
|
call _ksys_cofflib_getproc
|
|
mov [activate_trap_for_specialized_message],eax
|
|
|
|
push fnCraeteButton
|
|
push [myexport]
|
|
call _ksys_cofflib_getproc
|
|
mov [craete_button],eax
|
|
|
|
push fnCraeteProgressbar
|
|
push [myexport]
|
|
call _ksys_cofflib_getproc
|
|
mov [craete_progress_bar],eax
|
|
|
|
;set events mask
|
|
mcall 40,1100111b
|
|
|
|
;get standart colors table
|
|
mcall 48,3,ColorsTable,40
|
|
|
|
;*********************************************
|
|
;****************Init Butttons****************
|
|
;*********************************************
|
|
|
|
mov ecx,[ColorsTable+8]
|
|
and ecx,0xffffff
|
|
|
|
mov [Button1.type],byte 10010001b
|
|
mov [Button1.x],60
|
|
mov [Button1.y],50
|
|
mov [Button1.width],word 70
|
|
mov [Button1.height],word 20
|
|
mov [Button1.color1],dword ecx
|
|
mov [Button1.color2],dword 0xffffff
|
|
mov [Button1.text],text1
|
|
|
|
mov [ProgressBar.type],byte 10000001b
|
|
mov [ProgressBar.color1],dword 0xffffff
|
|
mov [ProgressBar.color2],0xff0000
|
|
mov [ProgressBar.color3],ecx
|
|
mov [ProgressBar.x],5
|
|
mov [ProgressBar.y],5
|
|
mov [ProgressBar.sizex],175
|
|
mov [ProgressBar.sizey],16
|
|
mov [ProgressBar.progres],0
|
|
|
|
push Button1
|
|
push Parend
|
|
call [craete_button]
|
|
mov [PointerToControlForButtonExit],eax
|
|
|
|
mov ecx,[ColorsTable+8]
|
|
and ecx,0xffffff
|
|
|
|
push ProgressBar
|
|
push Parend
|
|
call [craete_progress_bar]
|
|
mov [PointerToControlForProgressBar],eax
|
|
|
|
call draw_window
|
|
|
|
|
|
;send message 1 for redrawing ALL controls
|
|
mov [Message],dword 1
|
|
|
|
push Message
|
|
push Parend
|
|
call [send_message]
|
|
|
|
mov [progress],0.02
|
|
mov [progress_step],0.01
|
|
still:
|
|
;----------------------------------------
|
|
;--send special message for ProgressBar--
|
|
;----------------------------------------
|
|
|
|
mov ebx,[progress]
|
|
mov eax,[PointerToControlForProgressBar]
|
|
mov [eax+44+26],ebx
|
|
|
|
push eax
|
|
call [activate_trap_for_specialized_message]
|
|
|
|
fld [progress_step]
|
|
fld [progress]
|
|
fadd st0,st1
|
|
fstp [progress]
|
|
fstp st0
|
|
|
|
cmp [progress],dword 1.0
|
|
jl no_1_
|
|
|
|
mov [progress],0.02
|
|
mov eax,[PointerToControlForProgressBar]
|
|
mov [eax+44+26],dword 0.02
|
|
|
|
push eax
|
|
call [activate_trap_for_specialized_message]
|
|
|
|
mov [Message],dword 1
|
|
push Message
|
|
push Parend
|
|
call [send_message]
|
|
|
|
no_1_:
|
|
|
|
;fld [progress]
|
|
;fcmovbe
|
|
;fstsw ax
|
|
;sahf
|
|
;jle no_1_
|
|
|
|
;no_1_:
|
|
|
|
mov [Message],dword 3
|
|
push Message
|
|
push Parend
|
|
call [send_message]
|
|
|
|
mcall 5,1
|
|
|
|
mcall 11
|
|
|
|
;check for redraw window
|
|
cmp eax,1
|
|
jne no_window
|
|
|
|
call draw_window
|
|
|
|
mov [Message],dword 1
|
|
push Message
|
|
push Parend
|
|
call [send_message]
|
|
|
|
jmp still
|
|
no_window:
|
|
|
|
;check for keys events
|
|
cmp eax,2
|
|
jne no_keys
|
|
|
|
mcall 2
|
|
shr eax,8
|
|
|
|
mov [Message],dword 2
|
|
mov [Message+4],eax
|
|
|
|
push Message
|
|
push Parend
|
|
call [send_message]
|
|
|
|
mov eax,[Message+4]
|
|
|
|
cmp al,27
|
|
je exit
|
|
|
|
jmp still
|
|
no_keys:
|
|
|
|
;check for pressed butons
|
|
cmp eax,3
|
|
jne no_buttons
|
|
|
|
mcall 17
|
|
shr eax,8
|
|
|
|
jmp still
|
|
no_buttons:
|
|
|
|
;check for mouse events
|
|
cmp eax,6
|
|
jne no_mouse
|
|
|
|
mov [Message],dword 6
|
|
|
|
mcall 37,1
|
|
mov ebx,eax
|
|
shr eax,16 ;x
|
|
and ebx,0xffff ;y
|
|
|
|
mov [Message+4],eax
|
|
mov [Message+8],ebx
|
|
|
|
mcall 37,2
|
|
mov [Message+12],eax
|
|
|
|
;send system events to control
|
|
push Message
|
|
push Parend
|
|
call [send_message]
|
|
|
|
mov eax,[PointerToControlForButtonExit]
|
|
|
|
xor ebx,ebx
|
|
mov bl,byte[eax+45]
|
|
cmp bl,11b
|
|
jne no_crossing_pressing_button
|
|
|
|
mov [button_pressed],1
|
|
|
|
no_crossing_pressing_button:
|
|
|
|
xor ebx,ebx
|
|
mov bl,byte[eax+45]
|
|
cmp bl,1b
|
|
jne no_crossing_button
|
|
|
|
cmp [button_pressed],1
|
|
jne no_crossing_button
|
|
|
|
jmp exit
|
|
|
|
no_crossing_button:
|
|
|
|
jmp still
|
|
no_mouse:
|
|
|
|
jmp still
|
|
|
|
exit:
|
|
|
|
push [PointerToControlForButtonExit]
|
|
call [destroy_control]
|
|
|
|
push [PointerToControlForProgressBar]
|
|
call [destroy_control]
|
|
|
|
mcall -1
|
|
|
|
|
|
|
|
;**********************************************
|
|
;*******************Draw window****************
|
|
;**********************************************
|
|
|
|
draw_window:
|
|
|
|
mcall 12,1
|
|
|
|
xor eax,eax
|
|
mov ebx,50
|
|
mov ecx,50
|
|
shl ebx,16
|
|
shl ecx,16
|
|
add ebx,200
|
|
add ecx,100
|
|
mov edx,0x03aabbcc
|
|
mov esi,0x805080d0
|
|
mov edi,0x005080d0
|
|
mcall
|
|
|
|
;call print_controls_information
|
|
|
|
mcall 12,2
|
|
ret
|
|
|
|
|
|
GetPath:
|
|
|
|
mov ebx,255
|
|
mov ecx,path
|
|
|
|
next_symvol:
|
|
mov edx,ecx
|
|
add edx,ebx
|
|
|
|
xor eax,eax
|
|
mov al,[edx]
|
|
cmp eax,'/'
|
|
je exit_path
|
|
|
|
dec ebx
|
|
jnz next_symvol
|
|
|
|
exit_path:
|
|
|
|
inc edx
|
|
mov esi,dll_name
|
|
mov edi,edx
|
|
mov ecx,10
|
|
rep movsb
|
|
|
|
ret
|
|
|
|
|
|
include 'getproc.asm'
|
|
|
|
;************************************************************
|
|
;***************************DATA*****************************
|
|
;************************************************************
|
|
|
|
align 4
|
|
|
|
dll_name db 'libGUI.obj',0
|
|
sys_libGUI_path db '/sys/lib/libGUI.obj',0
|
|
|
|
text1 db 'Exit',0
|
|
|
|
fnDestroyControl db 'DestroyControl',0
|
|
fnSendMessage db 'SendMessage',0
|
|
fnCraeteButton db 'CraeteButton',0
|
|
fnCraeteProgressbar db 'CraeteProgressbar',0
|
|
fnActivateTrapForSpecializedMessage db 'ActivateTrapForSpecializedMessage',0
|
|
|
|
myexport dd 0
|
|
|
|
destroy_control dd 0
|
|
send_message dd 0
|
|
craete_button dd 0
|
|
|
|
craete_progress_bar dd 0
|
|
|
|
activate_trap_for_specialized_message dd 0
|
|
|
|
PointerToControlForButtonExit dd 0
|
|
|
|
PointerToControlForProgressBar dd 0
|
|
|
|
button_pressed dd 0
|
|
progress dd 0
|
|
progress_step dd 0
|
|
path rb 256
|
|
|
|
Parend: dd 0,0,0,0,0,0,0,0,0,0,0,0 ;44 bytes
|
|
Message rd 4
|
|
|
|
ColorsTable rd 10
|
|
|
|
|
|
struc BUTTON
|
|
{
|
|
.type db 1
|
|
.flag db 1
|
|
.x dw 1
|
|
.y dw 1
|
|
.width dw 1
|
|
.height dw 1
|
|
.image dd 1
|
|
.imageX dw 1
|
|
.imageY dw 1
|
|
.imageSizeX dw 1
|
|
.imageSizeY dw 1
|
|
.transparentColor dd 1
|
|
.text dd 1
|
|
.textX dw 1
|
|
.textY dw 1
|
|
.textcolor dd 1
|
|
.color1 dd 1
|
|
.color2 dd 1
|
|
.mouseX dw 1
|
|
.mouseY dw 1
|
|
}
|
|
|
|
struc PROGRESSBAR
|
|
{
|
|
.type rb 1
|
|
.flag rb 1
|
|
.color1 rd 1
|
|
.color2 rd 1
|
|
.x rd 1
|
|
.y rd 1
|
|
.sizex rd 1
|
|
.sizey rd 1
|
|
.progres rd 1
|
|
.color3 rd 1
|
|
}
|
|
|
|
Button1 BUTTON
|
|
ProgressBar PROGRESSBAR
|
|
i_end:
|