My new vfp navigator

Published on by Yousfi Benameur


This is my featured navigator for year 2017.I share it with all
A container gathers many button firing some applications mainly in vfp IE browser.there is someones as UI app fired as standalone apps...

0.home show an animated web gif (stars night)
1.snippingTool
2-3.navigation backWard and foreward.
4.run explorer
5.run calculator
6.run a css clock with date
7.help
8.navigated Urls history
9.menu (11 items of modern apps) in combo appears when button clicked.any click on container make the combo disappear
10.
11.Cut form titlebar or restore it
12.PC volume (0-100%)
13.set or hide the form titlebar
14.zoom -
15.zoom 100%
16.zomm +
17. custom  apps (10 apps items+2 screensavers) appears when the button is clicked.any click on container make the combo disappear
18.Search dialog in the web page
19.fires google images
20.fires youtube videos
21.windows OSK keyboard (setfocus with mousedown on the textbox and type in keyboard)
22.print(not coded.can rightclick on web page to fire contextuel menu).
23.Google custom apps menu (9 items)
24.click to change the container backcolor (for best contrast)
25.a custom basic reminder (saved automatically as txt file and reloaded at each start).its modal
26-27-28  minimize  maximize/restore close  form
29-30-31.textbox to type url navigation with valid button (or return in textbox).Textbox accepts contextuel menu (copy/paste-rightclick to fire it.)
   any search strings can be done.
32-custom urls in combo.click on button to dropdown the combo....then choose a custom url.
33 a preset urls in combo (custom)
34 A custom web radio (can change urls).
a right green shape button can show/hide the container command.
..and others things...

of course internet must be connected and some fast to render as well the navigator contents.


Click on code to select [then copy] -click outside to deselect

*1*
publi yform
yform=newObject("mynavigator")
yform.show
read events
retu
*
DEFINE CLASS mynavigator AS form
Height = 740
Width = 963
ShowWindow = 2
ShowTips = .T.
AutoCenter = .T.
Caption = ""
BackColor = RGB(0,0,0)
zoom = 100
Name = "Form1"

ADD OBJECT container1 AS ycontainer WITH ;
Anchor = 768, ;
Top = 1, ;
Left = 18, ;
Width = 917, ;
Height = 83, ;
BackStyle = 1, ;
BorderWidth = 0, ;
BackColor = RGB(0,255,255), ;
Name = "Container1"


ADD OBJECT olecontrol1 AS olecontrol WITH ;
Oleclass="shell.explorer.2", ;
Top = 86, ;
Left = 12, ;
Height = 660, ;
Width = 935, ;
Anchor = 15, ;
Name = "Olecontrol1"

ADD OBJECT shape1 AS shape WITH ;
Top = 3, ;
Left = 939, ;
Height = 15, ;
Width = 15, ;
Anchor = 768, ;
Curvature = 99, ;
MousePointer = 15, ;
ToolTipText = "Show/hide container", ;
BackColor = RGB(0,255,0), ;
Name = "Shape1"

PROCEDURE my
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*--- aevent create an array laEvents
Aevents( myArray, 0)
*--- reference the calling object
loObject = myArray[1]

with loObject.parent
m.o="ysh"
try
.addobject(m.o,"shape")
catch
endtry

with eval('.'+m.o)
.left=loobject.left
.top=loOBJECT.TOP
.WIDTH=loobject.width
.height=loObject.height
.borderstyle=0
.drawmode=15
.backcolor=255
.zorder(0)
.mousepointer=15
.name="ysh"
.visible=.t.
endwith
inkey(0.5)
.removeObject("ysh")
endwith

local m.x
do case
case  lower(loObject.parent.name)=="container1"
m.x=int(val(substr(loObject.name,6)))

do case
case m.x=1
run/n snippingtool

case m.x=2
with thisform.olecontrol1
try
.goBack()
thisform.yurl()
catch
endtry
endwith

case m.x=3
with thisform.olecontrol1
try
.goForward()
thisform.yurl()
catch
endtry
endwith

case m.x=4
run/n explorer


case m.x=5
run/n calc

case m.x=6
*messagebox( ttoc (dateTime()))
thisform.yclock()

case m.x=7
thisform.yhome()

case x=8
local m.myvar
text to m.myvar noshow

This is my futured navigator for year 2017.
A container gathers many button firing some applications mainly in vfp IE browser.there is someones as UI app fired as standalone apps...

0.home show an animated web gif (stars night)
1.snippingTool
2-3.navigation backWard and foreward.
4.run explorer
5.run calculator
6.run a css clock with date
7.help
8.navigated Urls history
9.menu (11 items of modern apps) in combo appears when button clicked.any click on container make the combo disappear
10.
11.Cut form titlebar or restore it
12.PC volume (0-100%)
13.set or hide the form titlebar
14.zoom -
15.zoom 100%
16.zomm +
17. custom  apps (10 apps items+2 screensavers) appears when the button is clicked.any click on container make the combo disappear
18.Search dialog in the web page
19.fires google images
20.fires youtube videos
21.windows OSK keyboard (setfocus with mousedown on the textbox and type in keyboard)
22.print(not coded.can rightclick on web page to fire contextuel menu).
23.Google custom apps menu (9 items)
24.click to change the container backcolor (for best contrast)
25.a custom basic reminder (saved automatically as txt file and reloaded at each start).its modal
26-27-28  minimize  maximize/restore close  form
29-30-31.textbox to type url navigation with valid button (or return in textbox).Textbox accepts contextuel menu (copy/paste-rightclick to fire it.)
   any search strings can be done.
32-custom urls in combo.click on button to dropdown the combo....then choose a custom url.
33 a preset urls in combo (custom)
34 A custom web radio (can change urls).
a right green shape button can show/hide the container command.
..and others things...

of course internet must be some fast to render as well the navigator contents.
endtext
*messagebox(m.myvar,0+32+4096)
thisform.ymessagebox(m.myvar)

case m.x=9
**do yhistory.prg
*thisform.closeApp("yhistory")
*use in select("zhistory")

*try
local hform
hform=newObject("history")
hform.show
*catch
*endtry

case m.x=10
loObject.parent.combo3.visible=.t.
with loObject.parent.combo3
.visible=.t.
.setfocus
keyboard "{f4}"
endwith

case x=16
loObject.parent.combo2.visible=.t.
with loObject.parent.combo2
.visible=.t.
.setfocus
keyboard "{f4}"
endwith

case m.x=17
thisform.olecontrol1.setfocus
local oshell
oshell=newObject("wscript.shell")
oshell.sendkeys("^{f}")
oshell=null
release oshell

*case m.x=10

case m.x=11
#Define  APPCOMMAND_VOLUME_MUTE  0x80000
#Define  APPCOMMAND_VOLUME_UP  0xA0000
#Define  APPCOMMAND_VOLUME_DOWN  0x90000
#Define  WM_APPCOMMAND 0x319


SendMessage(_vfp.HWnd, WM_APPCOMMAND, _vfp.HWnd, APPCOMMAND_VOLUME_UP)


case m.x=12
thisform.titlebar=iif(thisform.titlebar=1,0,1)

case m.x=13  &&zoom-
#DEFINE OLECMDEXECOPT_DODEFAULT 0
#define OLECMDID_OPTICAL_ZOOM 63
thisform.zoom=thisform.zoom-10
thisform.olecontrol1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, thisform.zoom, Null)
wait window (trans(thisform.zoom)+" %") timeout 1


case m.x=14  &&zomm=100%
#define OLECMDID_OPTICAL_ZOOM 63
#DEFINE OLECMDEXECOPT_DODEFAULT 0
thisform.zoom=100
thisform.olecontrol1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, thisform.zoom, Null)
wait window (trans(thisform.zoom)+" %") timeout 1

case m.x=15  &&zoom+
#define OLECMDID_OPTICAL_ZOOM 63
#DEFINE OLECMDEXECOPT_DODEFAULT 0
thisform.zoom=thisform.zoom+10
thisform.olecontrol1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, thisform.zoom, Null)
wait window (trans(thisform.zoom)+" %") timeout 1


case m.x=18
with thisform.container1.text1
.value="https://www.google.dz/imghp?hl=fr&tab=wi&ei=qBxhWNTiJcjkUqOPmZAK&ved=0EKouCBIoAQ"
.valid()
endwith

case m.x=19
with thisform.container1.text1
.value="https://www.youtube.com/?gl=DZ"
.valid()
endwith

case m.x=20
&&shellexecute
DECLARE INTEGER ShellExecute IN SHELL32.DLL INTEGER nWinHandle,;
	STRING cOperation,;
	STRING cFileName,;
	STRING cParameters,;
	STRING cDirectory,;
	INTEGER nShowWindow
	local m.x
m.x=getenv('windir')+"\system32\osk.exe"
result = ShellExecute(0, "open", m.x,"","",1)

*!*	case m.x=21  &&there is security pb when printing out of the web page (protection-try the contextuel menu in page by rightclick).
*!*	#DEFINE OLECMDID_PRINT 6
*!*	#DEFINE OLECMDID_PRINTPREVIEW 7
*!*	#DEFINE OLECMDEXECOPT_DODEFAULT 0
*!**	thisform.olecontrol1.ExecWB(OLECMDID_PRINT , OLECMDEXECOPT_DODEFAULT)  &&print 
*!*	thisform.olecontrol1.ExecWB(OLECMDID_PRINTPREVIEW , OLECMDEXECOPT_DODEFAULT)  &&print in preview 

case m.x=22
thisform.yslideshow()


case m.x=23
loObject.parent.ycombo.visible=.t.
with loObject.parent.ycombo
.visible=.t.
.setfocus
keyboard "{f4}"
endwith

case m.x=24
thisform.windowstate=1

case m.x=25
thisform.windowstate=iif(thisform.windowstate=0,2,0)

case m.x=26
thisform.release

case m.x=27
with loObject.parent.text1
if ! empty(.value)
.valid()
endi
endwith


case m.x=28
with loObject.parent.combo1
.visible=.t.
.setfocus
keyboard "{f4}"
endwith


case m.x=29
messagebox("Author Yousfi Benameur 27 of decmber 2016 -  Yousfi.over-blog.com",0+32+4096,2000)

case m.x=30
*do yreminder.prg
*thisform.closeAPp("yreminder")
*try
local rform
rform=Newobject("yreminder")
rform.Show
*catch
*endtry

case m.x=31
*do myradio.prg
thisform.closeApp("myradio")
try
publi yrad
yrad=newObject("myradio")
yrad.show
catch
endtry

case m.x=32  &&web IE search
local m.x
m.x=allt(loObject.parent.text1.value)
m.x="http://www.bing.com/search?q="+strtran(m.x," ","+")+"&src=IE-SearchBox&FORM=IESR02&pc=EUPP_"
if ! empty(m.x)
with loObject.parent
.text1.value=m.x
.text1.valid()
endwith
endi


otherwise

messagebox(loObject.name+" clicked....can do some code from ehere!",0+32+4096,'',1100)
endcase

case  lower(loObject.parent.name)=="container2"
m.x=int(val(substr(loObject.name,6)))
do case  &&can populate
otherwise
messagebox(loObject.name+" clicked....can execute some code from here!",0+32+4096,'',1100)
endcase


case  lower(loObject.parent.name)=="container3"
m.x=int(val(substr(loObject.name,6)))
do case  &&can populate
*case...

case  m.x=26
thisform.ycl=iif(thisform.ycl=1,0,1)
do case
case thisform.ycl=1
with loObject.parent
do while (.top+.height)>=0
.top=.top-30
inkey(0.1)
enddo
.top=-.height+35
loObject.picture=home(1)+"GRAPHICS\ICONS\ARROWS\ARW06DN.ICO"
endwith


case  thisform.ycl=0
with loObject.parent
do while .top<0
.top=.top+30
inkey(0.1)
enddo
.top=0
loObject.picture=home(1)+"GRAPHICS\ICONS\ARROWS\ARW06UP.ICO"

endwith
endcase

otherwise
messagebox(loObject.name+" clicked....can execute some code from here!",0+32+4096,'',1100)
endcase

endcase
ENDPROC


PROCEDURE yurl
inke(3)
with thisform.container1.text1
.value=thisform.olecontrol1.locationURL
.refresh
endwith

ENDPROC

PROCEDURE yclock
set date long
local m.myvar
text to m.myvar textmerge noshow
<!DOCTYPE html>
<html>
<head>

	     
	<title>Horloge CSS 3</title>
	<script src="http://dmouronval.developpez.com/tutoriels/css/animation-css3-horloge/fichiers/PrefixFinder.js"></script>
	<link href="http://fonts.googleapis.com/css?family=Source+Code+Pro" rel="stylesheet" type="text/css" />
	<link href="http://fonts.googleapis.com/css?family=Coda" rel="stylesheet" type="text/css" />
	<style>
		body {
			font-family: 'Coda', cursive;
			background-color:black;background: url('http://www.yannarthusbertrand2.org/index2.php?option=com_datsogallery&func=wmark&mid=406'); background-repeat: no-repeat; background-size: 100%  100%;
		}
			
        h1{
			color: lime;
			font: 700 22pt Verdana,sans-serif;
			letter-spacing: 6px;
			text-align: center;
			text-shadow: 1px 2px 2px tomato;
		}			
		#horloge {
			height: 400px;
			margin: 40px auto;
			position: relative;
			width: 400px;
			border: 10px solid #3A5486;
			border-radius: 50%;
			box-shadow: 0 0 50px #8080A0, 0 0 50px 20px #CCCCCC inset;
		}
		#horloge:before {
			border-radius: 50%;
			box-shadow: -2px -2px 5px #000000 inset, -2px 2px 5px #000000 inset, 2px -2px 5px #000000 inset, 2px 2px 5px #000000 inset;
			position: absolute;
			content: '';
			left: 0;
			top: 0;
			right: 0;
			bottom: 0;
		}
		#seconde{
			left: 198px;
			top: 25px;
			height: 180px;
			border: 1px solid rgba(255,0,0,0.8);
			-webkit-animation: tour 60s steps(60, end) infinite;
			-webkit-transform-origin: 50% 175px;
			animation: tour 60s steps(60, end) infinite;
			transform-origin: 50% 175px;
		}
		#minute{
			left: 196px;
			top: 55px;
			height: 150px;
			border: 4px solid rgba(0,255,0,0.8);
			-webkit-animation: tour 3600s steps(60, end) infinite;
			-webkit-transform-origin: 50% 145px;
			animation: tour 3600s steps(60, end) infinite;
			transform-origin: 50% 145px;
		}
		#heure{
			left: 194px;
			top: 100px;
			height: 100px;
            border: 6px solid rgba(0,255,0,0.8);
			-webkit-animation: tour 43200s linear infinite;
			-webkit-transform-origin: 50% 100px;
			animation: tour 43200s linear infinite;
			transform-origin: 50% 100px;
		}
		#centre{
			border: 6px solid rgba(255,255,255,0.6);
			left: 194px;
			top: 194px;
		}
		.rond, .sep{
			position: absolute;
			border-radius: 50%;
		}
		.sep{
			height: 10px;
			width: 10px;
			text-align: center;
			line-height: 10px;
			top: 195px;
			left: 195px;
		}
		.sep:before{
			content: '•';
			color: lime;
		}
		@-webkit-keyframes tour{
			from{
				-webkit-transform: rotate(0deg);
			}
			to{
				-webkit-transform: rotate(360deg);
			}
		}
		@-o-keyframes tour{
			from{
				-o-transform: rotate(0deg);
			}
			to{
				-o-transform: rotate(360deg);
			}
		}
		@keyframes tour{
			from{
				-webkit-transform: rotate(0deg);
				transform: rotate(0deg);
			}
			to{
				-webkit-transform: rotate(360deg);
				transform: rotate(360deg);
			}
		}
	</style>
