WebSVN – Kolibri OS – Diff – /programs/media/mv/trunk/mv.asm

 ;   Picture browser by lisovin@26.ru
 ;   Modified by Ivan Poddubny - v.0.3
 ;   Modified by Diamond - v.0.4
+;   Modified by Mario79:
-;   Modified by Mario79 - v.0.5  18.07.08 Dinamic Allocation Memory
+;      v.0.5  18.07.08 Dinamic Allocation Memory
+;      v.0.6  20.07.08
+;             1) Use Editbox (Author )
+;             2) Draw window without fill working area (C = 1)
+;             3) Open file with parameter in patch:
+;                Size of parameter - 4 bytes. Parameter starts with the character "\",
+;                the unused characters are filled by a blank (ASCII 20h).
+;                '\T  /hd0/1/1.jpg' - set background, mode: tile
+;                '\S  /hd0/1/1.jpg' - set background, mode: stretch
 ;   Compile with FASM for Menuet
 ;******************************************************************************
     use32
     dd	   temp_area , 0x0	   ; I_Param , I_Icon
 include    'lang.inc'
 include    '..\..\..\macros.inc'
+;include    'macros.inc'
+include    'EDITBOX.INC'
-;include    'macros.inc'
+use_edit_box procinfo
 ;******************************************************************************
 START:				; start of execution
 	mcall	68, 11
 ; check for parameters
+   cmp	 dword [temp_area],'BOOT'
-   cmp	 dword [temp_area],'BOOT'
+   jne	 .no_boot
-   jne	 .no_boot
+.background:
+   call  load_image
-   call  load_image
+   call  convert
-   call  convert
+   call  background
-   call  background
+.exit:
    or	 eax,-1
    mcall
  .no_boot:
+   cmp	 byte [temp_area],0
    jz	 .no_param
    cmp	 byte [temp_area],0
    jz	 .no_param
    mov	 edi,string	 ; clear string
+   mov	 ecx,256/4	 ;   length of a string
-   mov	 ecx,256/4	 ;   length of a string
+   xor	 eax,eax	 ;   symbol <0>
+   rep	 stosd
+   mov	 edi,temp_area	 ; look for <0> in temp_area
+   cmp	 [edi],byte "\"
+   jne	 .continue
+   cmp	 [edi+1],byte "T"
+   jne	 @f
+   mov	 [bgrmode],dword 1
+   jmp	 .continue_1
+@@:
+   cmp	 [edi+1],byte "S"
+   jne	 START.exit
-   xor	 eax,eax	 ;   symbol <0>
+   mov	 [bgrmode],dword 2
-   rep	 stosd
+.continue_1:
    add	 edi,4
-   mov	 edi,temp_area	 ; look for <0> in temp_area
+.continue:
    mov	 esi,edi
    mov	 ecx,257	 ;   strlen
-   repne scasb
+   repne scasb
+	lea	ecx, [edi-temp_area]
 	lea	ecx, [edi-temp_area]
    mov	 edi,string
-   mov	 edi,string
+   rep	 movsb		 ; copy string from temp_area to "string" (filename)
     mcall
     ret
 load_image:
 load_image:
 	  mov	[fileinfo+0],dword 5
 	  mov	[fileinfo+12],dword 0
     mov  eax,[eax+18]
 	test	ebx, ebx
 	jns	@f
 	neg	ebx
 @@:
-    add  eax,20
+    add  eax,9	;20
     cmp  eax,210
     jae  @f
     mov  eax,210
 @@:
-    add  ebx,58
+    add  ebx,54     ;58
     cmp  ebx,56
     jae  @f
     mov  ebx,56
 @@:
     mov  [wnd_width],eax
 	mov	cx, [eax+22]
 	test	cx, cx
 	jns	@f
 	neg	cx
 @@:
-    mov  edx,10*65536+50
+    mov  edx,5*65536+50
     mcall 7,[soi]
   nodrawimage:
     ret
 	shr	eax, 16
 	stosb
 	pop	eax
 	ret
+;---------------------------------------------------------------------
+get_window_param:
+    mcall 9, procinfo, -1
+    mov   eax,[ebx+46]
+    mov   [window_high],eax
+    mov   eax,[ebx+42]
+    mov   [window_width],eax
+;    mov   eax,[ebx+70]
+;    mov   [window_status],eax
+    mcall 48,4
+    mov   [skin_high],eax
+    ret
+;---------------------------------------------------------------------
 ;   *********************************************
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
 ;    mov  ecx,400                   ; [y start] *65536 + [y size]
     mov  ebx,0*65536
     mov  ecx,0*65536
     add  ebx,[wnd_width]
     add  ecx,[wnd_height]
-    mov  edx,0x03ffffff 	   ; color of work area RRGGBB,8->color gl
+    mov  edx,0x43ffffff 	   ; color of work area RRGGBB,8->color gl
     mcall
+    call get_window_param
+    mov   ebx,5
+    shl   ebx,16
+    add   ebx,[window_width]
+    sub   ebx,9
+    push  ebx
+    mov   ecx,[skin_high]
+    shl   ecx,16
+    add   ecx,50
+    sub   ecx,[skin_high]
+    mcall 13, , ,0xffffff
+    mov  eax,[image_file]
+    mov  ecx,[eax+22]
+    mov  ebx,[eax+18]
+    push ecx
+    add  ebx,5
+    mov  ax,bx
+    shl  ebx,16
+    add  ebx,[window_width]
+    sub  ebx,4
+    sub  bx,ax
+    cmp  bx,0
+    jb	 @f
+    add  ecx,50 shl 16
+    mcall 13, , ,0xffffff
+@@:
+    pop  ecx
+    pop  ebx
+    add  ecx,50
+    mov  ax,cx
+    shl  ecx,16
+    add  ecx,[window_high]
+    sub  cx,ax
+    sub  ecx,4
+    cmp  bx,0
+    jb	 @f
+    mcall 13, , ,0xffffff
 @@:
     mov  eax,8
     mov  ebx,10*65536+46
     mov  ecx,25*65536+20
     mov  edx,2
     ru,   '           ',\
     de,   'DATEI OEFNEN  INFO   HGRD'
