168 lines
3.5 KiB
PHP
168 lines
3.5 KiB
PHP
proc @Kolibri@OpenFileDialog$qr23Kolibri@TOpenFileStruct uses ebx esi edi ebp
|
|
call @Kolibri@GetThreadData$qv
|
|
mov ebp,eax
|
|
mov ebx,[esp+20]
|
|
cmp dword [ebx+4],0
|
|
jnz .open_file_dlg_str
|
|
mov esi,7
|
|
jmp .open_file_dlg_alloc
|
|
.open_file_dlg_str:
|
|
cld
|
|
mov edi,[ebx+4]
|
|
mov ecx,-1
|
|
xor al,al
|
|
repnz scas byte [edi]
|
|
not ecx
|
|
mov esi,ecx
|
|
.open_file_dlg_alloc:
|
|
push esi
|
|
call @Kolibri@Alloc$qul
|
|
pop ecx
|
|
test eax,eax
|
|
jz .open_file_dlg_ret
|
|
mov ecx,esi
|
|
dec ecx
|
|
push esi
|
|
push ecx
|
|
push eax
|
|
mov dword [ebx],-1
|
|
cmp dword [ebx+4],0
|
|
jnz .open_file_dlg_copy
|
|
mov dword [eax],0x2F64722F
|
|
mov word [eax+4],0x2F31
|
|
jmp .open_file_dlg_redraw
|
|
.open_file_dlg_copy:
|
|
cld
|
|
mov ecx,esi
|
|
mov esi,[ebx+4]
|
|
mov edi,eax
|
|
rep movs byte [edi],[esi]
|
|
.open_file_dlg_redraw:
|
|
mov eax,12
|
|
mov ebx,1
|
|
int 0x40
|
|
xor eax,eax
|
|
mov ebx,[ebp+KOLIBRI_THREAD_DATA_X*4]
|
|
mov ecx,[ebp+KOLIBRI_THREAD_DATA_Y*4]
|
|
mov edx,[ebp+KOLIBRI_THREAD_DATA_C_WINDOW*4]
|
|
mov esi,[ebp+KOLIBRI_THREAD_DATA_C_HEADER*4]
|
|
mov edi,[ebp+KOLIBRI_THREAD_DATA_C_BORDER*4]
|
|
int 0x40
|
|
mov eax,4
|
|
mov ebx,0x00070007
|
|
mov ecx,[ebp+KOLIBRI_THREAD_DATA_C_TITLE*4]
|
|
mov edx,Kolibri_open_file_dlg_name
|
|
mov esi,Kolibri_open_file_dlg_name_end - Kolibri_open_file_dlg_name
|
|
int 0x40
|
|
mov eax,4
|
|
mov ebx,0x000C001E
|
|
xor ecx,ecx
|
|
mov edx,[esp]
|
|
mov esi,[esp+4]
|
|
int 0x40
|
|
mov eax,12
|
|
mov ebx,2
|
|
int 0x40
|
|
.open_file_dlg_loop:
|
|
mov eax,10
|
|
int 0x40
|
|
dec eax
|
|
jz .open_file_dlg_redraw
|
|
dec eax
|
|
jz .open_file_dlg_key
|
|
dec eax
|
|
jz .open_file_dlg_end
|
|
jmp .open_file_dlg_loop
|
|
.open_file_dlg_key:
|
|
xor edi,edi
|
|
.open_file_dlg_key_loop:
|
|
mov eax,2
|
|
int 0x40
|
|
test al,al
|
|
jnz .open_file_dlg_key_end
|
|
cmp ah,27
|
|
jz .open_file_dlg_end
|
|
cmp ah,13
|
|
jz .open_file_dlg_apply
|
|
cmp ah,8
|
|
jz .open_file_dlg_key_bsp
|
|
cmp ah,32
|
|
jna .open_file_dlg_key_loop
|
|
mov ebx,[esp+4]
|
|
cmp ebx,[esp+8]
|
|
jb .open_file_dlg_key_any
|
|
lea esi,[ebx+2*ebx]
|
|
shr esi,1
|
|
inc esi
|
|
push eax
|
|
push esi
|
|
push dword [esp+8]
|
|
call @Kolibri@ReAlloc$qpvul
|
|
add esp,8
|
|
mov ecx,eax
|
|
pop eax
|
|
test ecx,ecx
|
|
jz .open_file_dlg_key
|
|
mov [esp+8],esi
|
|
mov [esp],ecx
|
|
.open_file_dlg_key_any:
|
|
mov esi,ebx
|
|
add esi,[esp]
|
|
mov byte [esi],ah
|
|
inc ebx
|
|
mov edi,1
|
|
mov [esp+4],ebx
|
|
jmp .open_file_dlg_key_loop
|
|
.open_file_dlg_key_bsp:
|
|
mov eax,[esp+4]
|
|
test eax,eax
|
|
jz .open_file_dlg_key_loop
|
|
dec eax
|
|
mov edi,1
|
|
mov [esp+4],eax
|
|
jmp .open_file_dlg_key_loop
|
|
.open_file_dlg_key_end:
|
|
test edi,edi
|
|
jnz .open_file_dlg_redraw
|
|
jmp .open_file_dlg_loop
|
|
.open_file_dlg_apply:
|
|
mov eax,[esp+4]
|
|
inc eax
|
|
mov [esp+8],eax
|
|
push eax
|
|
push dword [esp+4]
|
|
call @Kolibri@ReAlloc$qpvul
|
|
add esp,8
|
|
test eax,eax
|
|
jz .open_file_dlg_end
|
|
mov eax,[esp]
|
|
mov esi,eax
|
|
add eax,[esp+4]
|
|
mov byte [eax],0
|
|
add esp,12
|
|
mov ebx,[esp+20]
|
|
mov dword [ebx],2
|
|
push dword [ebx+4]
|
|
call @Kolibri@Free$qpv
|
|
pop ecx
|
|
mov [ebx+4],esi
|
|
jmp .open_file_dlg_invalidate
|
|
.open_file_dlg_end:
|
|
call @Kolibri@Free$qpv
|
|
add esp,12
|
|
mov ebx,[esp+20]
|
|
mov dword [ebx],1
|
|
.open_file_dlg_invalidate:
|
|
push ebp
|
|
push dword 1
|
|
call @@Kolibri@Invalidate$qippv
|
|
add esp,8
|
|
.open_file_dlg_ret:
|
|
ret
|
|
endp
|
|
|
|
Kolibri_open_file_dlg_name:
|
|
db 'Open file'
|
|
Kolibri_open_file_dlg_name_end:
|
|
|