</head>
<body bgcolor=black  oncontextmenu="return false;" scroll="no" >
	<br>
	<div id="horloge" class="rond">
		<div id="heure" class="rond"></div>
		<div id="minute" class="rond"></div>
		<div id="seconde" class="rond"></div>
		<div id="centre" class="rond"></div>
	</div>

	<center><h1> <<date()>> </h1></center>
	<br><br><br><br><br><br><br>
	<script>
		var prefixer = new PrefixFinder(),
			tt = new Date(),
			jsTransform = prefixer.getPrefixedProp('transform').js,
			jsDelay = prefixer.getPrefixedProp('animation-delay').js,
			$sep = document.createElement('div'),
			$horloge = document.getElementById('horloge');
		$sep.className = 'sep';
		document.getElementById('seconde').style[jsDelay] = -(tt.getSeconds()) + 's';
		document.getElementById('minute').style[jsDelay] = -(tt.getMinutes()*60 + tt.getSeconds()) + 's';
		document.getElementById('heure').style[jsDelay] = -((tt.getHours()%12)*3600 + tt.getMinutes()*60 + tt.getSeconds()) + 's';
		for(var i = 0; i < 12; i++){
			$sepactu = $sep.cloneNode(true);
			$sepactu.style[jsTransform] = 'rotate(' + (i*30) + 'deg) translateY(-190px)';
			$horloge.appendChild($sepactu);
		}
	</script>
</body>
</html>
endtext
*set safe off
local m.lcdest
m.lcdest=addbs(sys(2023))+"ytemp.html"
strtofile(m.myvar,m.lcdest)
thisform.olecontrol1.navigate(m.lcdest)
ENDPROC

PROCEDURE ymessagebox
lparameters xtext
#define MB_ICONINFORMATION 0x00000040
#define MB_OK 0x00000000
#define MB_APPLMODAL 0x00000000
#define  MB_DEFBUTTON1 0x00000000

DECLARE INTEGER MessageBox IN user32 As MessageBoxA;
INTEGER hwnd,;
STRING  lpText,;
STRING  lpCaption,;
INTEGER wType
*buttons
#define MB_ABORTRETRYIGNORE 0x00000002
#define MB_CANCELTRYCONTINUE 0x00000006
#define MB_HELP 0x00004000
#define MB_OKCANCEL 0x00000001
#define MB_RETRYCANCEL 0x00000005
#define MB_YESNO  0x00000004
#define MB_YESNOCANCEL 0x00000003
*Icons
#define  MB_ICONEXCLAMATION 0x00000030
#define MB_ICONWARNING 0x00000030
#define MB_ICONASTERISK 0x00000040
#define MB_ICONQUESTION 0x00000020
#define MB_ICONSTOP 0x00000010
#define MB_ICONERROR 0x00000010
#define MB_ICONHAND  0x00000010
*To indicate the default button, specify one of the following values.
#define MB_DEFBUTTON2 0x00000100
#define MB_DEFBUTTON3 0x00000200
#define MB_DEFBUTTON4 0x00000300
*To indicate the modality of the dialog box, specify one of the following values.
#define MB_SYSTEMMODAL 0x00001000
#define MB_TASKMODAL 0x00002000
*To specify other options, use one or more of the following values.
#define MB_DEFAULT_DESKTOP_ONLY 0x00020000
#define MB_RIGHT 0x00080000
#define MB_RTLREADING  0x00100000
#define MB_SETFOREGROUND  0x00010000
#define MB_TOPMOST  0x00040000
#define MB_SERVICE_NOTIFICATION 0x00200000
*Return code
#define IDABORT 3
#define IDCANCEL 2
#define IDCONTINUE 11
#define IDIGNORE 5
#define IDNO 7
#define IDOK 1
#define IDRETRY 4
#define IDTRYAGAIN 10
#define IDYES 6
MessageBoxA(_vfp.hwnd,xtext,"Summary help",MB_APPLMODAL+MB_OK +MB_ICONINFORMATION +MB_DEFBUTTON1 )
ENDPROC

PROCEDURE yhome
local m.myvar
text to m.myvar noshow
<body style="padding:0px; margin:0px; background-color:#000;background:url('https://s-media-cache-ak0.pinimg.com/originals/e1/a0/ef/e1a0ef685ab2c885a3b837db6f6ebd6d.gif') repeat;font-family:helvetica, arial, verdana, sans-serif; ">
</body>
endtext
m.lcdest=Addbs(Sys(2023))+"ytemp.html"
Strtofile(m.myvar,m.lcdest)
Thisform.olecontrol1.Navigate(m.lcdest)
ENDPROC

PROCEDURE yslideshow
local m.ysound  &&can set a disc audio media (or web one)
m.ysound = "https://archive.org/download/beethoven9/beethoven-9-01-concertgebouw-klemperer-1956-16048.mp3"
local m.xx
text to m.xx noshow
<div> <img u="image" src="http://quartz.themegasm.net/wp-content/uploads/2016/04/photo-1434064511983-18c6dae20ed5.jpg" /></div>
<div> <img u="image" src="http://quartz.themegasm.net/wp-content/uploads/revslider/notgeneric/iceberg.jpg" /></div>
<div> <img u="image" src="https://pbs.twimg.com/media/B1eMOuRIYAALIcU.jpg" /></div>
<div> <img u="image" src="http://www.tsvoyages.com/images/2015/02/6995933-desert-oasis-libya-1250x703.jpg" /></div>
<div> <img u="image" src="http://blauekamel.com/images/com_fwgallery/files/43/taghit-01.JPG" /></div>
<div> <img u="image" src="http://intymag.com/wp-content/uploads/2016/03/mon-weekend-%C3%A0-taghit-e1458230519606.jpg" /></div>
<div> <img u="image" src="http://www.vitaminedz.org/photos/118/118859-photos-taghit-palmeraie-et-dunes-dorees-novembre-2006.jpg" /></div>
<div> <img u="image" src="http://www.vitaminedz.com/photos/19/19939-taghit-l-enchanteresse-ou-carrement-l-nvoutante.jpg" /></div>
<div> <img u="image" src="https://s-media-cache-ak0.pinimg.com/originals/31/7f/e8/317fe8b6f51e0f58ebda83f70fb77a8f.jpg" /></div>
<div> <img u="image" src="https://upload.wikimedia.org/wikipedia/commons/thumb/f/fd/Vue_de_Taghit.jpg/280px-Vue_de_Taghit.jpg" /></div>
<div> <img u="image" src="http://www.algerie-focus.com/wp-content/uploads/2014/12/B%C3%A9char-Taghit_20-d%C3%A9cembre-2014.jpg" /></div>
<div> <img u="image" src="http://www.alger-culture.com/images/news/Kseur%20taghit.jpg" /></div>
<div> <img u="image" src="http://p2.storage.canalblog.com/20/24/763987/55549657.jpg" /></div>
<div> <img u="image" src="https://s-media-cache-ak0.pinimg.com/564x/1b/91/b4/1b91b48c267ff3cba9e548b227b5c5d2.jpg" /></div>
<div> <img u="image" src="http://www.algerieprofonde.net/wp-content/uploads/2015/01/desert-sahara-Algeria-1526631-1920x1080.jpg" /></div>
<div> <img u="image" src="http://a141.idata.over-blog.com/600x450/5/07/50/27/images/xxx/oasis-desert-sahara-algerie.jpg" /></div>
<div> <img u="image" src="http://www.algerie-monde.com/sahara/tassili-sahara-algerie.jpg" /></div>
<div> <img u="image" src="http://www.pageshalal.fr/images/actualite/algerie_sahara-0.jpg" /></div>
<div> <img u="image" src="https://s-media-cache-ak0.pinimg.com/originals/ef/a5/5a/efa55a7881763d3a5ffb7631a2172945.jpg" /></div>
<div> <img u="image" src="http://www.faculte-islamologie-paris.fr/v2/images/voyage/caravane-berbere-sahara.jpg" /></div>
<div> <img u="image" src="http://www.faculte-islamologie-paris.fr/v2/images/voyage/caravane-berbere-sahara.jpg" /></div>
<div> <img u="image" src="http://sahara-eliki.org/images/ihrir/guelta.jpg" /></div>
<div> <img u="image" src="http://a397.idata.over-blog.com/1/17/68/82/algerie/erg-d-amder.jpg" /></div>
<div> <img u="image" src="http://www.algerieprofonde.net/wp-content/uploads/2015/08/Sahara1.jpg" /></div>
endtext

local m.myvar
text to m.myvar textmerge noshow
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>Fade Slideshow jquery javascript+html code example for website design, website development, web developer, web design, web development, web designer, website, web page</title>
<link href="http://cdn.jssor.com/style/site/css/site-style-1.1.2.min.css" rel="stylesheet" />
<style>
body{background-color:black;background:url('https://s-media-cache-ak0.pinimg.com/originals/e1/a0/ef/e1a0ef685ab2c885a3b837db6f6ebd6d.gif') repeat;}
</style>
</head>

<body bgcolor=black  oncontextmenu="return false;" scroll="no" >
<br>
<script type="text/javascript" src="http://cdn.jssor.com/script/jssor.slider-22.0.7.min.js"></script>
<script>
var _SlideshowTransitionC = {};
var _SlideshowTransitionCodes = {};
var _SlideshowTransitions = [];

