ÿþ< ! - -  
 / /   O b e c n e   f u n k c e  
 / /   A u t o r :   M a r t i n   F r á ò a   ( m a r t i n . f r a n a @ o l c . c z )  
  
 / /   P ø e c h o d   n a   a d r e s u  
 f u n c t i o n   G o T o L o c a t i o n ( L o c a t i o n )   {  
 	 i f   ( L o c a t i o n   ! =   " " )   {  
 	 	 s e l f . l o c a t i o n = L o c a t i o n  
 	 }  
 }  
  
 / / - -   F u n k c e   n a   o t e v í r á n í   f o t o g r a f i í   s e   s c r o l l b a r e m  
 f u n c t i o n   O p e n W i n d o w ( O p e n e d F i l e ,   I W i d t h ,   I H e i g h t )   {  
 	 w i n d o w . o p e n ( " " ,   O p e n e d F i l e ,   " t o o l b a r = 0 , l o c a t i o n = 0 , s c r o l l b a r s = 1 , w i d t h = " + I W i d t h + " , h e i g h t = " + I H e i g h t + " , r e s i z a b l e = 1 " ) ;  
 }  
  
 / / - -   F u n k c e   n a   o t e v í r á n í   f o t o g r a f i í   b e z   s c r o l l b a r u  
 f u n c t i o n   O p e n W i n d o w N O ( O p e n e d F i l e ,   I W i d t h ,   I H e i g h t )   {  
 	 w i n d o w . o p e n ( " " ,   O p e n e d F i l e ,   " t o o l b a r = 0 , l o c a t i o n = 0 , s c r o l l b a r s = 0 , w i d t h = " + I W i d t h + " , h e i g h t = " + I H e i g h t + " , r e s i z a b l e = 0 " ) ;  
 }  
  
 / / - -   F u n k c e   n a   g r a f i c k é   r o l o v e r y  
 f u n c t i o n   R o l o v e r O n ( i m g N a m e )   {  
 	 i f   ( d o c u m e n t . i m a g e s )   {  
 	 	 v a r   R o l o v e r O b j e c t ;  
 	 	 R o l o v e r O b j e c t   =   e v a l ( i m g N a m e + " o n " ) ;  
 	 	 i f   ( R o l o v e r O b j e c t . c o m p l e t e   = =   t r u e )   {  
 	 	 	 d o c u m e n t [ i m g N a m e ] . s r c   =   R o l o v e r O b j e c t . s r c ;  
 	 	 }  
 	 }  
 }  
 	 	  
 f u n c t i o n   R o l o v e r O f f ( i m g N a m e )   {  
 	 i f   ( d o c u m e n t . i m a g e s )   {  
 	 	 v a r   R o l o v e r O b j e c t ;  
 	 	 R o l o v e r O b j e c t   =   e v a l ( i m g N a m e + " o f f " ) ;  
 	 	 i f   ( R o l o v e r O b j e c t . c o m p l e t e   = =   t r u e )   {  
 	 	 	 d o c u m e n t [ i m g N a m e ] . s r c   =   R o l o v e r O b j e c t . s r c ;  
 	 	 }  
 	 } 	 	  
 }  
  
 / / - -   F u n k c e   p r o   z v i d i t e l ò o v á n í   a p o d .  
 f u n c t i o n   S e t O p a c i t y ( i m g N a m e ,   d i r e c t i o n )   {  
 	 v a r   O b j e c t  
 	 O b j e c t   =   e v a l ( " d o c u m e n t . a l l . " + i m g N a m e )  
 	 i f   ( d i r e c t i o n   = =   t r u e )   {  
 	 	 O b j e c t . s t y l e . f i l t e r = " a l p h a ( o p a c i t y = 1 0 0 ) "  
 	 }   e l s e   {  
 	 	 O b j e c t . s t y l e . f i l t e r = " a l p h a ( o p a c i t y = 6 0 ) "  
 	 } 	 	  
 }  
  
 / / - >  
  
  
 / /   p o l e   n á z v o  d n í  
 d n = [ " p o n d l í " , " ú t e r ý " , " s t Ye d a " , " t v r t e k " ,  
         " p á t e k " , " s o b o t a " , " n e d l e " ] ;  
  
 / /   p o l e   n á z v o  m s í c o 
 m e = [ " L E D E N " , " Ú N O R " , " B XE Z E N " , " D U B E N " , " K V T E N " , " E R V E N " , " E R V E N E C " ,  
         " S R P E N " , " Z Á XÍ " , " XÍ J E N " , " L I S T O P A D " , " P R O S I N E C " ] ;  
  
 / /   p o l e   p o t u   d n í   v   j e d n o t l i v ý c h   m s í c í c h  
 p d = [ 3 1 , 2 8 , 3 1 , 3 0 , 3 1 , 3 0 , 3 1 , 3 1 , 3 0 , 3 1 , 3 0 , 3 1 ] ;  
  
 f u n c t i o n   d e n ( i )   {   r e t u r n   ( i = = 0   ?   7 : i )   }  
  
 f u n c t i o n   k a l e n d a r ( )  
 {  
     d n e s = n e w   D a t e ( ) ;   r o k = d n e s . g e t F u l l Y e a r ( ) ;  
  
 / /   n a s t a v e n í   p o t u   d n í   v   m s í c i   ú n o r u   v   p Ye s t u p n é m   r o c e  
     i f   ( ( r o k % 4 = = 0   & &   r o k % 1 0 0 ! = 0 )   | |   ( r o k % 4 0 0 = = 0 ) )   p d [ 1 ] = 2 9 ;  
  
     s = ' < T A B L E   B O R D E R = " 0 "   C E L L P A D D I N G = " 1 "   C E L L S P A C I N G = " 1 "   c l a s s = " k a l e n d a r " > ' ;  
     s + = ' < T R > < T H   C O L S P A N = " 7 "   c l a s s = " k a l e n d a r _ m e s i c " > ' ;  
     s + = m e [ d n e s . g e t M o n t h ( ) ] + '   ' + r o k + ' < / T H > < / T R > ' ;  
     s + = " < T R   c l a s s = ' k a l e n d a r _ d n y ' > < T H > P o < / T H > < T H > Ú t < / T H > < T H > S t < / T H > < T H > t < / T H > " ;  
     s + = " < T H > P á < / T H > < T H > S o < / T H > < T H > N e < / T H > < / T R > < T R > " ;  
  
     d n e s . s e t D a t e ( 1 ) ;   p r v n i D e n = d e n ( d n e s . g e t D a y ( ) ) ;   s l o u p e c = 1 ;  
  
 / /   v y g e n e r o v á n í   p r á z d n ý c h   p o l í e k   n a   z a á t k u   k a l e n d á Ye  
     f o r ( i = 1 ; i < p r v n i D e n ; i + + )   {  
         s + = " < T D > & n b s p ; < / T D > " ;  
         s l o u p e c + + ;   }  
  
     d n e s = n e w   D a t e ( ) ;   d n e s e k = d n e s . g e t D a t e ( ) ;    
     p o s l e d n i D e n = p d [ d n e s . g e t M o n t h ( ) ]  
  
 / /   v y g e n e r o v á n í   p o l í e k   p Ye d s t a v u j í c í c h   j e d n o t l i v é   d n y   v   m s í c i  
     f o r ( i = 1 ; i < = p o s l e d n i D e n ; i + + )  
     {  
         s + = " < T D > " ;  
         i f   ( s l o u p e c = = 6 )   s + = ' < B > < F O N T   C O L O R = " # 0 1 9 C B C " > ' ;  
         i f   ( s l o u p e c   = = 7 )   s + = ' < B > < F O N T   C O L O R = " # F F 9 9 6 6 " > ' ;  
         i f   ( i = = d n e s e k )   s + = ' < B > < F O N T   C O L O R = " # F F C C 0 0 " > ' ;  
         s + = " < C E N T E R > " + i + " < / C E N T E R > < / F O N T > < / T D > " ;  
         s l o u p e c   + + ;  
  
         i f   ( s l o u p e c   = = 8 )    
         {  
             i f   ( i ! = p o s l e d n i D e n )   s + = " < / T R > < T R > " ;  
   s l o u p e c   = 1 ;      
         }  
     }  
  
 / /   v y g e n e r o v á n í   p r á z d n ý c h   p o l í e k   n a   k o n c i   k a l e n d á Ye  
     i f   ( s l o u p e c ! = 1 )   f o r   ( i = s l o u p e c ; i < = 7 ; i + + )   s + = " < T D > & n b s p ; < / T D > " ;  
  
     s + = " < / T R > < / T A B L E > " ;  
     r e t u r n   s ;  
 }  
 / /   - - >  
 
