forked from KolibriOS/kolibrios
bab525b2cf
1) Fixed window flicker when redrawing 2) Fixed memory leak for stack git-svn-id: svn://kolibrios.org@1643 a494cfbc-eb01-0410-851d-a64ba20cac60
89 lines
1.9 KiB
PHP
89 lines
1.9 KiB
PHP
; load picture from file to memory
|
|
|
|
load_picture:
|
|
mov eax,file_path
|
|
mov ebx,[ScreenPointer]
|
|
add ebx,0x10000
|
|
|
|
call load_heading_of_file
|
|
|
|
mov esi,[ScreenPointer]
|
|
add esi,0x10000
|
|
;-------------is this BMP file ?----------------
|
|
xor eax,eax
|
|
mov ax,[esi]
|
|
mov [type],ax
|
|
|
|
cmp [type],word 'BM'
|
|
jne no_bmp_file_1
|
|
|
|
xor eax,eax
|
|
xor ebx,ebx
|
|
mov eax,[esi+18]
|
|
mov ebx,[esi+22]
|
|
mov [Picture_SizeX],eax
|
|
mov [Picture_SizeY],ebx
|
|
jmp exit_type_1
|
|
|
|
no_bmp_file_1:
|
|
;-------------is this GIF file ?----------------
|
|
xor eax,eax
|
|
mov ax,[esi]
|
|
mov [type],ax
|
|
cmp [type],'GI'
|
|
jne no_gif_file_1
|
|
|
|
add esi,6
|
|
xor eax,eax
|
|
xor ebx,ebx
|
|
mov ax,word[esi]
|
|
mov bx,word[esi+2]
|
|
mov [Picture_SizeX],eax
|
|
mov [Picture_SizeY],ebx
|
|
jmp exit_type_1
|
|
|
|
no_gif_file_1:
|
|
jmp no_unpakcing_file_1
|
|
|
|
exit_type_1:
|
|
;----------------------------------------------------------
|
|
;Get momory for unpacking picture and for picture's bufers
|
|
;----------------------------------------------------------
|
|
call GetMemory
|
|
;----------------------------------------------------------
|
|
;--------------------Load file in memory-------------------
|
|
;----------------------------------------------------------
|
|
|
|
mov eax,file_path
|
|
mov ebx,[PointerToCopyPicture]
|
|
add ebx,1000
|
|
call load_file
|
|
|
|
;----------------------------------------------------------
|
|
;-------------------Unpacking picture----------------------
|
|
;----------------------------------------------------------
|
|
mov esi,[PointerToCopyPicture]
|
|
add esi,1000
|
|
mov edi,[PointerToPicture]
|
|
mov eax,[ScreenPointer]
|
|
cmp [type],'BM'
|
|
jne no_unpakcing_bmp_file_1
|
|
;BMP DECODER
|
|
call bmptoimg
|
|
mov [save_flag],1
|
|
jmp no_unpakcing_file_1
|
|
|
|
no_unpakcing_bmp_file_1:
|
|
cmp [type],'GI'
|
|
jne no_unpakcing_file_1
|
|
;GIF DECODER
|
|
sub edi,8
|
|
call ReadGIF
|
|
mov [save_flag],1
|
|
|
|
no_unpakcing_file_1:
|
|
call MovePictureToWorkScreen
|
|
mov [Scroll1CoordinatX],9
|
|
mov [Scroll2CoordinatY],89
|
|
ret
|