+thread1:			; start of thread1
+	  mcall 40, 0x27
+    mov  esi,string
+@@:
+    cld
+    lodsb
+    test al,al
+    jne  @r
+    sub  esi,string
+    mov  eax,esi
+    dec  eax
+    mov edi, edit1
+    mov ed_size, eax
-thread1:			; start of thread1
+    mov ed_pos, eax
 red1:
-     call draw_window1
+    call draw_window1
 still1:
     mov  eax,10 		; wait here for event
     mcall
     cmp  eax,1			; redraw request ?
-    je	 thread1
+    je	 red1
     cmp  eax,2			; key in buffer ?
     je	 key1
     cmp  eax,3			; button in buffer ?
-    je	 button1
-    jmp  still1
-  key1: 			; key
-    mcall
-    cmp  ah,179
-    jne  noright
-    mov  eax,[pos]
-    cmp  eax,41
-    ja	 still1
-    inc  eax
-    mov  [pos],eax
-    call drawstring
-    jmp  still1
-  noright:
-    cmp  ah,176
-    jne  noleft
-    mov  eax,[pos]
-    test eax,eax
-    je	 still1
-    dec  eax
-    mov  [pos],eax
-    call drawstring
-    jmp  still1
-  noleft:
-    cmp  ah,182        ;del
-    jne  nodelet
-    call shiftback
-    call drawstring
-    jmp  still1
-  nodelet:
-    cmp  ah,8	       ;zaboy
-    jne  noback
-    mov  eax,[pos]
-    test eax,eax
-    je	 still1
-    dec  eax
+    je	 button1
-    mov  [pos],eax
-    call shiftback
-    call drawstring
-    jmp  still1
-  noback:
-    cmp  ah,13
-    jne  noenter
-  enter1:
-    mov  al,byte ' '
-    mov  edi,string
+	  mouse_edit_box name_editboxes
-    mov  ecx,43
-    cld
+    jmp  still1
-    repne scasb
-    dec  edi
-    mov  byte [edi],0
-    jmp  close1
-  noenter:
-    cmp  ah,27
-    jne  noesc
-    jmp  enter1
-  noesc:
-    cmp  dword [pos],42
-    jae  still1
-    mov  edi,string
-    add  edi,42
-    mov  esi,edi
-    dec  esi
-    mov  ecx,42
-    sub  ecx,[pos]
-    std
+  key1: 			; key
-    rep  movsb
-    shr  eax,8
-    mov  esi,string
+    mcall 2
-    add  esi,[pos]
+    cmp ah,13
-    mov  byte [esi],al
+    je	close1
-    inc  dword [pos]
+    cmp ah,27
-    call drawstring
+    je	close1
+    key_edit_box name_editboxes
-    jmp  still1
     jmp  still1
   button1:			; button
-    mov  eax,17 		; get id
+  button1:			; button
-    mcall
+    mov  eax,17 		; get id
     mcall
-    cmp  ah,1			; button id=1 ?
-    jne  noclose1
-    jmp  enter1
-  close1:
-    bts  dword [status],2
-    btr  dword [status],0
-    mov  eax,-1 		; close this program
-    mcall
-  noclose1:
-    cmp  ah,2
-    jne  nosetcur
-    mov  eax,37
-    mov  ebx,1
-    mcall
-    shr  eax,16
-    sub  eax,21
-    xor  edx,edx
-    mov  ebx,6
-    div  ebx
-    mov  [pos],eax
-    call drawstring
-    jmp  still1
-  nosetcur:
-    jmp  still1
-  shiftback:
-    mov  edi,string
+    cmp  ah,1			; button id=1 ?
-    add  edi,[pos]
+    jne  still1
-    mov  esi,edi
+  close1:
     mov  ecx,0x10ddeeff 	   ; font 1 & color ( 0xF0RRGGBB )
     mov  edx,labelt1		   ; pointer to text beginning
     mov  esi,labelt1.size	   ; text length
     mcall
+;    call drawstring
-    call drawstring
+	draw_edit_box name_editboxes
     mov  eax,12 		   ; function 12:tell os about windowdraw
 image_file dd 0
 ;image_file_size dd 0
 pos: dd 6
-;fileinfo:
+window_high dd 0
+window_width dd 0
-;     dd 0
+skin_high dd 0
-;     dd 0
+;---------------------------------------------------------------------
+; for EDITBOX
-;     dd 0
+name_editboxes:
+edit1 edit_box 200,10,30,0xffffff,0xbbddff,0,0,0,255,string,ed_focus+ed_always_focus,0
+name_editboxes_end:
 ;     dd 0x290000-I_END
-;     dd I_END
+mouse_flag: dd 0x0
 ;---------------------------------------------------------------------
 fileinfo:
      dd 5
 	db	'/sys/bgr.bmp',0
 IM_END:
-	rb	string+257-$
 	rb	string+257-$
+temp_area:
-process_info:
+procinfo:
-temp_area:
+process_info:
 rb 1024*4
 rb 1024*2
 ;rb 0x10000

Subversion Repositories Kolibri OS

(root)/programs/media/mv/trunk/mv.asm – Rev 825 → 828