kolibrios-gitea/programs/media/zsea/win_info.inc

1 line
2.0 KiB
PHP
Raw Permalink Normal View History

;--------------------------------------------------------------------- kinfo: test dword [status],2 jnz still or dword [status],2 call get_memory_for_thread_stack mov [thread_stack_2],eax mcall 51,1,thread2 ;, thread_stack_2 jmp still ;--------------------------------------------------------------------- thread2: ; start of info thread mcall 9,procinfo_threads,-1 mov eax,[ebx+30] mov [PID2],eax mcall 40,0x7 call load_directory.copy_dir_path ;--------------------------------------------------------------------- .red: call .draw_window ;--------------------------------------------------------------------- .still: mcall 10 ; wait here for event cmp eax,1 ; redraw request ? je .red cmp eax,2 ; key in buffer ? je .close cmp eax,3 ; button in buffer ? je .button jmp .still ;--------------------------------------------------------------------- .button: ; button mcall 17 ; get id cmp ah,1 ; button id=1 ? jne .still ;.noclose .close: xor dword [status],2 xor eax,eax mov [PID2],eax mcall 68,13,[thread_stack_2] mcall -1 ; close this program ;--------------------------------------------------------------------- ; ********************************************* ; ******* WINDOW DEFINITIONS AND DRAW ******** ; ********************************************* .draw_window: mcall 12,2 xor eax,eax ; function 0 : define and draw window xor esi,esi mcall ,<100,330>,<100,130>,0x13eeeeee,,labelt2 mcall 4,<120,30>,0x80000000,file_name mov edx,fitext mov esi,14 mov ebx,10*65536+30 mov ecx,0x10000000 @@: mcall add ebx,15 add edx,esi cmp ebx,10*65536+105 jbe @r mov esi,ecx mcall 47,0x800a0000,[img_size],<120,46> add edx,15 mcall ,,[img_width_2] add edx,15 mcall ,,[img_high_2] add edx,15 mcall ,,[img_resolution_2] add edx,15 mcall ,,[Total_Repeat_N] ; mcall 47,0x80000,[PID2],<200, 5>,0xffffff ; mcall 47,0x800a0000,[error_locate],<140,5>,0x10ffffff mcall 12,2 ret ;--------------------------------------------------------------------