forked from KolibriOS/kolibrios
367 lines
7.5 KiB
NASM
367 lines
7.5 KiB
NASM
;
|
|
;
|
|
; This is example using GUI component Text from libGUI.
|
|
;
|
|
;
|
|
|
|
include 'macros.inc'
|
|
use32
|
|
db 'MENUET01'
|
|
dd 1
|
|
dd start
|
|
dd i_end
|
|
dd 1600
|
|
dd 1600
|
|
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 fnCraeteButton
|
|
push [myexport]
|
|
call _ksys_cofflib_getproc
|
|
mov [craete_button],eax
|
|
|
|
push fnCraeteText
|
|
push [myexport]
|
|
call _ksys_cofflib_getproc
|
|
mov [craete_text],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],80
|
|
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
|
|
|
|
push Button1
|
|
push Parend
|
|
call [craete_button]
|
|
mov [PointerToControlForButtonExit],eax
|
|
|
|
mov ecx,[ColorsTable+8]
|
|
and ecx,0xffffff
|
|
|
|
|
|
;********************************************
|
|
;******************Init Text*****************
|
|
;********************************************
|
|
|
|
mov [Text.type],byte 10000010b
|
|
mov [Text.color],0xffffff
|
|
mov [Text.background_color],0xff
|
|
mov [Text.x],5
|
|
mov [Text.y],10
|
|
mov [Text.length],36
|
|
mov [Text.pointer],text_for_text
|
|
|
|
|
|
push Text
|
|
push Parend
|
|
call [craete_text]
|
|
mov [PointerToControlForText],eax
|
|
|
|
call draw_window
|
|
|
|
|
|
;send message 1 for redrawing ALL controls
|
|
mov [Message],dword 1
|
|
|
|
push Message
|
|
push Parend
|
|
call [send_message]
|
|
|
|
still:
|
|
mcall 10
|
|
|
|
;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 [PointerToControlForText]
|
|
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,250
|
|
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
|
|
|
|
text_for_text db 'Example of using GUI component text.',0
|
|
|
|
fnDestroyControl db 'DestroyControl',0
|
|
fnSendMessage db 'SendMessage',0
|
|
fnCraeteButton db 'CraeteButton',0
|
|
fnCraeteText db 'CraeteText',0
|
|
|
|
myexport dd 0
|
|
|
|
destroy_control dd 0
|
|
send_message dd 0
|
|
craete_button dd 0
|
|
craete_text dd 0
|
|
|
|
PointerToControlForButtonExit dd 0
|
|
|
|
PointerToControlForText dd 0
|
|
|
|
button_pressed 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 TEXT
|
|
{
|
|
.type rb 1
|
|
.flag rb 1
|
|
.color rd 1
|
|
.x rd 1
|
|
.y rd 1
|
|
.length rd 1
|
|
.pointer rd 1
|
|
.background_color rd 1
|
|
}
|
|
|
|
Button1 BUTTON
|
|
Text TEXT
|
|
|
|
i_end:
|