//----------- Fade Effects --------------
{
_SlideshowTransitionC["Fade"] = { $Duration: 1200, $Opacity: 2 };
_SlideshowTransitionCodes["Fade"] = "{$Duration:1200,$Opacity:2}";

_SlideshowTransitionC["Fade in L"] = { $Duration: 1200, x: 0.3, $During: { $Left: [0.3, 0.7] }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in L"] = "{$Duration:1200,x:0.3,$During:{$Left:[0.3,0.7]},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade in R"] = { $Duration: 1200, x: -0.3, $During: { $Left: [0.3, 0.7] }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in R"] = "{$Duration:1200,x:-0.3,$During:{$Left:[0.3,0.7]},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade in T"] = { $Duration: 1200, y: 0.3, $During: { $Top: [0.3, 0.7] }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in T"] = "{$Duration:1200,y:0.3,$During:{$Top:[0.3,0.7]},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade in B"] = { $Duration: 1200, y: -0.3, $During: { $Top: [0.3, 0.7] }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in B"] = "{$Duration:1200,y:-0.3,$During:{$Top:[0.3,0.7]},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade in LR"] = { $Duration: 1200, x: 0.3, $Cols: 2, $During: { $Left: [0.3, 0.7] }, $ChessMode: { $Column: 3 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in LR"] = "{$Duration:1200,x:0.3,$Cols:2,$During:{$Left:[0.3,0.7]},$ChessMode:{$Column:3},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade in LR Chess"] = { $Duration: 1200, y: 0.3, $Cols: 2, $During: { $Top: [0.3, 0.7] }, $ChessMode: { $Column: 12 }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in LR Chess"] = "{$Duration:1200,y:0.3,$Cols:2,$During:{$Top:[0.3,0.7]},$ChessMode:{$Column:12},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade in TB"] = { $Duration: 1200, y: 0.3, $Rows: 2, $During: { $Top: [0.3, 0.7] }, $ChessMode: { $Row: 12 }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in TB"] = "{$Duration:1200,y:0.3,$Rows:2,$During:{$Top:[0.3,0.7]},$ChessMode:{$Row:12},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade in TB Chess"] = { $Duration: 1200, x: 0.3, $Rows: 2, $During: { $Left: [0.3, 0.7] }, $ChessMode: { $Row: 3 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in TB Chess"] = "{$Duration:1200,x:0.3,$Rows:2,$During:{$Left:[0.3,0.7]},$ChessMode:{$Row:3},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade in Corners"] = { $Duration: 1200, x: 0.3, y: 0.3, $Cols: 2, $Rows: 2, $During: { $Left: [0.3, 0.7], $Top: [0.3, 0.7] }, $ChessMode: { $Column: 3, $Row: 12 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade in Corners"] = "{$Duration:1200,x:0.3,y:0.3,$Cols:2,$Rows:2,$During:{$Left:[0.3,0.7],$Top:[0.3,0.7]},$ChessMode:{$Column:3,$Row:12},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out L"] = { $Duration: 1200, x: 0.3, $SlideOut: true, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out L"] = "{$Duration:1200,x:0.3,$SlideOut:true,$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out R"] = { $Duration: 1200, x: -0.3, $SlideOut: true, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out R"] = "{$Duration:1200,x:-0.3,$SlideOut:true,$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out T"] = { $Duration: 1200, y: 0.3, $SlideOut: true, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out T"] = "{$Duration:1200,y:0.3,$SlideOut:true,$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out B"] = { $Duration: 1200, y: -0.3, $SlideOut: true, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out B"] = "{$Duration:1200,y:-0.3,$SlideOut:true,$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out LR"] = { $Duration: 1200, x: 0.3, $Cols: 2, $SlideOut: true, $ChessMode: { $Column: 3 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out LR"] = "{$Duration:1200,x:0.3,$Cols:2,$SlideOut:true,$ChessMode:{$Column:3},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out LR Chess"] = { $Duration: 1200, y: -0.3, $Cols: 2, $SlideOut: true, $ChessMode: { $Column: 12 }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out LR Chess"] = "{$Duration:1200,y:-0.3,$Cols:2,$SlideOut:true,$ChessMode:{$Column:12},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out TB"] = { $Duration: 1200, y: 0.3, $Rows: 2, $SlideOut: true, $ChessMode: { $Row: 12 }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out TB"] = "{$Duration:1200,y:0.3,$Rows:2,$SlideOut:true,$ChessMode:{$Row:12},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out TB Chess"] = { $Duration: 1200, x: -0.3, $Rows: 2, $SlideOut: true, $ChessMode: { $Row: 3 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out TB Chess"] = "{$Duration:1200,x:-0.3,$Rows:2,$SlideOut:true,$ChessMode:{$Row:3},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade out Corners"] = { $Duration: 1200, x: 0.3, y: 0.3, $Cols: 2, $Rows: 2, $During: { $Left: [0.3, 0.7], $Top: [0.3, 0.7] }, $SlideOut: true, $ChessMode: { $Column: 3, $Row: 12 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade out Corners"] = "{$Duration:1200,x:0.3,y:0.3,$Cols:2,$Rows:2,$During:{$Left:[0.3,0.7],$Top:[0.3,0.7]},$SlideOut:true,$ChessMode:{$Column:3,$Row:12},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade Fly in L"] = { $Duration: 1200, x: 0.3, $During: { $Left: [0.3, 0.7] }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in L"] = "{$Duration:1200,x:0.3,$During:{$Left:[0.3,0.7]},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly in R"] = { $Duration: 1200, x: -0.3, $During: { $Left: [0.3, 0.7] }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in R"] = "{$Duration:1200,x:-0.3,$During:{$Left:[0.3,0.7]},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly in T"] = { $Duration: 1200, y: 0.3, $During: { $Top: [0.3, 0.7] }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in T"] = "{$Duration:1200,y:0.3,$During:{$Top:[0.3,0.7]},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly in B"] = { $Duration: 1200, y: -0.3, $During: { $Top: [0.3, 0.7] }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in B"] = "{$Duration:1200,y:-0.3,$During:{$Top:[0.3,0.7]},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly in LR"] = { $Duration: 1200, x: 0.3, $Cols: 2, $During: { $Left: [0.3, 0.7] }, $ChessMode: { $Column: 3 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in LR"] = "{$Duration:1200,x:0.3,$Cols:2,$During:{$Left:[0.3,0.7]},$ChessMode:{$Column:3},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly in LR Chess"] = { $Duration: 1200, y: 0.3, $Cols: 2, $During: { $Top: [0.3, 0.7] }, $ChessMode: { $Column: 12 }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in LR Chess"] = "{$Duration:1200,y:0.3,$Cols:2,$During:{$Top:[0.3,0.7]},$ChessMode:{$Column:12},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly in TB"] = { $Duration: 1200, y: 0.3, $Rows: 2, $During: { $Top: [0.3, 0.7] }, $ChessMode: { $Row: 12 }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in TB"] = "{$Duration:1200,y:0.3,$Rows:2,$During:{$Top:[0.3,0.7]},$ChessMode:{$Row:12},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly in TB Chess"] = { $Duration: 1200, x: 0.3, $Rows: 2, $During: { $Left: [0.3, 0.7] }, $ChessMode: { $Row: 3 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in TB Chess"] = "{$Duration:1200,x:0.3,$Rows:2,$During:{$Left:[0.3,0.7]},$ChessMode:{$Row:3},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly in Corners"] = { $Duration: 1200, x: 0.3, y: 0.3, $Cols: 2, $Rows: 2, $During: { $Left: [0.3, 0.7], $Top: [0.3, 0.7] }, $ChessMode: { $Column: 3, $Row: 12 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly in Corners"] = "{$Duration:1200,x:0.3,y:0.3,$Cols:2,$Rows:2,$During:{$Left:[0.3,0.7],$Top:[0.3,0.7]},$ChessMode:{$Column:3,$Row:12},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out L"] = { $Duration: 1200, x: 0.3, $SlideOut: true, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out L"] = "{$Duration:1200,x:0.3,$SlideOut:true,$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out R"] = { $Duration: 1200, x: -0.3, $SlideOut: true, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out R"] = "{$Duration:1200,x:-0.3,$SlideOut:true,$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out T"] = { $Duration: 1200, y: 0.3, $SlideOut: true, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out T"] = "{$Duration:1200,y:0.3,$SlideOut:true,$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out B"] = { $Duration: 1200, y: -0.3, $SlideOut: true, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out B"] = "{$Duration:1200,y:-0.3,$SlideOut:true,$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out LR"] = { $Duration: 1200, x: 0.3, $Cols: 2, $SlideOut: true, $ChessMode: { $Column: 3 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out LR"] = "{$Duration:1200,x:0.3,$Cols:2,$SlideOut:true,$ChessMode:{$Column:3},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out LR Chess"] = { $Duration: 1200, y: 0.3, $Cols: 2, $SlideOut: true, $ChessMode: { $Column: 12 }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out LR Chess"] = "{$Duration:1200,y:0.3,$Cols:2,$SlideOut:true,$ChessMode:{$Column:12},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out TB"] = { $Duration: 1200, y: 0.3, $Rows: 2, $SlideOut: true, $ChessMode: { $Row: 12 }, $Easing: { $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out TB"] = "{$Duration:1200,y:0.3,$Rows:2,$SlideOut:true,$ChessMode:{$Row:12},$Easing:{$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out TB Chess"] = { $Duration: 1200, x: 0.3, $Rows: 2, $SlideOut: true, $ChessMode: { $Row: 3 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out TB Chess"] = "{$Duration:1200,x:0.3,$Rows:2,$SlideOut:true,$ChessMode:{$Row:3},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Fly out Corners"] = { $Duration: 1200, x: 0.3, y: 0.3, $Cols: 2, $Rows: 2, $During: { $Left: [0.3, 0.7], $Top: [0.3, 0.7] }, $SlideOut: true, $ChessMode: { $Column: 3, $Row: 12 }, $Easing: { $Left: $JssorEasing$.$EaseInCubic, $Top: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2, $Outside: true };
_SlideshowTransitionCodes["Fade Fly out Corners"] = "{$Duration:1200,x:0.3,y:0.3,$Cols:2,$Rows:2,$During:{$Left:[0.3,0.7],$Top:[0.3,0.7]},$SlideOut:true,$ChessMode:{$Column:3,$Row:12},$Easing:{$Left:$JssorEasing$.$EaseInCubic,$Top:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2,$Outside:true}";

_SlideshowTransitionC["Fade Clip in H"] = { $Duration: 1200, $Delay: 20, $Clip: 3, $Assembly: 260, $Easing: { $Clip: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade Clip in H"] = "{$Duration:1200,$Delay:20,$Clip:3,$Assembly:260,$Easing:{$Clip:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade Clip in V"] = { $Duration: 1200, $Delay: 20, $Clip: 12, $Assembly: 260, $Easing: { $Clip: $JssorEasing$.$EaseInCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade Clip in V"] = "{$Duration:1200,$Delay:20,$Clip:12,$Assembly:260,$Easing:{$Clip:$JssorEasing$.$EaseInCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade Clip out H"] = { $Duration: 1200, $Delay: 20, $Clip: 3, $SlideOut: true, $Assembly: 260, $Easing: { $Clip: $JssorEasing$.$EaseOutCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade Clip out H"] = "{$Duration:1200,$Delay:20,$Clip:3,$SlideOut:true,$Assembly:260,$Easing:{$Clip:$JssorEasing$.$EaseOutCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade Clip out V"] = { $Duration: 1200, $Delay: 20, $Clip: 12, $SlideOut: true, $Assembly: 260, $Easing: { $Clip: $JssorEasing$.$EaseOutCubic, $Opacity: $JssorEasing$.$EaseLinear }, $Opacity: 2 };
_SlideshowTransitionCodes["Fade Clip out V"] = "{$Duration:1200,$Delay:20,$Clip:12,$SlideOut:true,$Assembly:260,$Easing:{$Clip:$JssorEasing$.$EaseOutCubic,$Opacity:$JssorEasing$.$EaseLinear},$Opacity:2}";

_SlideshowTransitionC["Fade Stairs"] = { $Duration: 800, $Delay: 30, $Cols: 8, $Rows: 4, $Formation: $JssorSlideshowFormations$.$FormationStraightStairs, $Assembly: 2050, $Opacity: 2 };
_SlideshowTransitionCodes["Fade Stairs"] = "{$Duration:800,$Delay:30,$Cols:8,$Rows:4,$Formation:$JssorSlideshowFormations$.$FormationStraightStairs,$Assembly:2050,$Opacity:2}";

_SlideshowTransitionC["Fade Random"] = { $Duration: 1000, $Delay: 80, $Cols: 8, $Rows: 4, $Opacity: 2 };
_SlideshowTransitionCodes["Fade Random"] = "{$Duration:1000,$Delay:80,$Cols:8,$Rows:4,$Opacity:2}";

_SlideshowTransitionC["Fade Swirl"] = { $Duration: 800, $Delay: 30, $Cols: 8, $Rows: 4, $Formation: $JssorSlideshowFormations$.$FormationSwirl, $Opacity: 2 };
_SlideshowTransitionCodes["Fade Swirl"] = "{$Duration:800,$Delay:30,$Cols:8,$Rows:4,$Formation:$JssorSlideshowFormations$.$FormationSwirl,$Opacity:2}";

_SlideshowTransitionC["Fade ZigZag"] = { $Duration: 800, $Delay: 30, $Cols: 8, $Rows: 4, $Formation: $JssorSlideshowFormations$.$FormationZigZag, $Assembly: 260, $Opacity: 2 };
_SlideshowTransitionCodes["Fade ZigZag"] = "{$Duration:800,$Delay:30,$Cols:8,$Rows:4,$Formation:$JssorSlideshowFormations$.$FormationZigZag,$Assembly:260,$Opacity:2}";
}

$Jssor$.$Each(_SlideshowTransitionC, function (slideshowTransition, name) {
_SlideshowTransitions.push(slideshowTransition);
});
</script>
<script>
jssor_slider1_starter = function (containerId) {
var jssor_slider1 = new $JssorSlider$(containerId, {
$AutoPlay: true,                                    //[Optional] Whether to auto play, to enable slideshow, this option must be set to true, default value is false
$Idle: 3000,                            //[Optional] Interval (in milliseconds) to go for next slide since the previous stopped if the slider is auto playing, default value is 3000
$DragOrientation: 3,                                //[Optional] Orientation to drag slide, 0 no drag, 1 horizental, 2 vertical, 3 either, default value is 1 (Note that the $DragOrientation should be the same as $PlayOrientation when $Cols is greater than 1, or parking position is not 0)
$PauseOnHover: 1,                                   //[Optional] Whether to pause when mouse over if a slider is auto playing, 0 no pause, 1 pause for desktop, 2 pause for touch device, 3 pause for desktop and touch device, 4 freeze for desktop, 8 freeze for touch device, 12 freeze for desktop and touch device, default value is 1

$SlideshowOptions: {                                //[Optional] Options to specify and enable slideshow or not
$Class: $JssorSlideshowRunner$,                 //[Required] Class to create instance of slideshow
$Transitions: _SlideshowTransitions,            //[Required] An array of slideshow transitions to play slideshow
$TransitionsOrder: 1,                           //[Optional] The way to choose transition to play slide, 1 Sequence, 0 Random
$ShowLink: true                                 //[Optional] Whether to bring slide link on top of the slider when slideshow is running, default value is false
}
});

PlaySlideshowTransition = function (event) {
$Jssor$.$StopEvent(event);
$Jssor$.$CancelEvent(event);

try {
var eventSrcElement = $Jssor$.$EvtSrc(event);
var transitionName = $Jssor$.$InnerText(eventSrcElement);
jssor_slider1.$Next();

jssor_slider1.$SetSlideshowTransitions([_SlideshowTransitionC[transitionName]]);

var effectStr = _SlideshowTransitionCodes[transitionName];

if (transitionNameTextBox) {
transitionNameTextBox.value = transitionName;
}
if (transitionCodeTextBox) {
transitionCodeTextBox.value = effectStr;
}
}
catch (e) { }
}
TransitionTextBoxClickEventHandler = function (event) {
transitionCodeTextBox.select();

$Jssor$.$CancelEvent(event);
$Jssor$.$StopEvent(event);
}

var transitionCodeTextBox = $Jssor$.$GetElement("stTransition");
var transitionNameTextBox = $Jssor$.$GetElement("stTransitionName");
$Jssor$.$AddEvent(transitionCodeTextBox, "click", TransitionTextBoxClickEventHandler);

//responsive code begin
//you can remove responsive code if you don't want the slider scales while window resizing
function ScaleSlider() {
var bodyWidth = document.body.clientWidth;
if (bodyWidth)
jssor_slider1.$ScaleWidth(Math.min(bodyWidth, 950));
else
$Jssor$.$Delay(ScaleSlider, 30);
}
ScaleSlider();
$Jssor$.$AddEvent(window, "load", ScaleSlider);

$Jssor$.$AddEvent(window, "resize", ScaleSlider);
$Jssor$.$AddEvent(window, "orientationchange", ScaleSlider);
//responsive code end
};
</script>
<div style="height:50px;"></div>
<!-- Jssor Slider Begin -->
<!-- To move inline styles to css file/block, please specify a class name for each element. -->

<div id="slider1_container" style="position: relative; margin: 0 auto; width:<<thisform.width>>px; height:500px; left:0px; top:0px;">

<!-- Loading Screen -->
<div u="loading" style="position: absolute; top: 0px; left: 0px;">
<div style="filter: alpha(opacity=70); opacity:0.7; position: absolute; display: block;
background-color: #000000; top: 0px; left: 0px;width: 100%;height:100%;">
</div>
<div style="position: absolute; display: block; background: url(../img/loading.gif) no-repeat center center;
top: 0px; left: 0px;width: 100%;height:100%;">
</div>
</div>

<!-- Slides Container -->
<div u="slides" style="cursor: move; position: absolute; left: 0px; top: 0px; width: <<thisform.width>>px; height: 500px;
overflow: hidden;">
<<m.xx>>
</div>
<a style="display: none" href="http://www.jssor.com"></a>
<!-- Trigger -->
</div>
<!-- Jssor Slider End -->
<!--#region slideshow codes-->
<div style="height: 20px;"></div>
<div class="slideshow-block">
</div>
<script>jssor_slider1_starter("slider1_container");</script>

<div style="height: 10px;"></div>
<div style="height: 15px;"></div>
<object id="mediaplayer" classid="clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#version=5,1,52,701" standby="loading microsoft windows media player components..." type="application/x-oleobject" width="1" height="1">
<param name="filename" value="<<m.ysound>>">
<param name="animationatstart" value="true">
<param name="transparentatstart" value="true">
<param name="autostart" value="true">
<param name="showcontrols" value="true">
<param name="ShowStatusBar" value="true">
<param name="windowlessvideo" value="true">
<param name='loop' value='true'>
<embed src="<<m.ysound>>" autostart="true" showcontrols="true" showstatusbar="1" bgcolor="white" width="1" height="1">
</object>
</body >
</html>
endtext

m.lcdest=addbs(sys(2023))+"ytemp.html"
strtofile(m.myvar,m.lcdest)

thisform.olecontrol1.navigate(m.lcdest)
ENDPROC

PROCEDURE yfillimg
local m.myvar
*camera.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEmSURBVEhL7dPPKkVRFMfxg7HyJ8XETMkDGJgZMSZz8RD+3Gdgzgv4UzJgoPx5AGOZmZiIEWOK77e2Ou2zyj6XgcH91ad2a629V93OrXr5i2zjHg8Za1v4VRbx+YMFFKcPs1hJrhA9WufM97x3fSPMAM4RPdLGGXyrkWVEF7qxhEY2EQ3rGR3MJ55fEM1qA434RUTDdxiHmUzMBOxFd8KvK1rwjmkM4iLV5NnaDJyp31HxgkuYXeS9HZhr5L3iBXswt8h71sw+8l7xghOYQ+S9A5hT5L3iBa8YwhSeUk2erY3gLdXqihfoCP5xRrGaeLZ2jOhOqwW6wRz6E8/WolmFC9YRDdd9JFGvbg2N+Hs+IrrQhm8MI8wY/Jv7eXbDu77Ry79JVX0B8DDxV3O5I6AAAAAASUVORK5CYII=
endtext
thisform.container1.image1 .pictureval=strconv(m.myvar,14)

*arrow-circle-left.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADuSURBVEhL7ZRNCsJADEYLXkNU8Ab+4EYvoLfQo3gIPYVLNx7Ce7hQV+Kiot+DBsJgnVYtKPSDByWZZDKTTJNaf6OOWIhlBt9t8bGaYiNScQ/Aho81b2kiDiJMegtsrBmLUqKqMPlRDMRInDObwdpSJ+HoPgHJ+8K0Et4PxBQSzfN3fhJDYZqJq/DJgRiGISomxIKovCdMXbEVO8de2Pq5iIoxtIr8teSpIS6CGGKjqnyDyq+oJV41eSrymlz4dcfGdC28HwqPKar8oSGef7gJ1/CVX4WJqji674mBDV/pyp+JxjMhjCHwja3WzytJHlDIg1OXrA5/AAAAAElFTkSuQmCC
endtext
thisform.container1.image2 .pictureval=strconv(m.myvar,14)

*arrow-circle-o-right.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEZSURBVEhL7ZRNDgFBEEbbKVgITuAE7GxwC1YWXMJ9JNzCIfyEnTMIvje6ks5EpqeJiGS+5GVqqqure7qqx1X6G3XEVCw92G3xsZpiJa7ingMfY8S8pb64CEu4FxsPtvmJ6YkksStLfhJDURMmbHyM2SJJX8KnW/I6jkAj/0SMnQWxzCklCmpnzi7zuon508xEDLHMaeGIiQ5hwk5wFF0xCGAsXISYg8A/wRETbUjwOntzbit4z8MiM4EoPD7mRvX1BeyIaMWiI1oIlHxE3NBYkS05Si4yKmrTsX+ihkhuUxReNBKwS47ChI3PkidfNMT1t0XgKOxXgW1+YpJ/FSZ2xadbTULwMZa881eieHQIbQjYpQta6Zdy7gFaj3E/Nn5qQwAAAABJRU5ErkJggg==
endtext
thisform.container1.image3 .pictureval=strconv(m.myvar,14)

*calculator.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFuSURBVEhL7dW/K4VxFMfx8wcYlMnAVf4A+RMYxEIRizJiYJIYxEKRRCmSQdksJkphILf8GkihsLAwGBRl8eP9+X6/d1Hu/T5PMd1TrzpneM557vc5z3OtGEmjC5e4S+EYNcgbFzhEd0L9eMIs8sYV+nyaONYx79Pf418GDPo0cWwhasArThM6xweiBrxgEtqKL2hDxvEQ6gNM4y3Ua1gOedSAUZ9aFXRRo6vMOqC6zFV+yI1PXewhasA2StELNZxBCZZC3QkNyULHWYtqPCJqgJqkFTXgFq1YhS7aQTN0x6r1S9pxj09o63rwjqgBQz61cqhhvavMWqBax6WYwJlPXWwiaoC+RQ1YhBpuoA67odYzaYK26wi5iH7R1CRWqgFatwoMQE0WoOPKPRNtVwYnSDVgxKdWCTXUcSnaoForrJjCtU9d6AgLDtDn+hkasg811DMZhrZLtd6TMeiNV72COWijCn6u//wPpxg/wuwbG2CtC9HyUy8AAAAASUVORK5CYII=
endtext
thisform.container1.Image5 .pictureval=strconv(m.myvar,14)

*clock-o.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEXSURBVEhL7ZRLDgFBFEXb2AIY+K3AChgxsQ0WImE/EtZgGz5hZg0S7mluUimfVgxE4iYneX3r2/VeVfbXz6glRmJ6hbgpPlZNzMRRnCLwaKPPW+qKg/CEa7G4QmyfPh2RJHblyXdiIErCIsajzYsk/Qm/7skrGIGWon0J87a9oC9jXhIJ9Zmzy1j4vUuYiz54jGlgFIkKYcBKhMdixQvQZyPwhxhFogzpPM+/bhUvgEg8/iT/KtC9BcYCzzxagLGF8hFRij6iuugHlIWVfETc0GdJjpWcZPSsTENVRXKZovCiMQG7DCuKGM+TJ180xPX3IrAVfiqI7dMn+amw2BW/7pyE4NGWvPN7InlUiJ9r4pcT+tc3lWVn07tiHkf1T9kAAAAASUVORK5CYII=
endtext
thisform.container1.Image6 .pictureval=strconv(m.myvar,14)

*home.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEBSURBVEhL7dQ9isJQFIbhgMLswNINiM1swNpCsHHABdjYWGhlZTlL0EqmHAQLKwvt3IOFiK5ARTvR0fcL90AIwZ/YCJMPHrhJzj0neCVekiTh5BxLARV8+lcvpoEz/tDRDTLHBUP/KmY+8AM1mjpa97F069gDMphBTbqoOVrrnok1II8VTmjjG9awhzqO7vrpAUXssEcVI1hzM8YXtjigjIfSgg5zgRLsIKPomWpUqz1N3M0AOki93QZRjYNUo1rt0d67SSMF/a5RDaOoVnu09+GEB6yhgxatg89i/YvCAyawaB189p4DfhFscmuAap9OFvqQGX3YLPaRM6pN8j/jeVevIHU9WVecAAAAAABJRU5ErkJggg==
endtext
thisform.container1.Image7 .pictureval=strconv(m.myvar,14)

*question-circle.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEmSURBVEhL7dS9LgVBGIfxVREkGjpB3ISGVqlxB1yKxg3o3IBGoxCJQigUSqVGJaGQaEXC8yTzJm8mKztLIZLzT37JnPnY2Z2P003yb7KGfRwUllfx6yzjFB/4rFhnm31+lC28oH7we/XbPpsYFd8qP/wBO5jBFDZwjTzJqC/x02PwIxZRZxq3iH6OaYobmtf8ArOYwxGOsQCzi+jnmBUMxhMSg8I9bkr5DXGCtpH77WEwHsM8KLtErLV7cYLc7tjBfDfBM+ZhlnCGuk/TBH1LpDusF+elrta0RK5v38V6wmFhuW5v3mSTj2lw/SOW6/bmY2rqi6YrRCznttEXzXj960lei1xnn9F/FRHfyk/v2xPrbBv95n1x8zwhHkNZbt7QSf4yXfcFT7uQIrokdv8AAAAASUVORK5CYII=
endtext
thisform.container1.Image8 .pictureval=strconv(m.myvar,14)


*star-o.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVEhL7ZTPKgZRGIfHmpKSK1C2LF0A5RoslIXyr2wk1vqKlewV5RqsZENJuQBrG6SsWBGe55wzG01j5jTf7nvqqfd9z+9MM2fqFAO6ZibZN+7wHodC1zEL+Jm07pwbPMUzvHXQJfP4hVM4iX7FHGYzjrO4hPv4gOdYYu3MNTNm3fMvE/iKP8kXvMYT9M1LrJ25ZqbMu9dn1LKDhtdC1wyz7tkOXQNW0XNeDl09i2h2K3QtWEF/7GboqmmSqaWHz7GsxPM3k80hXsaykis8iGUeF3gUy2IY95LWcoxmsnnEdfSMPaqnpPUGOjeTxSh+4we+4S765mrtzDUzZlvjtfyO/sQxB39w5pqZaQdt8UoeiWUtZvpyfQ/ogqL4BYkhP8AVKGDkAAAAAElFTkSuQmCC
endtext
thisform.container1.Image10 .pictureval=strconv(m.myvar,14)

*volume-up.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVEhL7dQxagJBFMbxVVFsDAQsLCyioKQQYpOUWqg3sLax8xDaWtuJYpMTxNbOeIg0aQQbQypBQSL6f9GBYVlHR7EQ9oNfscPyHvtmZxw/fkx5xi9aCMvCNUnjC6X/p30CqGOOTzzgokjxKbaoyQJJoIssUvjGENLUKnpxvcEjRlihiBesUYUxUTTRPtCLqwYy7wpC6OAHMfQwgTGv0Au6SYMnLDBABDM0UMYfpNnRvMGrsKJGJF+wQRzv6CMJeSeHo7l5A5sRSVHrEdlschDWm+zOqd90iQLyOOs39YrpoGWgDtoHrA+ayqmrYgzj7C+Juuxkz66+7PzcbRxnB6sQYhQ5lWvxAAAAAElFTkSuQmCC
endtext
thisform.container1.Image11 .pictureval=strconv(m.myvar,14)

*thumbs-o-up.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEzSURBVEhL7dStS0NRHIfxq2ARJsYVwSQLDkGcWdBmdmV/wBBBNAkWEfGlqhgsYrbqQJxBRDSo0aCgSc0KFhFfnu8598Aw7BzuvWFhD3zYOXDG7267u1G7rOvFEa4wj05k2hKesYYPVJFpl1i1y2gHNbvMpgK+MWZ2dtCZXaavB3c4hvver7Fpl+nqwgnuoR9ZDeEXT7jBISYQlK52ERsxXfU7BuEqYqHBHr4wAm8r0NU55yjB1wXcDdC0bTQOGIWvHF4wa3aekgzQJ9TZAbPzlGSAzuhsn9l5SjJgGQ926U8D9Id6ReiAfehWDkoDbuHudd+Abuhc2ewCmoPe8BO/vkGPhBn043/j0Nm82QXUAf0rp2IV7EJPUQ18RB0HOMUntpA6DR7GNNahoXpsT6JdyxZFf7uBTwFQBDNfAAAAAElFTkSuQmCC
endtext
thisform.container1.Image12 .pictureval=strconv(m.myvar,14)

*zoom-
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABmJLR0QA/wD/AP+gvaeTAAABYElEQVRIie3UsUocURTG8d8mcY0WESEuREGQrQwsNindQggKgqTRNxARC8FSXyKQTpIqJOlSpTCB6ANYpFBBUNjCRhZDYDEBEXQtZpaMw911xw2k2Q8uc4f7nfM/c+fcS1f/W7k2PCW8xAh+Yx9f8adT+HPsoB4Yv7DWZoFBlVFLJb0IgD7hQdbkBZzFCa7xBmPx2mPMo5KArGcFvE4ELzfxDOE49pzjabvJH6IaB27f4Z1OFLLYzPQo9T4q2iL4HFc6EYir4Xv8HMALvGsH8CQx/4lXeBuIq6Ao6qYBDDb7gnQHVBPzYlxVLjCK6MezQNydOhTt6xHyLXwr/v6DhSyA1UTgR/QEPGXRqa7jBL1ZAHnsJiB7WMIk5rCJy8T6lqj7MmkYP4SvidD4cB9IHzZwmkp2hW+YwUGnEKJOK2EWU26f2oLodm1A3uvgAmymNGT8XwMakC+irksf3q5a6wbfsWXcp0BBmQAAAABJRU5ErkJggg==
endtext
thisform.container1.image13.pictureval=strconv(m.myvar,14)

*folder-open-o.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEmSURBVEhL7dOvSwNhHMfxm7KgE2QoKAhjxaaWgVg0iFaHgnVteRiXBibBanD/wgZiFy1aLGJRi5gMgrAyFRR/7P25O8Gdz549x4rg3vCC57mw7+3uHq/fn2sGO6iG9rGFYfTcNJ5xilqojgccoedKuAmWbc3jC1mkI2L9szLOg2Vbk3iFhkR94hga1rVOA5SG5AwWcQ29t67ZBtjaw0GwtGcakMQCViwOcRaulzACY9EBy7iH6dnbNJDBr34OmMMTdA4mdMGxMbwh7+8ifQ8Yxx10DhJwbQB6XLcwfr4acIETXCKFOG2jiVl/Z0gD9AwfoUMVpw28Y93fdagIDSj4O7cGoR/XnVd0wdYorqBTqy/BxQs+sAun9zWEVWw6WsMU+v3fPK8FgepWfcIpRTwAAAAASUVORK5CYII=
endtext
thisform.container1.Image4 .pictureval=strconv(m.myvar,14)

*zoom 100%

text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABmJLR0QA/wD/AP+gvaeTAAABX0lEQVRIie3VIU9cQRQF4K9LcF0JNOkm+xP6F6AYFKY/AI2qb1JVi6ArEG2yop5gEZBgCKkki0EgCIXQahCwYhHvPvYx7M6+QnCc5CZv5t1zzpuZe+fxigl4UyOnhU+Yx/uYO8ceNvEnR57KvGtiDb/wAYf4jWNMYwVfMIN93Nb42Hu0cYQBDkIwxXS8G6AXnFpoVsTL6KKRRDfJ6QV3IjoJsYwTXEecjMlZnyTewo3h0svoB3k5Yj3mqjkHwW3lDD7jTLG/5Rb0FRWUYqFi0g3OWWiMxRZ+xHNDsRW5ZXcipxHjn6Fxj0ZCaOG0Mp7DbsZgB+8q41PDXhlpMBghkmvGlP9II00497Ce/2IxY/ARl5VxGxeZ/LGHvDAi90mHnCvT74Zl2vHEMhVCL9ZoFO3eS4h1r4q3dQwoDqs0edZllyvBJr5hFf+wbdgjbSxhFhv4iqv/NSjxrB/OKybiDvkQigIRk/HIAAAAAElFTkSuQmCC
endtext
thisform.container1.image14.pictureval=strconv(m.myvar,14)

*zoom+
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABmJLR0QA/wD/AP+gvaeTAAABd0lEQVRIie3Uv0uWURQH8I9aai0tJWggiJOFuDTWEIqC0BaO/gAJJyG3/CeEtqApKmioxUEFdXFraDAHIXIQpUQQJAMR/DHc++L16XlfnrdXcPELl+fce8/5fs9z7zmXa1w16gr4dKMP93GA75jH31rFH2AZpzljDy8LJpiLJ9jPkB7mCH1EfbXkLdiNBCd4jY6414zn2EhEXlUrMJMETyTrX9Ab7Xv4EX3+4G5R8gbsxMClzN4WhpN5f5LIeDnCG5l5u3BE8Dlm2hPnTXgoVNQ+FuP3Dh7hbZE/6EmyGoqZ5VXRz+hfuotP5QizFbCT2J0xq7o4tjES7U7cRmtOXEWB31iP9hgaywViVKgqWKng9w8mnR/FB9yM61NC8xH65CD6bAr3UxiN+JqIrOIFHuMZ3uAo2Z8Tqq8qtOGb/AvOG+//R+QWpvErQ3aMBQxgrVYRQiF0YxBPXezaFuF1LYm8U8MDWA5Zka7LFiiJzApVl30drlEZZ8Qrb5LC/xBhAAAAAElFTkSuQmCC
endtext
thisform.container1.image15.pictureval=strconv(m.myvar,14)

*institution.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD3SURBVEhL7dQ/S0JRHIfxgxIIiWuE+QocgoReQDQEDuLYHi45uTSKS7gLQUsvoCZXEZwFdxfFdxBUQ0GhPd/gwIVz/3lv43ngg/6Ge+5RDsf4/qsT9DHFDQ6RuwIu8Yxv7ALe8Ygz7N0x7rBBcNEoC3RQRmTabRNj/CBsoSRveMApnKoIeyiLJZwO0MAT1hmt0EMdsbUwxOBvMuYWmnV6lL7LFWqBOXFh2wj6qTopag7NOqLK/hX3OA/MbaTKvyAx/4LYXvAFPbDFK+xFp0/NdsFPaBN2/kAXkZVwDV1cWV2gCKcKtAO7mzxmcDpC2P2SxQS+tBnzCz+myy38EP+qAAAAAElFTkSuQmCC
endtext
thisform.container1.Image16 .pictureval=strconv(m.myvar,14)

*film.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFOSURBVEhL7ZQ/K0VxHIcPZTCwGbwUi0nKYPYODGSxGQxeAwMvgUKK8g6EQWIwoIyKTckgnuf8Oss5vte3m8FwP/XUr3s+f+4953aqgf6VhmARtmGnT8zaYVdHC/AJJ3AEH/AG+7AX4DU9es2YtcOujtbgqhxrHYPf6jfp0dvIDrs68sObcqx1Cpvl2FN69DayIxz4glu4Bn9qdkCvGbN2hAPvsAHr8ArZAb1mzNoRDlyUY61DyA7obWRHOPAIozACZ2BwGCJ5TY9eM2btCAe8f39BOPAC8zAH93AJszAT4DU9es2YtSMcOC/HWgeQfQZ6G9kRDjzDNEzBHWQH9Joxa0c40L6X2YF2Lhx4gkmYAO9tdkCvGbN2hAPtZ7BVjj2lJ/UMlsE34yqsgPfyAZbAV/BPeE2PXjNm7fDzjsbBV7B/OUP9YHYXxmCgjKrqG598lojgIW/5AAAAAElFTkSuQmCC
endtext
thisform.container1.Image19 .pictureval=strconv(m.myvar,14)

*keyboard-o.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADxSURBVEhL7dK9agJBFIbhLSLW6exVSJdCMCm0kZQ2IvEytDOxyTXYC1b23oG9kDLXEUHSWej74hTC+rPLpHM/eOAwc2bOumtSpMi/p4THSN5xNq/4wz6Sd7wglU/8oBHJOz6QygTrY5l84QlNjFwgYzwH1sY9e+z1jPEO70rldMASvrIuZi6QBTqBtXHPnh62LpBMA/Im94AN/GBT1ENdwTywds09e6xzDWjjDTWUQ/0A37WsXXPPHmvPmEwDhqjCD+o/4hp77PWMyTRgBZ+oj+8b7LHXMybTgJhcHDDADr+RvOMdZ+NPdTNGC0XuJ0lyACGiaJnDn9hbAAAAAElFTkSuQmCC
endtext
thisform.container1.Image20 .pictureval=strconv(m.myvar,14)

*print.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABmJLR0QA/wD/AP+gvaeTAAABHElEQVRIie3TvUoDQRSG4UcTCy0UU6QRK8HGH1RE7G0svAgvIfcSLO2sFOyscwVGC7GyEBSLNIoi0WotMsQ1zG6yMZAmLww78J0535lzZpkwbqZytD0coxTREtzjFJ/DGlxgCzcRbRZHuMMBWnkmWVyinqEt6dwiCSYLWUmmh3HGB9phv4baqA3esYpdnGNz1AbwjGud/mfOMmYwg31UC5hVw5lyv8ASGn4HmDXkNPVUfEP8WXdZTwUXWc1wgyTk6NLborkBKo6xgbNYjv8MOU0ZK1lCHi089YlZVuBB7Pjb26JDTkKOLr0tamIRFVwNWlWIrYSzzbQQa9Fb+LZxqPOn5rGNW7zGxLw3+4h5fOMrZz3gBC99CpkwJn4AQohH5NHYRGkAAAAASUVORK5CYII=
endtext
thisform.container1.Image21 .pictureval=strconv(m.myvar,14)

*photo.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD1SURBVEhL7dTBCgFRAIXhkbJT7OxtbfAGtjZWPAHv4E3I0o5HsLAheQt7opRixX8wNWbujHsnysKprzSZc4am6/3zU8mghwGGKeledagrkg5OmGKSku5Vh7oi6WP9+HhPFsYneRN1qCuS4EAbR2zR0AWHWA1scH1a6IIhFeQfH19iNbCCP6D/NZwa9tB4eMRqoIwxRijpQiB1qDz4C4MjVgNxqWIHv9y3hD/iNNCCXr8cwk8eNodiPaDyC3TzDEnlordOsRpo4gxTURyngQNMJUmcBvRlU0kSp4ECio50jxI78MnDTkdNJJ86rrtIc0j+85V43g1xuKLdzwRcxgAAAABJRU5ErkJggg==
endtext
thisform.container1.Image22 .pictureval=strconv(m.myvar,14)


text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABYAAAAWCAYAAADEtGw7AAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAA+5pVFh0WE1MOmNvbS5hZG9iZS54bXAAAAAAADw/eHBhY2tldCBiZWdpbj0i77u/IiBpZD0iVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkIj8+IDx4OnhtcG1ldGEgeG1sbnM6eD0iYWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IkFkb2JlIFhNUCBDb3JlIDUuMy1jMDExIDY2LjE0NTY2MSwgMjAxMi8wMi8wNi0xNDo1NjoyNyAgICAgICAgIj4gPHJkZjpSREYgeG1sbnM6cmRmPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4gPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6eG1wTU09Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9tbS8iIHhtbG5zOnN0UmVmPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvc1R5cGUvUmVzb3VyY2VSZWYjIiB4bWxuczp4bXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOmRjPSJodHRwOi8vcHVybC5vcmcvZGMvZWxlbWVudHMvMS4xLyIgeG1wTU06T3JpZ2luYWxEb2N1bWVudElEPSJ1dWlkOjY1RTYzOTA2ODZDRjExREJBNkUyRDg4N0NFQUNCNDA3IiB4bXBNTTpEb2N1bWVudElEPSJ4bXAuZGlkOjFCMTNDNDE5MDY5NzExRTI5OUZEQTZGODg4RDc1ODdCIiB4bXBNTTpJbnN0YW5jZUlEPSJ4bXAuaWlkOjFCMTNDNDE4MDY5NzExRTI5OUZEQTZGODg4RDc1ODdCIiB4bXA6Q3JlYXRvclRvb2w9IkFkb2JlIFBob3Rvc2hvcCBDUzYgKE1hY2ludG9zaCkiPiA8eG1wTU06RGVyaXZlZEZyb20gc3RSZWY6aW5zdGFuY2VJRD0ieG1wLmlpZDowMTgwMTE3NDA3MjA2ODExODA4M0ZFMkJBM0M1RUU2NSIgc3RSZWY6ZG9jdW1lbnRJRD0ieG1wLmRpZDowNjgwMTE3NDA3MjA2ODExODA4M0U3NkRBMDNEMDVDMSIvPiA8ZGM6dGl0bGU+IDxyZGY6QWx0PiA8cmRmOmxpIHhtbDpsYW5nPSJ4LWRlZmF1bHQiPmdseXBoaWNvbnM8L3JkZjpsaT4gPC9yZGY6QWx0PiA8L2RjOnRpdGxlPiA8L3JkZjpEZXNjcmlwdGlvbj4gPC9yZGY6UkRGPiA8L3g6eG1wbWV0YT4gPD94cGFja2V0IGVuZD0iciI/PmlswIwAAABQSURBVHjaYmBgYPgAxP/R8If///8zgDC58oxQBgYAagLJMTAyMpIlz8RAIzA0Df6IRfwjDjbR8ozQmB06QcEwmo5H0/FoOh5Nx8MyHQMEGADWJIqjARDoBgAAAABJRU5ErkJggg==
endtext
thisform.container1.image23.stretch=2
thisform.container1.image23.pictureval=strconv(m.myvar,14)

*minus-circle.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC0SURBVEhL7ZThCcIwEEYziFQHscvYURzDHVxAXEjwvz+E+j3wQEI1l8iBQh48CMld2iSXpM7fsJGT3D+lvZZfs5JHeZdzJn2MEdPEKC8ynziXmK2sgr/yTG5eJdvohqUvTfRJclxweEt7XpIc1yqoEEu6ybM8vZExYix+J4tQhpZwoKMAMRZPbpHwD4Rv0SBbD9l9u0PLFGovGrHVTwbXP+ypMEIfu1c4eCqEMkTa9HV+npQendCcNFIQO6UAAAAASUVORK5CYII=
endtext
thisform.container1.Image24 .pictureval=strconv(m.myvar,14)

*arrows-alt.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADaSURBVEhL7ZRNCgIxDIW7EL2BV1DEvSdUdO3KayleQfQU+j4wUB4O7dQfXMyDj+lkkqZNOk2D/lIrcTC2YiRCjHfC/Ygtai/uxkmMRWgisLkfsUV5grOYChc2vuW+TQluYilcc3ERuW+vBKzu+hzzXIgQ4/xb7KQqwUYcBSXwiXh/ZcOXmLUoihOSnxif0CcPeVwvzURe766+NMsb+lYCtpmf+doSEVNVIprMT9S3ycQQW9TXj2kkCLrq7Y2HpgSsjhK4sMXKg6YE8NHLrva6xuZ+Vdf1oF8qpQffGIK/c/6YigAAAABJRU5ErkJggg==
endtext
thisform.container1.Image25 .pictureval=strconv(m.myvar,14)

*close.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVEhL7ZIxDoFBEEY3ERV64grO5gZalSj/W4gb0HAFhd45+B4mWRMhsxuVfclL/LOTt8KfGo2f05Ozx8e3cMZOEX25kVe5YuBgxhk77IbpJAEzv8TiJrthtjKPIGEfR3bDDORe+pj3KEeyiG+XVMUNAhfp48yq47CUPm6uZRWf4mbxJQvpY4enfs5uGP/nEuY3R3/JToYZy5Mk4N+W/O06y6ksYiLncnh/eoUZZ3yRxv+S0g1g8VjeWbNPjwAAAABJRU5ErkJggg==
endtext
thisform.container1.Image26 .pictureval=strconv(m.myvar,14)

*search.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFHSURBVEhL7dS9SgNBFIbhjb9RW5VgZ2lAvAEt0igIVkavIIhYBFLGygsQBCttQxSsLcRCL8DCQgXBgEUaCYIoCoqg5v0kB5Ylyc6uaYR88BR7dmbOMPvjdfMvMo0CtrGFZYzgz0njHD9NPEFNE4iVObzAv+hH4FoO0YNIGccjtMA3djEJJYks7mFNioiUHdjkdRWaZAwVaMwrRuGUXtSgiWcqtMk8bCM5FVyio7BJGyq0ic7+GRq7p4JLZmANVlUIiT2Lo98rh6RgDcIe3jDeobF6EZxzC026w4AKLaIjtM2sqOCaPGziAfoRjL6TN2hMFYNwjnZ9AWtyhTXMYgn7+ITdP4HevkiZwCVskTBlRG4yhE08wL/YF06xgJtGLXYTRe+7/qiLyMD/1eq3cg1rUkLsH2CrBJtMoeNRk2PomPpU6MYxnlcHqkhno5XubyoAAAAASUVORK5CYII=
endtext
thisform.container1.Image17 .pictureval=strconv(m.myvar,14)
thisform.container1.Image32 .pictureval=strconv(m.myvar,14)
*photo.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD1SURBVEhL7dTBCgFRAIXhkbJT7OxtbfAGtjZWPAHv4E3I0o5HsLAheQt7opRixX8wNWbujHsnysKprzSZc4am6/3zU8mghwGGKeledagrkg5OmGKSku5Vh7oi6WP9+HhPFsYneRN1qCuS4EAbR2zR0AWHWA1scH1a6IIhFeQfH19iNbCCP6D/NZwa9tB4eMRqoIwxRijpQiB1qDz4C4MjVgNxqWIHv9y3hD/iNNCCXr8cwk8eNodiPaDyC3TzDEnlordOsRpo4gxTURyngQNMJUmcBvRlU0kSp4ECio50jxI78MnDTkdNJJ86rrtIc0j+85V43g1xuKLdzwRcxgAAAABJRU5ErkJggg==
endtext
thisform.container1.Image18 .pictureval=strconv(m.myvar,14)

*close.png

text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABmJLR0QA/wD/AP+gvaeTAAAA4ElEQVRIie3UPU7DQBAF4A8Kc4kohHuECkpOAVI4G41Bcstd+CktUUeKIoWCQaxXBm02BJo8aWT77c6bn10PB/w3jgr3zXART3jGI152TWCCFmtsMlvH2qRW/Bz9iHBuPeY1mZeIf9qbr/YVoU2cl7hFl3BdcMuEa0vFZ4Y9XwTf4CGsCW5heCbTkgA3huV3iWCTvXfZ3utc7PibClJc4R4nWIU1uIu1n3xHA5RgU+mHX27RGE7t+ZDZ8zVl+x+tVzEy5oVBqkZFWslOw650XE9xibP4fvIxrl+3TvmAP8c7woN/GBVXpw8AAAAASUVORK5CYII=
endtext
thisform.container1.image26.pictureVal=strconv(m.myvar,14)

*arrow right (url)

text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABmJLR0QA/wD/AP+gvaeTAAAA0klEQVRIie3TsWpCMRTG8V+rFhQ3F2c3X6GDbyHaoU4FB5f6LG5iJ8FJ8QV8HBfXO3Sy6lKrbSPEixcR/CAQTpL/d5Jzwl23pnxW4DIW+EQ7C4Mhtt9jjZfYg4+R+5KjeQ7jc0xiVMDc4Rb7m7xe3eThROwZxcDaEwaoHcW+0MEkNtP3P1nGjDVasQaDFAZbLEOwUBclgViMpqFgqAYV9FA6AWr6XQMYoYtNyuR+1Pf/aT7E/6ez4aNLwd8C8OGl4DDLEg51rLKC71VFQ7jz7kqvHbKjTC9Aw8xzAAAAAElFTkSuQmCC
endtext
thisform.container1.image27.pictureval=strconv(m.myvar,14)

*contextuel menu urls

text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABmJLR0QA/wD/AP+gvaeTAAAAq0lEQVRIie2SMQrCQBREX8Q7RBDsBctUpvEmXsLWG3gJS4+QLk1SSaqQPYHgLbTdDGyho4iQgS2Wz3+z/8/CpF8rk/se2JrMFjinigF4mCfEwLkYDEBuTjCY/a9JMzgBO5NZA4dU8esZXIDSnKAx+z1V+CuqYuBMDFYfeOSIoRkcgcI0uMYX/aYLYGka3IB7qtjhZ9DFQM1AV/aORgxd0QZYmwYB6E3GpH/SE/utU2zvNix6AAAAAElFTkSuQmCC
endtext
thisform.container1.image28.pictureval=strconv(m.myvar,14)

*globe-32.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAB3RJTUUH4AwbFTAVMA4/PgAAAAlwSFlzAAAK8AAACvABQqw0mAAAAARnQU1BAACxjwv8YQUAAAlDSURBVHjavVdpcFtXFX7v6WnfLC+S4zi2JNuy5SVe08RJSEPSTuIAQ6cUhqWdwg9+ZMJgpiUMZAIthA60kLRDoC1lYBgIDGVJYdo00KRpmcLQMHHiJbbleI3lTfti6UnW09PjO4rlCqYB/iSaeVrOvfd8Z/nOOVcMU/QqLy9ju7raeY1Gc9dkXGHBZrMq2ttbTT5fQE6n03dNln9ZrRWK/fvvtW3ZsllVJFNCtulOykpLLfk3dt++Paba2i0bCxUVZTxkVZCp30/GcRzD8zyLcKr27t29s7GxwYnfiv/nbJGMw1kV29m5lY9EovLc3LxEC2VlpTzCVDEzMxeBLF0sm59fSGUy2U9ZLJZHWJYtV6tVf4vFYue0Wt3XZVnWx2LRj8FD29LS8uWpqZn4/9BnmJ6ejSsEQchRTtZDghy1WW/enI/Mzt5MF8vm573RSCRWA5FZq9XM6vU6Ph5PVK6s+M4uLi4+zXHseYejVg4GIwc0Gu2TMGgWBs7fTh9kcRiUZQshsVhKFB0dBLQQhWWpgqy1tXlHIBAc5jj+Za1W2w6xUqHgoqIonr92bbDfaDR22e32F9VqdR3WIn6//2fJZPJ1nU6ncjhqOBg4cuPGVPJ2GPm8lZSYOaSiYmFhKY7QpdZlfFNT4zG/P9gQj6+qS0tLj0PMAnwhkUiOA+hPAPI0NjaeAfhueKwlB/V6/X6UWE1Vle1iMpl6VZYZVzQafc1kMhKGFRixAgb2MhwWGFhlQN7ik5PTAi2YzSbO7W56TBSlbwYCgd8g30IkEj5oMGgPsSzzPLxfhkxP+3Q6rQTw4nbCIFKHVlb8tUjbJ7BW4nI1HCPPgRErwmC3betU8sgbj82piYkpkRYQUm7r1tZeQVh7Ih6Pv7C6uupRqZRWi2XT8UQitRdbeJPJxBgMhjqzWX8pGAyfUKk0O8kgOo9PhgxaXU3oU6nUkCRJYTB+CjxjgCEUMBAN4+LiUoJbXFzOejw38uBQyqFLWcH0IyDWwz6f7we02el09EH1fQQO5cm1tfSTJpP+qXg82Xf9+tg709PTOzOZzDmKFNZTa2trv0eK/gDD04jwA+n02g+RSmcxht8fWJucnJE2SIh8sD09HTYwOw1rd+RyOU1VVdXPjUbdAciMHKe4AJA3g8HAYbu9tlcUs6fgaGkwGDyK5xSdDQRCKZBLgAEiqkTT1NT0Y5w5q1Dwz6F3oOymbJSKYDCUGB31JDZIiM1sd3dHRTgcFYaHr8cR4naA/xaHdCDa5NDQ8C/xfQZeHXM67Y9ns7ln6Bi8lRKJ1RM1NTUnEep25Pdds9m8Dc+HXK76klxOPoGne2Vl5VHIHq6pqX4tFIoERkfH8+AqlYpRgERMd3enMRqNiQhnAgwudTgclwicconP6uXl5R9JUnYEjH9JltkvFGZINps9jabix7Zv4dkRDofPOJ3Oc3DgQfT6OTwe6OsDUJlWq34enAgPDY3M0lnC3batW8nV1TnQUOJrBE4LGo1aBKiRwPGkwYWvofEgbx0VMOItyDLrWZspKzOfhodfIe7dUqpbAA9ydBZh/zQ8fxZiEVXx0WRSSKIEjeCAEfowETuMoVBY5sLhiDQ8PJqhQ7CWbWlxd4PI13FQRsj70Wpfdbvdp1Optfth/ZmlpaWHwA+/Tqc5Dh64JSnXu25QvLGxHinN9wOKnANeWjAi3oZudMhQUqFQqAC+CekuTyQS0vj4RJZHFeSLGM2E5kJVIiEcQOP4qU6n7wmFQj9paWnuh1eHYd9nbTabCIN+53TWfhC5X5Qk5ldKpTLvPRrUHJGP/CgQG2R9EMa+An1vIT0XKirKXfX1LivAfXCaKuZW6NCziQflyBmaCvdXj8ezG5aqGxrq6iVJvoh9unWdIs9zz4pi5juDgyNRDKVOKP280Wj6MErzEvr7kfr6ekqlDKOT0PcidH0VBJUhP2W1locwe15CJH0wjKLEcKhVBvkwoFxEKI3goAJj9l6MWBjIfq8InJqMEg0mQ+Cokn0g1YTFYv5GLid2eTwT/VAu+nwrfXq95hBkrWNjY0dBVAnkPYkq+CJauKUATrjbt/fwHLxUYFP22rXhGC2g8/0doSOGS+DHRfKmqMP5JiennkHPcCMdbzQ3N09h5fs+X/AD8BLTTs5WV1cN4/u017uEGWX/LlLEoCp6KCgwPkkYJCOnU6k0ywtCKufxTKZxiC4ZaJP6C4KQnAqHYx9BBXwbSqj1HiMF4MTTmAOrKNMvU6Qg24Su+ajVav0kcmxBzz+CHnFSFHNK9IZ81DCUkDLkAEUF5/5JGN3d7aUwJDMyMirymNN5D+lCg4UybHwbIRba2tr+jKrYj054FJunkI5jqIAXUEaVaK+foTOFGYT1y21tbh3L8t2oDOV7KWNy4IskCBmqsvNUUesYzNWrg4m807cYrEBI2i0U5oGBwQDCT+FWo0M+gntA1fj42MfBkZcpzA6HvR+q1cUTECX5bi6XZQDeVARO7yvQF3S5XIter/exjo7WUsK4cmUwhAzn93EEjvLT4ZMdGBgKETjJ8PMXpAZK72toaPgHZGnss6Bi3gHZ/oizqXUgGV6+MjZ2gxpQVxE4g31XSR8a3RPoEaSXK8bo6elU8A0NTgWRApaGkd98aWBgUAMhcvEotX4ATLjdrhLc/e7H3c6PO8JDaK+Wtrbmg+BAI+bHZfBkH86PonxpGOHCEngT9f96dXX1wbo6uxcRFCgaRRhIGSvSeJWRD2QpU1goQVPiBwau+VGZj+PAcE3NZmrNPLrhlyorK+8B6TzZrPgGCHVlcHD4KZyVkd9LqIA+tVppwZwvh4FuGscEDh1+YASLMMzAkIEhbIxjXCoZXBbNdJfDQhAzXH5PptWgUpR2u2OahlghxOCEf3x8vA5kddIQgnINDM13QhD2gcrKiivvry8vC0B2axwTMegfi8Gg11CYaPO/y4YCaJ9xjOaz+HcDRjM2ugMC5DBk43V1zl8jja2QiQj/X7ze+c9t3lw5ent9eVmhubFMW1uLxmw2Goid6G7yuswEmQaywH/KBgevE19sAFuER1sRzsbp6RkPOp0Xsuh/O1ssa2lp4pj6ege3Z89OA8K8kQ6QywiZ7Q7L1L2996joC4d636jp1la3es+eXRa6Jd1hmakYN//CNYrbtWu7Gnm6a7J/Abcs6wDXnKPhAAAAAElFTkSuQmCC
endtext
thisform.container1.image29.pictureval=strcon(m.myvar,14)


*h-square.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAMAAADXqc3KAAAARVBMVEUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD////cVMzlAAAAFXRSTlMACwwQY2xtboaSk5aZnbvW1/Dy9/lkAmybAAAAAWJLR0QWfNGoGQAAAGpJREFUKM+9kUsOgCAMBQsiCip+5/5XdeEHTCTRDW/5JmnaqUip6Kbrz3RWJ/1EkjESC+t8tPMK9Q0cWyUDwCDVhruBZxFpAVqRBf8RmBBCMC/gyneQHfVrq+yBWSV6fEhUiV4btdeq2Ld3iHwMYr3k0KUAAAAASUVORK5CYII=
endtext
thisform.container1.image9.pictureval=strcon(m.myvar,14)

*list.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABmJLR0QA/wD/AP+gvaeTAAAA8ElEQVRIie3TPUpDURCG4SfGHxC1TGeRImDpVuxdgEtwAQp2NlmCYmeblKlsREgXQcFCqxAiiCCioEVucTjkIhOvSCAvHM4dZvjmzs9hwX9Ty+xDNHGFc5xiNaj5gJMy5wBfuMRm8R09g1RwOUswwjPG+CzserCCUTD+d+QzOMMOOjhCDytBzVvslzn/fAY9POEa7+hOifmJ+2B8tfRNyrzAOj7EW9RPBZeyBGvJXRdvT6rBFIE2tnGDNxzPkOQxNfI1bWELwyJwV/yhveCuzJmu6YYK1jSfQUpe3Uzk/T1Aw2SXX7En/pKHFfzXgnniGwLPX5Mb/utpAAAAAElFTkSuQmCC
endtext
thisform.container1.Image30 .pictureval=strconv(m.myvar,14)

*gear.png
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAERSURBVEhL7ZRbSgMxFEAH6xZqP9RF9EtRi+6vgq8PcR9+Kq0bqIjuwiK4Aj2HzoUQhk4C/Sn0wIGQZG6Sy53b7NgqJvjUeuHEJhjh/mrYPOBf650T4NrRaljPFf7gDM/xE+OAD/QVc3TPGKvwVr8YAfv8xiEWM8AX7ArW5TPuYRWmJQ3iLW9bHadrp1jMJT7iF6bBjzFwvMRYf8drPMNe0moJbzDHSsr3+W0vXQeYlpx7zPcVHeAzp7jA+LAvRabTtJreYk4wAqgBTYumwdWCqMKSs/TSIOt8RUu7mAPMb7lOf8rqluHvbxt4Q9uC7SEC2jZMS7SKqtynHGI0u7Qso1pcsyFuBF8R7drWvWMraJp/IymClyK524oAAAAASUVORK5CYII=
endtext
thisform.container1.Image31 .pictureval=strconv(m.myvar,14)

thisform.container1.refresh
ENDPROC

PROCEDURE closeapp
*-- Close any windows application opened et giving by its exact title (warning localized)
lparameters tcTitle

#DEFINE WM_CLOSE 0x0010

hNext = GetActiveWindow() && Current app's window

* Iterate through the open windows
DO WHILE hNext # 0
cText = REPLICATE(CHR(0),80)
GetWindowText(hNext,@cText,80) && Get window title

* parameter text is present in window title
IF UPPER(ALLTRIM(tcTitle)) $ UPPER(cText)
SendMessage(hNext,WM_CLOSE,0,0)
EXIT
ENDIF
hNext = GetWindow(hNext,2) && Next window
ENDDO
ENDPROC

PROCEDURE Activate
thisform.titlebar=0
thisform.windowstate=2
ENDPROC

PROCEDURE Init
publi m.yrep
m.yrep=addbs(justpath(sys(16,1)))
set defa to (yrep)
*check if internet connected
#Define FLAG_ICC_FORCE_CONNECTION 1
lcURL="http://www.microsoft.com"
lResult = (InternetCheckConnection(lcURL, FLAG_ICC_FORCE_CONNECTION, 0)=1)
If lResult=.T.
Return .T.
Else
Messagebox("There is no internet connexion ! this must be established mandatory to run some codes.",0+16,"internet Connection")
Return .F.
Endi

*current url history (session only)
if !file ("yhistory.dbf")
  create table yhistory.dbf (xurl c(150) )
*else
*  messagebox("table exists",0+32+4096,'',1000)
endi

*thisform.windowstate=2
ENDPROC

PROCEDURE Load
set safe off
_screen.windowstate=1
Declare Integer InternetCheckConnection In wininet;
STRING lpszUrl, Integer dwFlags, Integer dwReserved
&&shellexecute
DECLARE INTEGER ShellExecute IN SHELL32.DLL INTEGER nWinHandle,;
	STRING cOperation,;
	STRING cFileName,;
	STRING cParameters,;
	STRING cDirectory,;
	INTEGER nShowWindow
*result = ShellExecute(0, "open", full path to your PCL file,"","",1)
Declare Integer SendMessage In user32;
INTEGER HWnd,;
INTEGER Msg,;
INTEGER wParam,;
INTEGER Lparam

DECLARE INTEGER GetActiveWindow IN Win32API

DECLARE INTEGER GetWindowText IN Win32API;
INTEGER HWND,;
STRING @cText,;
INTEGER nType

DECLARE INTEGER GetWindow IN Win32API;
INTEGER HWND,;
INTEGER nType
*current url history (session only)
if !file ("yhistory.dbf")
create table yhistory.dbf (xurl c(150) )
*else
*  messagebox("table exists",0+32+4096,'',1000)
endi
ENDPROC

PROCEDURE Destroy
close data all
erase addbs(sys(2023))+"ytemp.html"
use yhistory
if reccount()>=100
if messagebox("History>=100 urls:reset (Erase) history ?",4+64+4096)=6
use history
zap
use
endi
endi
use in select("yhistory")
with thisform
.CloseApp("yradio")
.closeApp("yreminder")
.closeApp("ymonthview")
.closeApp("history")
endwith

clea events
ENDPROC

PROCEDURE container1.Click
*in case any item selected , hide combos
this.setall("visible",.f.,"combobox")
ENDPROC

PROCEDURE olecontrol1.Init
this.silent=.t.
thisform.yhome()
ENDPROC

PROCEDURE shape1.Click
with thisform.container1
.visible =iif(.visible=.t.,.f.,.t.)
.zorder(0)
if .visible=.f.
set curs off
else
set curso on
endi
endwith
ENDPROC

ENDDEFINE
*
*-- EndDefine: asup

DEFINE CLASS ycontainer AS container
Anchor = 768
Top = 1
Left = 18
Width = 917
Height = 83
BackStyle = 1
BorderWidth = 0
BackColor = RGB(0,255,255)
Name = "Container1"

ADD OBJECT image2 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 1, ;
Height = 24, ;
Left = 145, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Back", ;
Name = "Image2"

ADD OBJECT image1 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 1, ;
Height = 24, ;
Left = 119, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "SnippingTool", ;
Name = "Image1"

ADD OBJECT image3 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 171, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Foreward", ;
Name = "Image3"

ADD OBJECT image5 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 226, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "calculator", ;
Name = "Image5"

ADD OBJECT image6 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 250, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
Name = "Image6"

ADD OBJECT image7 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 79, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Home", ;
Name = "Image7"

ADD OBJECT image8 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 274, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Help", ;
Name = "Image8"

ADD OBJECT image9 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 305, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Urls History", ;
Name = "Image9"

ADD OBJECT image10 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 333, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "UI modern Apps", ;
Name = "Image10"

ADD OBJECT image11 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 360, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Volume", ;
Name = "Image11"

ADD OBJECT image12 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 388, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "form Titlebar", ;
Name = "Image12"

ADD OBJECT image13 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 417, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Zoom-", ;
Name = "Image13"

ADD OBJECT image4 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 199, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Explorer", ;
Name = "Image4"

ADD OBJECT image14 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 450, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Zoom 100%", ;
Name = "Image14"

ADD OBJECT image15 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 483, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Zoom+", ;
Name = "Image15"

ADD OBJECT shape1 AS shape WITH ;
Top = 8, ;
Left = 785, ;
Height = 15, ;
Width = 15, ;
Anchor = 768, ;
Curvature = 99, ;
MousePointer = 15, ;
ToolTipText = "Backcolor", ;
BackColor = RGB(255,0,0), ;
Name = "Shape1"

ADD OBJECT image16 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 510, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "My Apps", ;
Name = "Image16"

ADD OBJECT image19 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 591, ;
MousePointer = 15, ;
Top = 5, ;
Width = 27, ;
ToolTipText = "Google Youtube", ;
Name = "Image19"

ADD OBJECT image20 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 617, ;
MousePointer = 15, ;
Top = 5, ;
Width = 26, ;
ToolTipText = "OSK", ;
Name = "Image20"

ADD OBJECT image21 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 645, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Print", ;
Name = "Image21"

ADD OBJECT image22 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 678, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Slideshow", ;
Name = "Image22"

ADD OBJECT image23 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 709, ;
MousePointer = 15, ;
Top = 5, ;
Width = 30, ;
ToolTipText = "My Googles", ;
Name = "Image23"

ADD OBJECT image24 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
Stretch = 0, ;
BackStyle = 0, ;
Height = 24, ;
Left = 825, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Minimize", ;
Name = "Image24"

ADD OBJECT image25 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 855, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "expand/restore", ;
Name = "Image25"

ADD OBJECT image26 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 884, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Close", ;
Name = "Image26"

ADD OBJECT image17 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 534, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Search in page", ;
Name = "Image17"

ADD OBJECT image18 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 560, ;
MousePointer = 15, ;
Top = 5, ;
Width = 24, ;
ToolTipText = "Google images", ;
Name = "Image18"

ADD OBJECT text1 AS textbox WITH ;
Height = 24, ;
Left = 309, ;
Top = 51, ;
Width = 360, ;
Name = "Text1"

ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontName = "Segoe Script", ;
FontSize = 12, ;
BackStyle = 0, ;
Caption = "Yousfi.over-blog.com", ;
Height = 29, ;
Left = 72, ;
MousePointer = 15, ;
Top = 45, ;
Width = 174, ;
ForeColor = RGB(255,0,0), ;
Name = "Label1"

ADD OBJECT combo1 AS combobox WITH ;
Height = 25, ;
Left = 754, ;
Top = 50, ;
Visible = .F., ;
Width = 157, ;
BackColor = RGB(230,255,204), ;
BorderStyle = 0, ;
Name = "Combo1"

ADD OBJECT image27 AS image WITH ;
Anchor = 768, ;
BackStyle = 0, ;
Height = 24, ;
Left = 669, ;
MousePointer = 15, ;
Top = 51, ;
Width = 24, ;
ToolTipText = "Go !", ;
Name = "Image27"

ADD OBJECT image28 AS image WITH ;
Anchor = 768, ;
BackStyle = 0, ;
Height = 24, ;
Left = 727, ;
MousePointer = 15, ;
Top = 51, ;
Width = 24, ;
ToolTipText = "My URLs", ;
Name = "Image28"

ADD OBJECT ycombo AS combobox WITH ;
FontSize = 8, ;
BoundColumn = 2, ;
Height = 20, ;
Left = 669, ;
ToolTipText = "My Googles", ;
Top = 29, ;
Visible = .F., ;
Width = 134, ;
BackColor = RGB(255,255,196), ;
BorderStyle = 0, ;
Name = "ycombo"

ADD OBJECT image29 AS image WITH ;
Anchor = 768, ;
Stretch = 2, ;
Height = 64, ;
Left = 3, ;
MousePointer = 15, ;
Top = 6, ;
Width = 64, ;
Name = "Image29"

ADD OBJECT combo2 AS combobox WITH ;
FontSize = 8, ;
BoundColumn = 2, ;
Height = 20, ;
Left = 511, ;
ToolTipText = "My Googles", ;
Top = 30, ;
Visible = .F., ;
Width = 134, ;
BackColor = RGB(255,255,196), ;
BorderStyle = 0, ;
Name = "Combo2"

ADD OBJECT combo3 AS combobox WITH ;
FontSize = 8, ;
BoundColumn = 2, ;
Height = 20, ;
Left = 298, ;
ToolTipText = "My Googles", ;
Top = 30, ;
Visible = .F., ;
Width = 134, ;
BackColor = RGB(255,255,196), ;
BorderStyle = 0, ;
Name = "Combo3"

ADD OBJECT image30 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 745, ;
MousePointer = 15, ;
Top = 3, ;
Width = 30, ;
ToolTipText = "My Reminder", ;
Name = "Image30"

ADD OBJECT image31 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 248, ;
MousePointer = 15, ;
Top = 47, ;
Width = 24, ;
ToolTipText = "My Radio", ;
Name = "Image31"

ADD OBJECT image32 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 695, ;
MousePointer = 15, ;
Top = 50, ;
Width = 24, ;
ToolTipText = "Web search", ;
Name = "Image32"

PROCEDURE Init
with this
.setall("mousepointer",15,"image")
.setall("mousepointer",15,"commandbutton")
for i=1 to .controlcount
if lower(.controls(i).class)=="image"
bindevent(.controls(i),"mouseDown",thisform,"my")
*bindevent(.controls(i),"mouseEnter",thisform,"my1")
*bindevent(.controls(i),"mouseleave",thisform,"my1")
endi
endfor
endwith

*container1 ackcolor between 4 colors based on time seconds.
text to m.myvar noshow
rgb(128,255,0)
rgb(255,128,64)
rgb(0,255,255)
rgb(190,125,255)
endtext
local m.sec,m.x
m.sec=int(val(substr(time(),7,2)))
do case
case between(m.sec,0,16)
m.x=1
case between(m.sec,17,32)
m.x=2
case between(m.sec,33,48)
m.x=3
case between(m.sec,49,60)
m.x=4
otherwise
m.x=1
endcase
this.backcolor=eval(mline(m.myvar,m.x))

thisform.yfillimg()  &&fill all image pictures from encoded blobs

ENDPROC

PROCEDURE Click
*in case any item selected , hide combos
this.setall("visible",.f.,"combobox")
ENDPROC

PROCEDURE shape1.Click
local m.xcolor
m.xcolor=getcolor()
if !m.xcolor=-1
this.parent.backcolor=m.xcolor
endi
ENDPROC

PROCEDURE text1.Click
keyboard "{CTRL+A}"
ENDPROC

PROCEDURE text1.RightClick
DEFINE POPUP raccourci SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_paste OF raccourci PROMPT "Coller" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "Place le contenu du Presse-papiers au point d'insertion"
DEFINE BAR _med_copy OF raccourci PROMPT "Copier" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "Copie la sélection et la place dans le Presse-papiers"
ACTIVATE POPUP raccourci

*this.value=_cliptext
ENDPROC
PROCEDURE text1.Valid
if !empty(this.value)
thisform.olecontrol1.navigate(this.value)
set date short
insert into  yhistory values(allt(this.value))
endi
ENDPROC

PROCEDURE label1.Click
rand(-1)
this.forecolor=rgb(255*rand(),255*rand(),255*rand())
ENDPROC

PROCEDURE combo1.Click
with this.parent.text1
.value=this.value
.valid()
endwith
this.visible=.f.
ENDPROC

PROCEDURE combo1.Init
set memowidth to 8192
local m.myvar
text to m.myvar noshow
about:blank
https://www.foxite.com/forum/
http://yousfi.over-blog.com/
https://www.universalthread.com/Default.aspx
http://www.elwatan.com/
http://www.radioalgerie.dz/news/
http://www.lebuteur.com/
http://www.atoutfox.org/
http://weblogs.foxite.com/vfpimaging/author/vfpimaging/
http://www.news2news.com/vfp/index.php
http://www.sweetpotatosoftware.com/spsblog/
http://stackoverflow.com/questions/tagged/foxpro
http://www.foxpert.com/knowlbits.htm
http://www.berezniker.com/blogs/sergey
http://doughennig.blogspot.com/
http://sandstorm36.blogspot.com/
http://fox.wikis.com/
http://doughennig.com/papers/
http://www.lequipe.fr/
http://www.sport.fr/
http://www.huffpostmaghreb.com/algerie/
http://www.huffingtonpost.fr/
https://plus.google.com/116946555475644779750
http://praisachion.blogspot.ro/2015/02/api-messagebox.html
https://www.universalthread.com/ShowHeaderDownload.aspx
http://arg-software.co.uk/boards/viewforum.php?f=2&sid=796cf11e21238716e1777d261cebc13c
http://www.jasinskionline.com/windowsapi/ref/funca.html
http://stackoverflow.com/
https://www.academia.edu/people/search?
http://www.winprog.org/tutorial/
https://vfpx.codeplex.com/
http://www.west-wind.com/articles.aspx
http://www.elkhabar.com/
http://www.arg.kirov.ru/
http://www.jeuneafrique.com/
http://www.asal.dz/images-alsat2b-alsat1b.php
http://corehtml5canvas.com/code-live/
http://css3gen.com/button-generator/#
http://doughennig.com/papers/
http://www.jqueryrain.com/demo/jquery-captcha-plugin/
http://unminify.com/
http://1stwebdesigner.com/css-effects/
http://www.drewgreenwell.com/projects/metrojs
http://rcl-systems.blogspot.co.uk/search/label/clipboard
http://www.jqueryrain.com/?NUCRPOmB
http://htmlformatter.com/
http://htmltablegenerator.com/
http://cssbutton.com/
http://www.jssor.com/demos/
endtext

with this
for i=1 to memlines(m.myvar)
.additem(allt(mline(m.myvar,i)))
endfor
.listindex=1
.style=2
endwith
ENDPROC

PROCEDURE ycombo.Click
sele yy
with this.parent.text1
.value=xurl
.valid()
endwith
this.visible=.f.
ENDPROC

PROCEDURE ycombo.Init

create cursor yy (xtitle c(25),xurl c(150))
insert into yy values("1. Google DZ","https://www.google.dz")
insert into yy values("2. Gmail"," https://mail.google.com/mail/u/0/?tab=wm#inbox")
insert into yy values("3. Maps","https://www.google.dz/maps?hl=fr&tab=ml")
insert into yy values("4. Google Translate","https://translate.google.dz/?hl=fr&tab=mT")
insert into yy values("5. G+","https://plus.google.com/")
insert into yy values("6. Images","https://www.google.dz/imghp?hl=fr&tab=ii&ei=EjBhWJ_uJcHbUdHss9AO&ved=0EKkuCBAoDA")
insert into yy values("7. Google drive","https://drive.google.com/drive/?tab=mo#")
insert into yy values("8. NASA","https://www.nasa.gov/")
insert into yy values("9.Goocle agenda","https://calendar.google.com/calendar/render?tab=cc#main_7")
sele yy
locate
with this
.rowsource="yy.xtitle"
.rowsourcetype=6
.listindex=1
endwith
ENDPROC

PROCEDURE image29.MouseEnter
LPARAMETERS nButton, nShift, nXCoord, nYCoord
with this
for i=0 to 7
inke(0.1)
.rotateflip=i
endfor
for i=7 to 0
.rotateflip=i
inke(0.1)
endfor
endwith
ENDPROC

PROCEDURE combo2.Init
create cursor xyy (xtitle c(30))
insert into xyy values("1.Notepad")
insert into xyy values("2.MSPaint")
insert into xyy values("3.MonthView")
insert into xyy values("4.WmPlayer")
insert into xyy values("5.Fullscreen Photo Viewer")
insert into xyy values("6.Task manager")
insert into xyy values("7.Word")
insert into xyy values("8.Excel")
insert into xyy values("9.Clock")
insert into xyy values("10.IE11")
insert into xyy values("11.FIREFOX")
insert into xyy values("12.Charmap")
insert into xyy values("13.Ribbons screen saver")
insert into xyy values("14.Bubbles screen saver")

sele xyy
locate
with this
.rowsource="xyy.xtitle"
.rowsourcetype=6
.listindex=1
.value=1
endwith
ENDPROC

PROCEDURE combo2.Click
do case

case this.value=1
run/n notepad

case this.value=2
run/n MSpaint


case this.value=3

local  xform
xform=newObject("ymonthview")
xform.show

case this.value=4
local Wmp As WindowsMediaPlayer
Wmp = CreateObject("WMPlayer.OCX.7")
try
Wmp.openPlayer("http://content.bitsontherun.com/videos/bkaovAYt-364766.mp4")
catch
endtry

case this.value=5
local m.yre
m.yre=getdir()
if empty(m.yre)
return .f.
endi
TEXT to m.cmdline textmerge noshow
%SystemRoot%\System32\rundll32.exe "%ProgramFiles%\Windows Photo Viewer\PhotoViewer.dll", ImageView_Fullscreen <<m.yre>>
ENDTEXT
Local oshell
oshell=Newobject("wscript.shell")
oshell.Run(m.cmdline,0,.F.)
Inkey(1)
oshell.sendkeys("{F11}")

case this.value=6
=shellexecute(0,"open",getenv('windir')+"\system32\taskmgr.exe","","",1)

case this.value=7
local oWord
try
oWord=createObject('word.application')
oWord.visible=.t.
catch
messagebox("Word not installed",16+4096)
endtry

case this.value=8
local oExcel
try
oExcel=createObject('Excel.application')
oExcel .Workbooks.Add
oExcel.visible=.t.
catch
messagebox("Excel not installed",16+4096)
endtry

case this.value=9
thisform.yclock

case this.value=10
=shellexecute(0,"open","iexplore.exe","","",1)

case this.value=11
=shellexecute(0,"open","firefox.exe","","",1)

case this.value=12
run/n charmap

case this.value=13
local m.oscr
m.oscr=getenv('windir')+"\system32\ribbons.scr"
try
run/n explorer &oscr
catch
messagebox("SCreen saver Ribbons.scr valid for sure on win10 !",16+4096,1000)
endtry

case this.value=14
local m.oscr
m.oscr=getenv('windir')+"\system32\bubbles.scr"
try
run/n explorer &oscr
catch
messagebox("SCreen saver Bubbles.scr valid for sure on win10 !",16+4096,1000)
endtry

endcase

this.visible=.f.
ENDPROC

PROCEDURE combo3.Click
Local m.winappName,oshell
oshell=Newobject("wscript.shell")

do case

case this.value=1
m.winappName="BingNews://"
Try
	oshell.Run(m.winappName)
Catch
	Messagebox("An error was occured !",16+4096)
Endtry

case this.value=2
m.winappName="BingSports://"
Try
	oshell.Run(m.winappName)
Catch
	Messagebox("An error was occured !",16+4096)
Endtry

case this.value=3
m.winappName="BingWeather://"
Try
	oshell.Run(m.winappName)
Catch
	Messagebox("An error was occured !",16+4096)
Endtry

case this.value=4
m.winappName="ms-Photos://"
Try
	oshell.Run(m.winappName)
Catch
	Messagebox("An error was occured !",16+4096)
Endtry


case this.value=5
*this code launches the modern ui Reader app
m.winappName="%windir%\explorer.exe shell:Appsfolder\Microsoft.Reader_8wekyb3d8bbwe!Microsoft.Reader"
oShell.run(m.winappName)

*!*	*this code launches the modern ui Reader app with shellEXECUTE API as command line parameter
*!*	&&shellexecute
*!*	DECLARE INTEGER ShellExecute IN SHELL32.DLL INTEGER nWinHandle,;
*!*	        STRING cOperation,;
*!*	        STRING cFileName,;
*!*	        STRING cParameters,;
*!*	        STRING cDirectory,;
*!*	        INTEGER nShowWindow

*!*	local m.x
*!*	m.x=" shell:Appsfolder\Microsoft.Reader_8wekyb3d8bbwe!Microsoft.Reader"
*!*	result = ShellExecute(0, "open", ADDBS(GETENV('windir'))+"explorer.exe ",m.x,"",3)

case this.value=6
m.winappName="%windir%\explorer.exe shell:Appsfolder\Microsoft.BingFinance_8wekyb3d8bbwe!AppexFinance"
oShell.run(m.winappName)


case this.value=7
m.winappName="%windir%\explorer.exe shell:Appsfolder\Microsoft.ZuneVideo_8wekyb3d8bbwe!Microsoft.ZuneVideo"
oShell.run(m.winappName)

case this.value=8
m.winappName="%windir%\explorer.exe shell:Appsfolder\Microsoft.Windows.Cortana_cw5n1h2txyewy!CortanaUI"
oShell.run(m.winappName)

case this.value=9
oshell=newObject("wscript.shell")
m.winappName="%windir%\explorer.exe shell:Appsfolder\Microsoft.MicrosoftEdge_8wekyb3d8bbwe!MicrosoftEdge"
oShell.run(m.winappName)

case this.value=10
m.winappName="%windir%\explorer.exe shell:Appsfolder\microsoft.windowscommunicationsapps_8wekyb3d8bbwe!microsoft.windowslive.mail"
oShell.run(m.winappName)

case this.value=11
m.winappName="%windir%\explorer.exe shell:Appsfolder\microsoft.windowscommunicationsapps_8wekyb3d8bbwe!microsoft.windowslive.calendar"
oShell.run(m.winappName)

endcase

oshell=null
release oshell
this.visible=.f.
ENDPROC

PROCEDURE combo3.Init
create cursor zyy (xtitle c(30))
insert into zyy values("1. News")
insert into zyy values("2. Sports")
insert into zyy values("3.Weather")
insert into zyy values("4. Photos")
insert into zyy values("5.Reader")
insert into zyy values("6.Finances")
insert into zyy values("7.Films & TV")
insert into zyy values("8.Cortana")
insert into zyy values("9.EDGE")
insert into zyy values("10.Courier")
insert into zyy values("11.Calendar")

sele zyy
locate
with this
.rowsource="zyy.xtitle"
.rowsourcetype=6
.listindex=1
.value=1
endwith
ENDPROC

PROCEDURE image32.Init
this.rotateflip=4
ENDPROC

ENDDEFINE
*
*-- EndDefine: ycontainer
*
Define Class yreminder As Form
BorderStyle = 3
Height = 433
Width = 804
ShowWindow = 1
windowtype=1  &&modal
AutoCenter = .T.
Showtips=.t.
Caption = "yreminder"
MaxButton = .F.
BackColor = Rgb(0,0,0)
MousePointer=15     &&can move the form by mousedown
yheight = 433
yheight0 = 60
ywidth0 = 80
ywidth = 804
Name = "yreminder"

Add Object edit1 As EditBox With ;
Anchor=15,;
FontBold = .t., ;
fontname="segoe script",;
FontSize = 12, ;
Height = 373, ;
Left = 5, ;
Top = 48, ;
Visible = .F., ;
Width = 794, ;
ForeColor = Rgb(0,0,255), ;
BackColor = Rgb(128,255,255), ;
scrollbars=0,;
Name = "Edit1"

Add Object command1 As CommandButton With ;
AutoSize = .T., ;
Top = 12, ;
Left = 204, ;
Height = 32, ;
Width = 123, ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "Add dateTime", ;
MousePointer = 15, ;
Visible = .F., ;
SpecialEffect = 2, ;
BackColor = Rgb(128,255,0), ;
Name = "Command1"

Add Object command2 As CommandButton With ;
Top = 12, ;
Left = 12, ;
Height = 27, ;
Width = 84, ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "Show Edit", ;
MousePointer = 15, ;
SpecialEffect = 2, ;
BackColor = Rgb(255,128,64), ;
Name = "Command2"

Add Object command3 As CommandButton With ;
AutoSize = .T., ;
Top = 12, ;
Left = 340, ;
Height = 32, ;
Width = 103, ;
FontBold = .T., ;
FontSize = 11, ;
Caption = "Add  a  line", ;
MousePointer = 15, ;
Visible = .F., ;
SpecialEffect = 2, ;
BackColor = Rgb(128,128,255), ;
Name = "Command3"

Add Object ysh As shape With ;
Top = 12, ;
Left = 450, ;
Height = 15, ;
Width = 15, ;
curvature=99, ;
backcolor=rgb(0,255,0) , ;
MousePointer = 15, ;
tooltiptext="Change editbox forecolor"
Name = "ysh"	

Procedure ysh.click		
local m.xcolor
m.xcolor=getcolor()
if !m.xcolor=-1
thisform.edit1.forecolor=m.xcolor
endi
endproc

Procedure yed
Define Popup raccourci SHORTCUT Relative From Mrow(),Mcol()
Define Bar _Med_copy Of raccourci Prompt "Co\<pier" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE "Copie la sélection et la place dans le Presse-papiers"
Define Bar _Med_cut Of raccourci Prompt "\<Couper" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "Enlève la sélection et la place dans le Presse-papiers"
Define Bar _Med_paste Of raccourci Prompt "C\<oller" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE "Place le contenu du Presse-papiers au point d'insertion"
Define Bar _Med_slcta Of raccourci Prompt "Sélec\<tionner tout" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE "Sélectionne tout le texte ou tous les éléments de la fenêtre active"
Define Bar _Med_undo Of raccourci Prompt "\<Annuler" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE "Annule la dernière modification"
Define Bar _Med_redo Of raccourci Prompt "\<Rétablir" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE "Rétablit la dernière opération annulée"
Define Bar _Med_repl Of raccourci Prompt "\<Remplacer..." ;
KEY CTRL+L, "Ctrl+L" ;
MESSAGE "Remplace le texte spécifié"
Define Bar _Med_find Of raccourci Prompt "Rec\<hercher..." ;
KEY CTRL+F, "Ctrl+F" ;
MESSAGE "Recherche le texte spécifié"

Activate Popup raccourci
Endproc

Procedure MouseDown   &&can move the form by mousedown
Lparameters nButton, nShift, nXCoord, nYCoord
lnHandle = Thisform.HWnd
param1 = 274
param2 = 0xF012
Declare Integer ReleaseCapture In WIN32API
Declare Integer SendMessage In WIN32API Integer, Integer, Integer, Integer
bb=ReleaseCapture()
bb=SendMessage(lnHandle, param1, param2,0)
Endproc

Procedure Init
With Thisform
.Left=30
.Top=140
.yheight0=45
.ywidth0=280
.ywidth=804+60
.yheight=433
.Height=.yheight0
.Width=.ywidth0
With .edit1
Try
.Value=Filetostr(m.yrep+"yreminder.txt")
Catch
Endtry
Endwith
Endwith
Endproc

Procedure Load
_Screen.WindowState=1
Endproc

Procedure Destroy
Strtofile(Thisform.edit1.Value,m.yrep+"yreminder.txt")
rform=Null
Release rform
Endproc

Procedure edit1.RightClick
Thisform.yed()  &&fires contextuel edition menu on editbox on rightclick
Endproc

Procedure command1.Click
With Thisform
.edit1.Value=.edit1.Value+Chr(13)+" * "+Ttoc(Datetime())+Chr(13)
.edit1.SetFocus
.edit1.SelStart=Len(.edit1.Value)
Endwith
Endproc

Procedure command2.Click  &&collapse/expand
Do Case
Case This.Caption="Show Edit"
This.Caption="Hide Edit"
With Thisform
.edit1.Visible=.T.
.command1.Visible=.T.
.command3.Visible=.T.
.Height=.yheight
.Width=.ywidth
.edit1.SetFocus
.edit1.SelStart=Len(.edit1.Value)
Endwith

Case This.Caption="Hide Edit"
This.Caption="Show Edit"
With Thisform
.edit1.Visible=.F.
.command1.Visible=.F.
.command3.Visible=.F.
.Height=.yheight0
.Width=.ywidth0
Endwith
Endcase
Endproc

Procedure command3.Click
With Thisform
.edit1.Value=.edit1.Value+Chr(13)+Repli("_",120)+Chr(13)
.edit1.SetFocus
.edit1.SelStart=Len(.edit1.Value)
Endwith
Endproc

Enddefine
*
*-- EndDefine: yreminder
*
DEFINE CLASS myradio AS form
BorderStyle = 0
Height = 80
Width = 271
ShowWindow = 2
AutoCenter = .T.
Caption = "yradio"
MaxButton = .F.
Name = "yradio"

ADD OBJECT olecontrol1 AS olecontrol WITH ;
Oleclass="Shell.explorer.2",;
Top = -15, ;
Left = -192, ;
Height = 192, ;
Width = 588, ;
Name = "Olecontrol1"

PROCEDURE Load
with _screen
.addproperty("yradio",1)
.yradio=int(val(inputbox("4 radios: ElBayadh (1)-Chaine3(2)- Chaine1 (3)-R.coran(4)","","1")))
if empty(_screen.yradio) or !between(_screen.yradio,1,4)
.yradio=1
endi
endwith
ENDPROC

PROCEDURE Destroy
clea events
ENDPROC

PROCEDURE olecontrol1.Init
with this
do case
case _screen.yradio=1  && el bayadh
.navigate("http://static.infomaniak.ch/infomaniak/radio/html/bayadh_player.html")
case _screen.yradio=2  && chaine3
.navigate("http://static.infomaniak.ch/infomaniak/radio/html/ch3_player.html")
case _screen.yradio=3  && chaine1
.navigate("http://static.infomaniak.ch/infomaniak/radio/html/ch1_player.html")
case _screen.yradio=4
.navigate("http://static.infomaniak.ch/infomaniak/radio/html/coran_player.html")
otherwise
return .f.
endcase
.left=-100
endwith
ENDPROC
PROCEDURE DESTROY
_screen.yradio=null
yrad=null
endproc

ENDDEFINE
*
*-- EndDefine: myradio

*
DEFINE CLASS ymonthview AS form
BorderStyle = 0
Height = 196
Width = 215
ShowWindow = 1
Windowtype=1  &&modal
AutoCenter = .T.
Caption = "ymonthview"
MaxButton = .F.
MinButton = .F.
*AlwaysOnTop = .T.
BackColor = RGB(0,0,0)
Name = "ymonthview"

ADD OBJECT ymonthv AS olecontrol WITH ;
Oleclass="MSComCtl2.MonthView.2" , ;
Top = 1, ;
Left = 0, ;
Height = 215, ;
Width = 215, ;
Name = "ymonthv"

procedure init	
with 	thisform.ymonthv
.backcolor=9240518
.borderstyle=0
.monthBackcolor=12058623
.titleBackcolor=16776960
.titleForecolor=255
endwith
endproc
procedure destroy
*xform=null
*release xform
endproc
ENDDEFINE
*
*-- EndDefine: ymonthview

*
DEFINE CLASS history AS form
BorderStyle = 3
Height = 284
Width = 622
ShowWindow = 1
windowtype=1   &&modal
AutoCenter = .T.
Caption = "Urls Navigator  History  -   Richtclick to copy. to clipboard."
MaxButton = .F.
MinButton = .F.
Name = "history"

ADD OBJECT grid1 AS grid WITH ;
Anchor = 15, ;
Height = 288, ;
Left = 0, ;
Top = 0, ;
Width = 624, ;
Name = "Grid1"

PROCEDURE yclip
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*--- aevent create an array laEvents
Aevents( myArray, 0)
*--- reference the calling object
loObject = myArray[1]
_cliptext=strtran(allt(loObject.value),chr(9),"")
messagebox("The url :"+strtran(allt(loObject.value),chr(9),"")+ "is in clipboard!",0+32+4096,'',1000)
ENDPROC


PROCEDURE grid1.Init
sele * distinct from yhistory.dbf  into cursor zhistory
with this
.recordsource="zhistory"
.themes=.f.
.scrollbars=3
.headerHeight=25
.gridlines=0
.deletemark=.f.
.fontbold=.t.
.fontsize=10

with .column1.header1
.backcolor=0
.forecolor=rgb(0,255,0)
.fontsize=12
.fontbold=.t.		
endwith
.SetAll("DynamicBackColor","IIF(MOD(RECNO( ), 2)=0, RGB(231,199,231) , RGB(140,205,150))", "Column")
bindevent(.column1.text1,"rightclick",thisform,"yclip")
locate
.autofit()
.refresh
endwith
ENDPROC

PROCEDURE DESTROY
use in select("zhistory")
endproc

ENDDEFINE
*
*-- EndDefine: history


Can customize too things but care with big prg code......can build visual forms from it...
Can customize too things but care with big prg code......can build visual forms from it...
Can customize too things but care with big prg code......can build visual forms from it...
Can customize too things but care with big prg code......can build visual forms from it...
Can customize too things but care with big prg code......can build visual forms from it...
Can customize too things but care with big prg code......can build visual forms from it...
Can customize too things but care with big prg code......can build visual forms from it...
Can customize too things but care with big prg code......can build visual forms from it...

Can customize too things but care with big prg code......can build visual forms from it...

Click on code to select [then copy] -click outside to deselect


remarks on mynavigator.prg:
1.i used segoe script font, dont know if set on others win OS.
2.when compiling an exe a deformation of the olecontrol1 appears.must resize to find the good solution.
3.when the container1. is invisible/visible, i tried to resize the olecontrol1 area (increase area or decrease): impossible !
4.some urls have 2 TABS typed before the url strings...and then cannot be pasted...solved with strtran().
5.note that vfp IE browser was always slower than FF or Chrome.
6.all custom settings are given for demo only..(urls,slideshow,...are personal...must replace by user ones).
7.the yreminder form works with a txt file in same folder.if moving the prg must also move this txt file otherwise a new one is created.
8.I set the  navigation history.dbf with 100 records.if up its zapped in code(with confirmation).
9.the print icon is not coded : i tried with  code but dont work maybe for new security rules.use the rightclick contextuel menu on the browser(repeat until dialog fires).
10.i used 2 screensavers (existing in my win10).dont know if these are set on other win OS.can replace them by the scr files under hand(search in c:\windows\system32\*.scr...click on to play...move mouse to stop).
11.for contrast click on "yousfi.over-blog.com" to change the random forecolor.

Happy new year 2017 for all !


My new vfp navigator
 
Important:All Codes above are tested on VFP9SP2  & windows 10 pro & IE11 emulation.

To be informed of the latest articles, subscribe:
Comment on this post