Using "Awesome" web font for icons in VFP
This code draws 694 awesome png icons on the top level form.
Awesome font is a modern font designed for web applications (bootstrap) and use html tag,css ..to work on a web page of modern navigators.
Infortunatly vfp annot accept it because it is built for web things(out of vfp IE browser).
the best thing to integrate this tool is to work with it as image (transparent PNG preferably).
the pack of this font can be found at https://github.com/encharm/Font-Awesome-SVG-PNG.
i downloaded only the png 24x24 folder and convert all to a database awesome.dbf(+fpt) file.
this file is mandatory needed to make this code working.download it at the link below.
the icons tooltip are populated to return the icon name(form.showTips=.t.).
by rightclick on any icon can save it as png image 24x24 (folder images).
these png icons are usefull to build modern look of vfp applications (as toolbar,containers menus,...)
have three methods to rebuild the original icon:
-visually by the png icon (save with rightclick and use in image control picture property.
-work with the blob and use as pictureVal.
-work with an encoded blob picture (string) with strconv(..,13) and restore with strconv(..14)
*note that these awesome pngs in the awesome.dbf are transparent (great advantage).
in principe these 694 icons cover all needs of any application.can also complete if needed with glyphIcons
(transparent PNGs) from http://html-tuts.com/hot-freebies-mega-pack-of-420-png-icons-from-glyphicons/.
note: there is some old fonts as webdings,wingdings,marlett can give to vfp some labelled icons but they are not so big as awesome one.in win10 there is also Segoe UI symbol but infortunatly dont accepted on vfp(255 chars accepted the rest is unicode symbols).
-can on a png icon build a contextuel vfp menu also (see previous posts for that).
*definition:Bootstrap is a front-end framework designed to kickstart the front-end development of webapps and sites.
Among other things, it includes base CSS and HTML for typography, icons, forms, buttons, tables, layout grids, and navigation, along with custom-built jquery-plugins and support for responsive layouts.
Click on code to select [then copy] -click outside to deselect
*1*
publi oform
oform=newObject("yawesome")
oform.show
read events
retu
*
DEFINE CLASS yAwesome AS form
BorderStyle = 3
Height = 580
Width = 885
ShowWindow = 2
ScrollBars = 2
ShowTips = .T.
AutoCenter = .T.
Caption = "Awesome pngs for vfp developpers"
Movable = .F.
WhatsThisButton = .T.
BackColor = RGB(255,197,168)
Name = "Form1"
ADD OBJECT image1 AS image WITH ;
Anchor = 768, ;
Stretch = 2, ;
BackStyle = 1, ;
Height = 48, ;
Left = 835, ;
MousePointer = 15, ;
Top = 3, ;
Width = 48, ;
ToolTipText = "Help", ;
Name = "Image1"
PROCEDURE my
*beforedraw
*--- aevent create an array laEvents
Aevents( myArray, 0)
*--- reference the calling object
loObject = myArray[1]
*wait window loObject.name nowait
loObject.tooltiptext=allt(loc)
local w,h
with _screen.system.drawing
local lobmp as xfcbitmap
sele ycurs
try
loBMP=.bitmap.fromvarbinary(content)
local logfx as xfcgraphics
logfx= loObject.ogfx
&&working with smoothless & high quality drawing
LOGFX.smoothingmode = .drawing2d.smoothingmode.highquality
LOGFX.interpolationmode = .drawing2d.interpolationmode.highqualitybicubic
LOGFX.pixeloffsetmode = .drawing2d.pixeloffsetmode.highquality
logfx.Clear(.Color.Transparent)
logfx.drawImage(loBMP,0,0) &&width & height are in blob
loBMP.maketransparent(.color.white)
catch
endtry
endwith
ENDPROC
PROCEDURE my1
*save
*--- aevent create an array laEvents
Aevents( myArray, 0)
*--- reference the calling object
loObject = myArray[1]
local m.x
m.x= int(val(substr(loObject.name,10)))
sele ycurs
go x
local m.lcdest
m.lcdest=m.yrep+"images\"+allt(loc)
loObject.oBMP.save(m.lcdest,_screen.system.drawing.imaging.imageformat.png)
messagebox(m.lcdest+"......saved",0+32+4096,'',1300)
*run/n explorer &lcdest
ENDPROC
PROCEDURE Init
*https://github.com/encharm/Font-Awesome-SVG-PNG.. ..download zip------png 24x24 to grab
*using filetostr to grab blobs in memo file
publi m.yrep
m.yrep=addbs(justpath(sys(16,1)))
set defa to (yrep)
if !file(m.yrep+"awesome.dbf")
messagebox("Awesome.dbf+( .fpt) must be is source folder! cancelling....",16+4096)
return .f.
endi
use awesome alias ycurs
*brow
locate for loc="QUESTION-CIRCLE.PNG"
if found()
thisform.image1.pictureVal=content
endi
locate
thisform.hide
*---modify gdiplusX location below.
set classlib to locfile("E:\_______________________YOVERLBLOG_POSTS\GDIPLUSX.VCX","vcx") addi
_screen.windowstate=1
if ! directory(m.yrep+"images")
md (m.yrep+"images")
endi
local gnbre,delta,m.max
m.delta=5 &&inter space
m.max=28 &&maw row icons
sele ycurs
gnbre=reccount() &&adir(gabase,m.yrep+"Awesome_png_24\*.png")
messagebox(trans(gnbre)+" png icons.....Please wait! ",0+32+4096,'',1300)
local j,k
j=0
k=1
with thisform
scan &&for i=1 to gnbre
i=recno()
.addObject("imgcanvas"+trans(i),"imgcanvas")
with eval (".imgcanvas"+trans(i))
.pictureval= content
.drawWhenInvisible=.t.
.width=24
.height=24
j=j+1
if i=1
.left=5
.top=5
else
if j>max
j=1
k=k+1
.left=5
.top=5+(k-1)*(.height+m.delta)
else
.top=eval("thisform.imgcanvas"+trans(i-1)+".top")
.left=eval("thisform.imgcanvas"+trans(i-1)+".left")+eval("thisform.imgcanvas"+trans(i-1)+".width")+m.delta
endi
endi
bindevent( eval ("thisform.imgcanvas"+trans(i)),"beforedraw",thisform,"my")
bindevent( eval ("thisform.imgcanvas"+trans(i)),"rightclick",thisform,"my1")
.draw
.visible=.t.
endwith
endscan
endwith
release classlib "E:\_______________________YOVERLBLOG_POSTS\GDIPLUSX.VCX"
with thisform
.width=.width+1
.width=.width-1
.caption=trans(gnbre)+" Awesome transparent pngs for VFP developpers."
endwith
ENDPROC
PROCEDURE Load
do locfile("system.app")
set safe off
close data all
ENDPROC
PROCEDURE Activate
thisform.show
ENDPROC
PROCEDURE Destroy
use in select("ycurs")
m.yrep=null
release m.yrep
clea events
ENDPROC
PROCEDURE image1.Click
local m.myvar
text to m.myvar noshow
This code draws 694 awesome pbg icons on the top level form.
Awesome fonts is a modern font designed for web applications (bootstrap) and use html tag,css ..to work on a web page.
Infortunatly vfp annot accept it because it is not built for web things(out of vfp IE browser).
the best thing to integrate this tool is to work with it as image (transparent PBG preferably).
the pack of this font can be found at https://github.com/encharm/Font-Awesome-SVG-PNG.
i downloaded only the png 24x24 folder and convert all to a database awesome dbf(+fpt) file.
this file is mandatory needed to make this code working.download it at the link below.
the icons tooltip are populated to return the icon name(form.showTips=.t.).
by rightclick on any icon can save it as png image 24x24 (forlder images).
these png icons are usefull to build modern look of vfp application (as toolbar,containers menus,...)
have three methods to rebuild the original icon:
-visually by the png icon (save with rightclick and use in image control picture property.
-work with the blob and use as pictureVal.
-work with an encoded blob picture (string) with strconv(..,13) and restor with strconv(..14)
*note that these awesome pngs in the awesome.dbf are transparent (great advantage).
in principe these 694 icons cover all needs of any application.can also complete if needed with glyphIcons
(transparent PNGs) from http://html-tuts.com/hot-freebies-mega-pack-of-420-png-icons-from-glyphicons/.
note: there is some fonts as webdings,wingdings,marlett can give to vfp some labelled icons but they are not so
big as awesome one.there is also Segoe UI symbol but infortunatly dont accepted on vfp(unicode symbols).
*definition:Bootstrap is a front-end framework designed to kickstart the front-end development of webapps and sites.
Among other things, it includes base CSS and HTML for typography, icons, forms, buttons, tables, layout grids, and navigation, along with custom-built jquery-plugins and support for responsive layouts.
endtext
*messagebox(m.myvar,0+32+4096,"Summary help")
#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,m.myvar,"Summary help",MB_APPLMODAL+MB_OK +MB_ICONINFORMATION +MB_DEFBUTTON1 )
ENDPROC
ENDDEFINE
*
*-- EndDefine: yAwesome
Click on code to select [then copy] -click outside to deselect
This code uses the awesome.dbf to populate some png icons 24x24 in containers as a sample demo application.
in container1 icons are populated with encoded images (awesome)
the left menu is collapsible /expansible with the bottom arrow
some of icons are coded to receive the mousedown event, others are not (an alert messagebox fires only).
can change backcolor in each container.
the form titlebar can be on/off
see the minimize,expand/restore and close buttons in container1.
Click on code to select [then copy] -click outside to deselect
*2*
publi m.yrep
m.yrep=addbs(justpath(sys(16,1)))
set defa to (yrep)
_screen.windowstate=1
sys(2002) &&set curs off
publi yform
yform=newObject("yawesome_sample")
yform.show
read events
retu
*
DEFINE CLASS yawesome_sample AS form
BorderStyle = 3
Height = 749
Width = 983
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Simple example with png web icons"
KeyPreview = .T.
BackColor = RGB(0,0,0)
ycl = 0
Name = "Form1"
ADD OBJECT olecontrol1 AS olecontrol WITH ;
oleclass="shell.explorer.2",;
Top = -1, ;
Left = 48, ;
Height = 637, ;
Width = 935, ;
Anchor = 15, ;
Name = "Olecontrol1"
ADD OBJECT container1 AS ycontainer1 WITH ;
Anchor = 768, ;
Top = 649, ;
Left = 71, ;
Width = 845, ;
Height = 43, ;
BackStyle = 1, ;
BackColor = RGB(0,255,255), ;
Name = "Container1"
ADD OBJECT container2 AS ycontainer2 WITH ;
Anchor = 768, ;
Top = 699, ;
Left = 4, ;
Width = 972, ;
Height = 36, ;
BackColor = RGB(255,213,191), ;
Name = "Container2"
ADD OBJECT container3 AS ycontainer3 WITH ;
Anchor = 768, ;
Top = 0, ;
Left = 2, ;
Width = 37, ;
Height = 695, ;
BackColor = RGB(128,255,0), ;
Name = "Container3"
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()
catch
endtry
endwith
case m.x=3
with thisform.olecontrol1
try
.goForward()
catch
endtry
endwith
case m.x=4
run/n explorer
case m.x=5
run/n calc
case m.x=6
set date long
messagebox( ttoc(dateTime()))
case m.x=7
case x=8
local m.myvar
text to m.myvar noshow
This code uses the awesome.dbf to populate some png icons 24x24 in containers.
in container1 icons are populated with encoded images (awesome)
the left menu is collapsible /expandable with the bottom arrow
some of icons are conded and receive the mousedown, others are not (an alert messagebox fires).All is in method "my" drived with bindevent() function.
can change backcolor in each container.
see the minimize,expand/restore and close buttons in container1.
endtext
messagebox(m.myvar,0+32+4096)
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=17
local oshell
oshell=newObject("wscript.shell")
*thisform.olecontrol1.setfocus
oshell.sendkeys("^{f}")
oshell=null
release oshell
*case m.x=9
*case m.x=10
case m.x=11
run/n charmap
case m.x=12
thisform.titlebar=iif(thisform.titlebar=1,0,1)
*case m.x=13
case m.x=14
local m.oo
m.oo=m.yrep+"images"
run/n explorer &oo
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 &&.container3
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 &&thisform.container3
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 my1
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*--- aevent create an array laEvents
Aevents( myArray, 0)
*--- reference the calling object
loObject = myArray[1]
try
loObject.parent.removeObject("ysh")
catch
endtry
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode=27
thisform.release
endi
ENDPROC
PROCEDURE Init
publi m.yrep
m.yrep=addbs(justpath(sys(16,1)))
set defa to (yrep)
_screen.windowstate=1
sys(2002) &&set curs off
thisform.windowstate=2
thisform.titlebar=0
local n1,n2
*use awesome.dbf to populate icons in any toolbar container.
*can choose the adapted icons in awesome.dbf to populate.this is demo only.
use awesome alias ycurs
with thisform.container2
n1=.controlcount
.setall("mousepointer",15,"image")
scan for between(recno(),1,n1)
i=recno()
if lower(.controls(i).class)=="image"
x=eval(".image"+trans(i))
m.x.pictureval=content
endi
endscan
endwith
with thisform.container3
.setall("mousepointer",15,"image")
n2=.controlcount
scan for between(recno(),n1,n1+n2-1)
i=recno()
if lower(.controls(i-n1+1).class)=="image"
x=eval(".image"+trans(i-n1+1))
m.x.pictureval=content
endi
endscan
*!* locate for upper(allt(loc))=="LONG-ARROW-UP.PNG"
*!* if found()
*!* .image26.pictureval=content
*!* endi
with .image26
.picture=home(1)+"GRAPHICS\ICONS\ARROWS\ARW06UP.ICO"
.backstyle=0
.tooltiptext="collapse/expand"
endwith
endwith
use in select("ycurs")
*use encoded blob strings to populate icons in container1 (small images only)
local m.oo
m.oo=thisform.container1
m.oo.setall("picture","","image")
local m.myvar
*ARROW-CIRCLE-LEFT.PNG
local m.myvar
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)
*ARROW-LEFT.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADCSURBVEhL7dQtCgJRFIbhKwgWk8kluAeDxeQCxJ/oAqxaTAaLFhHUPUy0uRWbwRVYFPQ9MuFyucMcmDNBmBceRMP5YAZ0VX9ZPf0spRGeuKIpP1g2xhuf1BlmTeAfF1uYNMQL/vELGihcqcenCB/LDQP0I7qoQVX4QrXmUHVH7ECePVTtEDuQZw1V8iyPCA/IO9hkWKEFdTJyQDiyhFlZIwuYJSMnhCMzmCUj8t/jDyQwzR95oAPzZKSH9u9bVfGc+wKi9GW1nDfvJQAAAABJRU5ErkJggg==
endtext
*thisform.container1.image.. .pictureVal=strconv(m.myvar,14)
*ARROW-RIGHT.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC4SURBVEhL7dS7CQJREEbhq2hmZmIL1iAYGdmADzCzAG3ATDAwEMx8lCA2YCtmJjZgJOgZ2AUZruyAcwNhD3wsGPwTLGso+7tq2dO9Bi54YCg/eLfDK/PECK6tkR9IcqSOM/SRCdxyO1JBB72IPq7QR8YwN8PngIUcGcDUFrGRIjeYWiI2UGQDU00ssPpCvwOxRxU/N4cePyLZ+AEu41Pocfn7cBmXTkg2LrVxR5LxvBa6kC+9zKsQ3mBRZcEtWTD0AAAAAElFTkSuQmCC
endtext
*thisform.container1.image.. .pictureVal=strconv(m.myvar,14)
*ARROW-UP.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACwSURBVEhL7ZKxDcIwEEW9B6SgQ2QGVoGClShZgUFghQgpBQW0LAD/QSydLCIHck0kP+lJ57PvfoqEQsEylyd5lhUNT1jeyGdnKxfShXS5a0jf8uiokNzy6F8hQ5dHfwqZyXT5XT7MmZqefXORfFiWg7SDN1nLq+lR0+POvmU2y0bGARasJKQBwJ0N2cpB7ORRLt+nD98CgDe8ZWYUfQFuTD/A/rrU7qzlvpO6MAlCeAHgMmXDw22U2QAAAABJRU5ErkJggg==
endtext
thisform.container1.image12 .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)
*BALANCE-SCALE.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGPSURBVEhL7dRPK21RGMfx7U9XMkJ3ICEMZCIUSSlyU5QMjIhyC5kS+TcwRikDiqQ7QRERde8bMCIZMfIGzNVNiu9vL0drr7POcRyGfvXpPHuddXrOWnvtHXznq5KDdVxiTAOfSQ82HP9wiyH8xzbcOVVIKQPYd5xD/74DDziGO6cWKSfz9TOWXJzhGfMacOLOT5o17JoyknaogZt8XKMvvHondVjCBDo1YCVRg2XU4wRaadJoLwvxA9qSbMTia1COTVMGbZg1pT9dmDJlmH6MmDKMr8EflJkyzAF+mjKaLPyFvcQMnCIvvIpv0IhFU76lBqumjOY3Bk0ZSSvmTBnX4BAFpoxkC5WmNNF+61wnOmp70EmxG/zCpCnjUorYfQmjvT/CdALa52HYDXawAN98uUJsa4MS6OnUj32eoONrNxiHO8+mBpE04wLuxBtohYrdQAdgBvew5z9C96YI3lSgG3rhVWvAinuTFZ2+JvRC7yk9Q2nH1yCtNGDUYwVq4PtOipFSdAru0tCC73w0QfACQmRznqC/xGQAAAAASUVORK5CYII=
endtext
thisform.container1.image21.pictureVal=strconv(m.myvar,14)
*BICYCLE.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHASURBVEhL7dO/S1ZRHMfxawqWSibmFGIoOjgEmj+QGgpRQ8SWXMTBQR0yhGjwRwSOQv9Ao+GeRk3qVpNIEBFOIiKESw5CKuWv9/s8z324aoHY6POBF9zDved7zzn3e6NsskkmF13owROU4b9ShJKEamxiC7/wGVdwodTjAEcJtxDnNrbxPIwuEFd2Bw34Al/wFcsJ7mQHNTh37mMC43gAV+hxvMRowjR8qUfmUT2Ezzj3Hs6kAHPYxwqW0tcWeYZkCvEdH3AXPvMH3+Bc583CmpnMYAPNYRRFN7CGPXxEDuK4+nWUYh4/4S5tAmMNa70NI1KFQ7SHUarYO7iaRnivDqYfv9GS5j2/1SI+Ie6qDniv0oF97QrsczMAt+0LFuAuPBKvfe4FzAhWU5dRBewq5xpr+az/S/QYrirfAWnCVIIveJ++HkZ8XE/xI3UZ0ga/ibkKa3Y78I+0yKCDU3kEt1oeRidTC+91htHJDGEXN8OIvII9bccU4xp6Ya+/xr/yBj7TB/9851rDWrZtJm57DJ6bq7LVXMEk4m/zt+TBBXgc/vnOtYb/SrLzMrmOVvjDuZrzxpa1c5xrjWwuT6LoGCw0aqw/nxlPAAAAAElFTkSuQmCC
endtext
thisform.container1.image15 .pictureVal=strconv(m.myvar,14)
*BINOCULARS.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADwSURBVEhL7dU9akJBFIbhK6bQwt7sIStIwCJYaG8dN+AGUsdFuINoGjeirQriEnQJ0fcDDwzDGWcutveDBw5zzw/YWDV5Jh0ccLqbwKLa3tWj3trp4RqYwaI6/Kbe2uniLzCCRXX4Tb218olwgQwStdFMcVYIfwL5StRmiaK0cUa8IHfgghdk84F4WHIH5B3ZzOENlxz4QTZbeMMlBzZ4mD7+4Q2XHNDsK5KZwhuUNwzvVHs9oh3J/MIbWqMFi2q9eb3akcwO3tA34ujN69WOZPbwhuoc0I5kmgPy8MAC9kdijhgjjt70Le7Xjialqaobst/NJo4ungAAAAAASUVORK5CYII=
endtext
thisform.container1.image14 .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)
*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)
*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)
*CLOSE.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADOSURBVEhL7ZTNCQIxEEZzUZsQtRBtRkH7cPtRQWxK8OxF0O/BDgy5ZLISRNgHjw3JTJLNXxr5G1ZyJ7teykv5NXN5ki/5zqSONmIGsZF3mXecS8xaVsGsIp2bD8kyhuHXLfkpD/Lq6ihTR5vVkROCmfg130uYyksvZaDN4shZyCKcEEtCZmsd8vVl/1e4lUU4hj4Jb3ImDTo/yzzuKItEBpjIwQM0XyJuaNNNhqbHFGovGrHVTwbXv9lTYTR97DxsHifEnmvK4Q0d+SUpfQCtoYzOp4WbyQAAAABJRU5ErkJggg==
endtext
thisform.container1.image26 .pictureVal=strconv(m.myvar,14)
*EXPAND.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACuSURBVEhL7ZTBCUJBDAUX0Ra0BRHvFihW4MlK7EOwBdEqdOYQWHJ08wXhDwzyLy8kWdNm/pYFnvCSPGAJK7zhO3nGMtZ4x8kKbPGBkxTY4RMN9Tc6KSmQw/12XO7kiMNcsQ8PlujrGmaDFunDhzHMUMOHsU3bDfqZW2QYF+XCXFwfnmf+NT41A3165eESBcIX7rGMXMBOHFcZuYC6Ew9cCZ7cfIY9zSV/oplf09oHvOE+spveUVAAAAAASUVORK5CYII=
endtext
* thisform.container1.image25 .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)
*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)
*GEAR.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAERSURBVEhL7ZRbSgMxFEAH6xZqP9RF9EtRi+6vgq8PcR9+Kq0bqIjuwiK4Aj2HzoUQhk4C/Sn0wIGQZG6Sy53b7NgqJvjUeuHEJhjh/mrYPOBf650T4NrRaljPFf7gDM/xE+OAD/QVc3TPGKvwVr8YAfv8xiEWM8AX7ArW5TPuYRWmJQ3iLW9bHadrp1jMJT7iF6bBjzFwvMRYf8drPMNe0moJbzDHSsr3+W0vXQeYlpx7zPcVHeAzp7jA+LAvRabTtJreYk4wAqgBTYumwdWCqMKSs/TSIOt8RUu7mAPMb7lOf8rqluHvbxt4Q9uC7SEC2jZMS7SKqtynHGI0u7Qso1pcsyFuBF8R7drWvWMraJp/IymClyK524oAAAAASUVORK5CYII=
endtext
thisform.container1.image9 .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)
*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)
*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)
*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)
*PHOTO.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAD1SURBVEhL7dTBCgFRAIXhkbJT7OxtbfAGtjZWPAHv4E3I0o5HsLAheQt7opRixX8wNWbujHsnysKprzSZc4am6/3zU8mghwGGKeledagrkg5OmGKSku5Vh7oi6WP9+HhPFsYneRN1qCuS4EAbR2zR0AWHWA1scH1a6IIhFeQfH19iNbCCP6D/NZwa9tB4eMRqoIwxRijpQiB1qDz4C4MjVgNxqWIHv9y3hD/iNNCCXr8cwk8eNodiPaDyC3TzDEnlordOsRpo4gxTURyngQNMJUmcBvRlU0kSp4ECio50jxI78MnDTkdNJJ86rrtIc0j+85V43g1xuKLdzwRcxgAAAABJRU5ErkJggg==
endtext
thisform.container1.image18 .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)
*SAVE.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADaSURBVEhL7ZQ9CsJAEEZzAL2GdpaWdoLeS0TwB0EbS1sLSy30MBaCtSCClb5Ps7Asxt3pAubBgwk7k49sks0qSkkTl7iKOMc+mtHgGbf49LziJlf1CR84QRML1M3r6Acc0aF6iB284QyTsQSILt4x+UmsAUIh2q7e+yqCC6ihH3DBUa7qAfrscPopf+MCxBgPX9xjC300o9kofoCFcgYUbZGveoQ5wL3kNbqXG6o19ajXHOA+0zYWoTX1qPePAsLDTn+tO+RCtaYe9WpGs1FSj+tQzTSwolRk2QsUq3RunSYvagAAAABJRU5ErkJggg==
endtext
thisform.container1.image23.pictureVal=strconv(m.myvar,14)
*SCISSORS.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAGLSURBVEhL7dTLKwVhHMbxcY0oSrmUIrmVsFHWLgsLKUpCssEfoBQLFkSULGQhcgnFQm4LGyywwQorsiFSVjai5PZ95sy41JkzR2zkPPVpzvuemvd9f/ObMQL5nwlHIUqQqInfTCpO8Gp5wgKS4JZg6+oz87hHCyoxikecIx7eEoRqrGAZ5XDMHo48P99ThhcMmKOvUSkX0YQQFGMWjumBStMB+8i63kA7tJOCCXQjGjpFKwYRBsdEYAta5AzT2LXGOlkj+jCGZChaYAq15siPhKIZB7jDNU5Rj20UwE42VpFrjn6QKGygAcfIQBUOEYtvRzfoxxrmMIN25EAdpv/0nLSgnoU24He68Gy5hMqkLtL7MI5962o3QR7UntqUa7QjPdB1pGmCxOEWS+bI0zF1UFcVaYKoTDpphTnykR1cQJ8LO3q7HzBpjj4SCZVJfZ8JnagTbXDMJtQ16YiB3lAtqAXy4S0JGMEQhqESO6YU+jSoTLYraN4tWdBpXaPe1tF7UYPP5Qrkz8Uw3gD4UVHDYGYtZwAAAABJRU5ErkJggg==
endtext
* thisform.container1.image22 .pictureVal=strconv(m.myvar,14)
*SEARCH-PLUS.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFiSURBVEhL7dS/K0ZRHMfx6/evFenZjJRMNgYRpUx+jCZJBsXGZFVKmViFslgMMvAHPIMBpYhBSlIiipQf78/z3G+dTuTcy6KeT73q3nPPOd/TuefeqJB/kRZMYQFzGEANfp1m7OPjC3dQ0SKkSgce4E764t3LBoqRKPW4hSZ4xxIaoVRiEBewIjNIlEXY4HE1xNlCV/4yqsMZ1OcRtQhKCW6ggXtqcHKFkfxlLj2whYyqISTaChs0Aa20O6Ztm4+v26C9v4f6LiMorbACw9DK7N51DsXexWbuLiANsEn8l+dvUTWeob46CME5gQadolwNcfwC2kJbzJAaQjMJG7iOMijT0Men6Dt5gvpcogLB0aqzsCKHGEM7+rGCV9jzHej0JUoGB7BJfrKGxEWqMItruJO9YRe9OI7bUhdRdN71R+1DJ9yvVr+VI1iRVaT+AX4Xv0gT/jwqsg2dulI1FBKYKPoEgtx1vQ5r6x0AAAAASUVORK5CYII=
endtext
thisform.container1.image21.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)
*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)
*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)
*cubes.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHCSURBVEhL7dQ/SNRhHMfxSwxBEUkdDAdpibZyEcVN3SRCUhoCbWhsaQkJWhQhBwWzaNAaoyUcHEwnUSKSBiEIISLEIBAEc0gE//R+H/ccDz9/aXc63gde3PHc83u+v+ffZUo5r1zDc3zCIOpw5pShG/M4xApGsYE/mMZ1FJVLWMUe3qAVIeXowzKO8BoF5yZ8eAqXbUhJMz7C2VXaUEh6YAHFswhvvwR/W8t9VqOgxAViv7GLV7iBFth+bgVUj5CiCrTjPZIDByGeoLewbRxX8M9UYACf4abN4Qm+I1ngNhZz392Lx/iCfcygExeQTyPW4fo+w1WEeBc8UQuwsIOGPfAUxemABSzk3cnnLnzwGx4guZ7e4hfwctnvJ9JucxO8iNuwXwOy6YcNgTOZwB2EW+zSTSLuF25zL97BN/+Kp/B3VyabZIHgAJ7/NhjXNq2fZtEF194Z23ZqgR3EOalAvKzHCtxC8gHFBWrxEmn9FApUYQjOvsYGcxFj8HTED1nAgYfhvvyARWyP+8kNfYRN/MI9HItTciNDITctDHwfvojx9IwgLrQFB36IU//4LOQp+oB44GRCIf9R/2vgUlKSyfwFbfSysyXwjpMAAAAASUVORK5CYII=
endtext
thisform.container1.image11 .pictureVal=strconv(m.myvar,14)
*WINDOWS.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC7SURBVEhL7dIhCgJBFMbxOYGgSVAWwWoSsRgsm+xi9ABeQMSm2Qt4AJOwdrEKNsFTCJoEo/6fGGSYN7hgGZkPfrDMMu8L80zMX6SIFgaYIEHuVFBFDzOscMAFD0sbakoYYYENTrhDLs6xfX/7eAvkp+uSiAWvhF9QQKqoo2mducgMNTLgqpgis85cZIaa8N8g/IIa1jjihs+LPymwU0YHQ3Qhm7THGa7hIleBL7LvspJ9jLHEDg3EfBtjns4u0OUyALZeAAAAAElFTkSuQmCC
endtext
thisform.container1.image13 .pictureVal=strconv(m.myvar,14)
*PRINT.PNG
text to m.myvar noshow
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADmSURBVEhL7dQ9DgFBGMbxTVBJfDQajqAixKlcwSEkwhEQGnqNUjR0XMAFNAr+T5hkwu7szFZbeJJfMtk877xBbPRPrtPHBLMYUwxRRuYsccEixgZPnNBApqwxfh9/0oQWyBlVBMe1oII7zJIRguNaoLTQxRwrPQhN2gITddT1TgkD7OG7QF3NFPXAlQJ2MN+t7wLT16zuSEwbphziCH0CnXVHYvTn+h728cD1c9Ydicm6wBa04IZDCnXsGeeCDuxy6I8susOZGurYwneBuprRrHdcLzubOuoGp4ek17VNHXX/yWWi6AWEh3wJHuIfgwAAAABJRU5ErkJggg==
endtext
thisform.container1.image22 .pictureVal=strconv(m.myvar,14)
ENDPROC
PROCEDURE Destroy
close data all
m.yrep=null
release m.yrep
clea events
ENDPROC
PROCEDURE olecontrol1.Refresh
*** Méthode de contrôle ActiveX ***
ENDPROC
PROCEDURE olecontrol1.Init
this.silent=.t.
this.navigate("http://fontawesome.io/3.2.1/icons/#new")
ENDPROC
ENDDEFINE
*
*-- EndDefine:yawesome_sample
*
*
DEFINE CLASS YCONTAINER1 AS container
Anchor = 768
Top = 650
Left = 71
Width = 845
Height = 39
BackStyle = 1
BackColor = RGB(0,255,255)
Name = "YContainer1"
ADD OBJECT image2 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 1, ;
Height = 24, ;
Left = 36, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Back", ;
Name = "Image2"
ADD OBJECT image1 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 1, ;
Height = 24, ;
Left = 10, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "SnippingTool", ;
Name = "Image1"
ADD OBJECT image3 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 66, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Frwaed", ;
Name = "Image3"
ADD OBJECT image5 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 120, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "calculator", ;
Name = "Image5"
ADD OBJECT image6 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 146, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
Name = "Image6"
ADD OBJECT image7 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 172, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "close", ;
Name = "Image7"
ADD OBJECT image8 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 201, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Help", ;
Name = "Image8"
ADD OBJECT image9 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 232, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
Name = "Image9"
ADD OBJECT image10 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 260, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Volume", ;
Name = "Image10"
ADD OBJECT image11 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 287, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Charmap", ;
Name = "Image11"
ADD OBJECT image12 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 315, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "form Titlebar", ;
Name = "Image12"
ADD OBJECT image13 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 344, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "", ;
Name = "Image13"
ADD OBJECT image4 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 94, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Explorer", ;
Name = "Image4"
ADD OBJECT image14 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 377, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Explorer captures", ;
Name = "Image14"
ADD OBJECT image15 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 410, ;
MousePointer = 15, ;
Top = 8, ;
Width = 24, ;
ToolTipText = "", ;
Name = "Image15"
ADD OBJECT shape1 AS shape WITH ;
Top = 12, ;
Left = 709, ;
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 = "", ;
Stretch = 2, ;
BackStyle = 0, ;
Height = 32, ;
Left = 435, ;
MousePointer = 15, ;
Top = 3, ;
Width = 32, ;
ToolTipText = "", ;
Name = "Image16"
ADD OBJECT image19 AS image WITH ;
Anchor = 768, ;
Picture = "images\film.png", ;
BackStyle = 0, ;
Height = 24, ;
Left = 518, ;
MousePointer = 15, ;
Top = 8, ;
Width = 27, ;
ToolTipText = "Fillms", ;
Name = "Image19"
ADD OBJECT image20 AS image WITH ;
Anchor = 768, ;
Picture = "", ;
BackStyle = 0, ;
Height = 24, ;
Left = 544, ;
MousePointer = 15, ;
Top = 6, ;
Width = 26, ;
ToolTipText = "", ;
Name = "Image20"
ADD OBJECT image21 AS image WITH ;
Anchor = 768, ;
Picture = "images\photo.png", ;
BackStyle = 0, ;
Height = 24, ;
Left = 572, ;
MousePointer = 15, ;
Top = 6, ;
Width = 29, ;
ToolTipText = "zoom", ;
Name = "Image21"
ADD OBJECT image22 AS image WITH ;
Anchor = 768, ;
Picture = "images\balance-scale.png", ;
Stretch = 0, ;
BackStyle = 0, ;
Height = 24, ;
Left = 605, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Print", ;
Name = "Image22"
ADD OBJECT image23 AS image WITH ;
Anchor = 768, ;
Picture = "images\scissors.png", ;
BackStyle = 0, ;
Height = 24, ;
Left = 636, ;
MousePointer = 15, ;
Top = 6, ;
Width = 30, ;
ToolTipText = "", ;
Name = "Image23"
ADD OBJECT image24 AS image WITH ;
Anchor = 768, ;
Picture = "images\minus-circle.png", ;
Stretch = 0, ;
BackStyle = 0, ;
Height = 24, ;
Left = 752, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Minimize", ;
Name = "Image24"
ADD OBJECT image25 AS image WITH ;
Anchor = 768, ;
Picture = "images\arrows-alt.png", ;
BackStyle = 0, ;
Height = 24, ;
Left = 782, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "expand/restore", ;
Name = "Image25"
ADD OBJECT image26 AS image WITH ;
Anchor = 768, ;
Picture = "images\close.png", ;
BackStyle = 0, ;
Height = 24, ;
Left = 811, ;
MousePointer = 15, ;
Top = 6, ;
Width = 24, ;
ToolTipText = "Close", ;
Name = "Image26"
ADD OBJECT image17 AS image WITH ;
Anchor = 768, ;
Picture = "images\search.png", ;
Stretch = 2, ;
BackStyle = 0, ;
Height = 32, ;
Left = 461, ;
MousePointer = 15, ;
Top = 6, ;
Width = 32, ;
ToolTipText = "Search", ;
Name = "Image17"
ADD OBJECT image18 AS image WITH ;
Anchor = 768, ;
Picture = "images\photo.png", ;
Stretch = 2, ;
BackStyle = 0, ;
Height = 32, ;
Left = 487, ;
MousePointer = 15, ;
Top = 5, ;
Width = 32, ;
ToolTipText = "Photos", ;
Name = "Image18"
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
ENDPROC
PROCEDURE shape1.Click
local m.xcolor
m.xcolor=getcolor()
if !m.xcolor=-1
this.parent.backcolor=m.xcolor
endi
ENDPROC
ENDDEFINE
*
*-- EndDefine: ycontainer1
*
DEFINE CLASS ycontainer2 AS container
Anchor = 768
Top = 699
Left = 4
Width = 972
Height = 36
BackColor = RGB(255,213,191)
Name = "yContainer2"
ADD OBJECT image1 AS image WITH ;
Height = 24, ;
Left = 14, ;
Top = 5, ;
Width = 24, ;
Name = "Image1"
ADD OBJECT image2 AS image WITH ;
Height = 24, ;
Left = 40, ;
Top = 5, ;
Width = 24, ;
Name = "Image2"
ADD OBJECT image3 AS image WITH ;
Height = 24, ;
Left = 68, ;
Top = 5, ;
Width = 24, ;
Name = "Image3"
ADD OBJECT image4 AS image WITH ;
Height = 24, ;
Left = 96, ;
Top = 5, ;
Width = 24, ;
Name = "Image4"
ADD OBJECT image5 AS image WITH ;
Height = 24, ;
Left = 123, ;
Top = 5, ;
Width = 24, ;
Name = "Image5"
ADD OBJECT image6 AS image WITH ;
Height = 24, ;
Left = 151, ;
Top = 5, ;
Width = 24, ;
Name = "Image6"
ADD OBJECT image7 AS image WITH ;
Height = 24, ;
Left = 179, ;
Top = 5, ;
Width = 24, ;
Name = "Image7"
ADD OBJECT image8 AS image WITH ;
Height = 24, ;
Left = 207, ;
Top = 5, ;
Width = 24, ;
Name = "Image8"
ADD OBJECT image9 AS image WITH ;
Height = 24, ;
Left = 234, ;
Top = 5, ;
Width = 24, ;
Name = "Image9"
ADD OBJECT image10 AS image WITH ;
Height = 24, ;
Left = 262, ;
Top = 5, ;
Width = 24, ;
Name = "Image10"
ADD OBJECT image11 AS image WITH ;
Height = 24, ;
Left = 290, ;
Top = 5, ;
Width = 24, ;
Name = "Image11"
ADD OBJECT image12 AS image WITH ;
Height = 24, ;
Left = 316, ;
Top = 5, ;
Width = 24, ;
Name = "Image12"
ADD OBJECT image13 AS image WITH ;
Height = 24, ;
Left = 344, ;
Top = 5, ;
Width = 24, ;
Name = "Image13"
ADD OBJECT image14 AS image WITH ;
Height = 24, ;
Left = 372, ;
Top = 5, ;
Width = 24, ;
Name = "Image14"
ADD OBJECT image15 AS image WITH ;
Height = 24, ;
Left = 399, ;
Top = 5, ;
Width = 24, ;
Name = "Image15"
ADD OBJECT image16 AS image WITH ;
Height = 24, ;
Left = 427, ;
Top = 5, ;
Width = 24, ;
Name = "Image16"
ADD OBJECT image17 AS image WITH ;
Height = 24, ;
Left = 455, ;
Top = 5, ;
Width = 24, ;
Name = "Image17"
ADD OBJECT image18 AS image WITH ;
Height = 24, ;
Left = 483, ;
Top = 5, ;
Width = 24, ;
Name = "Image18"
ADD OBJECT image19 AS image WITH ;
Height = 24, ;
Left = 510, ;
Top = 5, ;
Width = 24, ;
Name = "Image19"
ADD OBJECT image20 AS image WITH ;
Height = 24, ;
Left = 538, ;
Top = 5, ;
Width = 24, ;
Name = "Image20"
ADD OBJECT image21 AS image WITH ;
Height = 24, ;
Left = 566, ;
Top = 5, ;
Width = 24, ;
Name = "Image21"
ADD OBJECT image22 AS image WITH ;
Height = 24, ;
Left = 592, ;
Top = 5, ;
Width = 24, ;
Name = "Image22"
ADD OBJECT image23 AS image WITH ;
Height = 24, ;
Left = 620, ;
Top = 5, ;
Width = 24, ;
Name = "Image23"
ADD OBJECT image24 AS image WITH ;
Height = 24, ;
Left = 648, ;
Top = 5, ;
Width = 24, ;
Name = "Image24"
ADD OBJECT image25 AS image WITH ;
Height = 24, ;
Left = 675, ;
Top = 5, ;
Width = 24, ;
Name = "Image25"
ADD OBJECT image26 AS image WITH ;
Height = 24, ;
Left = 703, ;
Top = 5, ;
Width = 24, ;
Name = "Image26"
ADD OBJECT image27 AS image WITH ;
Height = 24, ;
Left = 731, ;
Top = 5, ;
Width = 24, ;
Name = "Image27"
ADD OBJECT image28 AS image WITH ;
Height = 24, ;
Left = 759, ;
Top = 5, ;
Width = 24, ;
Name = "Image28"
ADD OBJECT image29 AS image WITH ;
Height = 24, ;
Left = 786, ;
Top = 5, ;
Width = 24, ;
Name = "Image29"
ADD OBJECT image30 AS image WITH ;
Height = 24, ;
Left = 814, ;
Top = 5, ;
Width = 24, ;
Name = "Image30"
ADD OBJECT image31 AS image WITH ;
Height = 24, ;
Left = 842, ;
Top = 5, ;
Width = 24, ;
Name = "Image31"
ADD OBJECT image32 AS image WITH ;
Height = 24, ;
Left = 870, ;
Top = 5, ;
Width = 24, ;
Name = "Image32"
ADD OBJECT image33 AS image WITH ;
Height = 24, ;
Left = 897, ;
Top = 5, ;
Width = 24, ;
Name = "Image33"
ADD OBJECT image34 AS image WITH ;
Height = 24, ;
Left = 925, ;
Top = 5, ;
Width = 24, ;
Name = "Image34"
ADD OBJECT shape1 AS shape WITH ;
Top = 9, ;
Left = 952, ;
Height = 15, ;
Width = 15, ;
Anchor = 768, ;
Curvature = 99, ;
MousePointer = 15, ;
ToolTipText = "Backcolor", ;
BackColor = RGB(255,0,0), ;
Name = "Shape1"
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
ENDPROC
PROCEDURE shape1.Click
local m.xcolor
m.xcolor=getcolor()
if !m.xcolor=-1
this.parent.backcolor=m.xcolor
endi
ENDPROC
ENDDEFINE
*
*-- EndDefine: ycontainer2
*
DEFINE CLASS ycontainer3 AS container
Anchor = 768
Top = 0
Left = 2
Width = 37
Height = 695
BackColor = RGB(128,255,0)
Name = "yContainer3"
ADD OBJECT image1 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 6, ;
Width = 24, ;
Name = "Image1"
ADD OBJECT image2 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 31, ;
Width = 24, ;
Name = "Image2"
ADD OBJECT image3 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 59, ;
Width = 24, ;
Name = "Image3"
ADD OBJECT image4 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 85, ;
Width = 24, ;
Name = "Image4"
ADD OBJECT image5 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 111, ;
Width = 24, ;
Name = "Image5"
ADD OBJECT image6 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 138, ;
Width = 24, ;
Name = "Image6"
ADD OBJECT image7 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 164, ;
Width = 24, ;
Name = "Image7"
ADD OBJECT image8 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 191, ;
Width = 24, ;
Name = "Image8"
ADD OBJECT image9 AS image WITH ;
Height = 24, ;
Left = 5, ;
Top = 217, ;
Width = 24, ;
Name = "Image9"
ADD OBJECT image10 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 246, ;
Width = 24, ;
Name = "Image10"
ADD OBJECT image11 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 272, ;
Width = 24, ;
Name = "Image11"
ADD OBJECT image12 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 300, ;
Width = 24, ;
Name = "Image12"
ADD OBJECT image13 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 326, ;
Width = 24, ;
Name = "Image13"
ADD OBJECT image14 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 352, ;
Width = 24, ;
Name = "Image14"
ADD OBJECT image15 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 379, ;
Width = 24, ;
Name = "Image15"
ADD OBJECT image16 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 405, ;
Width = 24, ;
Name = "Image16"
ADD OBJECT image17 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 432, ;
Width = 24, ;
Name = "Image17"
ADD OBJECT image18 AS image WITH ;
Height = 24, ;
Left = 6, ;
Top = 458, ;
Width = 24, ;
Name = "Image18"
ADD OBJECT image19 AS image WITH ;
Height = 24, ;
Left = 7, ;
Top = 486, ;
Width = 24, ;
Name = "Image19"
ADD OBJECT image20 AS image WITH ;
Height = 24, ;
Left = 7, ;
Top = 512, ;
Width = 24, ;
Name = "Image20"
ADD OBJECT image21 AS image WITH ;
Height = 24, ;
Left = 7, ;
Top = 539, ;
Width = 24, ;
Name = "Image21"
ADD OBJECT image22 AS image WITH ;
Height = 24, ;
Left = 7, ;
Top = 565, ;
Width = 24, ;
Name = "Image22"
ADD OBJECT image23 AS image WITH ;
Height = 24, ;
Left = 8, ;
Top = 592, ;
Width = 24, ;
Name = "Image23"
ADD OBJECT image24 AS image WITH ;
Height = 24, ;
Left = 8, ;
Top = 618, ;
Width = 24, ;
Name = "Image24"
ADD OBJECT shape1 AS shape WITH ;
Top = 643, ;
Left = 12, ;
Height = 15, ;
Width = 15, ;
Anchor = 768, ;
Curvature = 99, ;
MousePointer = 15, ;
ToolTipText = "Backcolor", ;
BackColor = RGB(255,0,0), ;
Name = "Shape1"
ADD OBJECT image26 AS image WITH ;
Anchor = 768, ;
Height = 25, ;
Left = 7, ;
MousePointer = 15, ;
Top = 659, ;
Width = 25, ;
Name = "image26"
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
ENDPROC
PROCEDURE shape1.Click
local m.xcolor
m.xcolor=getcolor()
if !m.xcolor=-1
this.parent.backcolor=m.xcolor
endi
ENDPROC
ENDDEFINE
*
*-- EndDefine: ycontainer3
choose from 694 awesome icons arranged in a vfp table.
Click on code to select [then copy] -click outside to deselect
*3*
*if you gather some awesome png icons in the folder "images", this code can retrieve the encoded images
*assume images folder is in source.the pngs can be choosed & captured by rightclick in code *1*
*this code can be installed/paste on form.init (see the code*2* above)
*the user work is to distribute the control images names for each encoded image.
*warning : encoding images is limlited in vfp to small ones for capacity string problem( vfp can crash).its not in web.
Local m.yrep
m.yrep=Addbs(Justpath(Sys(16,1)))
Set Defa To (m.yrep)
Local gnbre
gnbre=Adir(gabase,m.yrep+"images\*.png")
If gnbre=0
Return .F.
Endi
Create Cursor ycurs (filename c(40),ystr13 m)
cr=Chr(13)+Chr(10)
For i=1 To gnbre
Insert Into ycurs Values (Justfname(m.yrep+"images\"+gabase(i,1)), Strconv(Filetostr(m.yrep+"images\"+gabase(i,1)),13))
Endfor
Local m.xx
m.xx=""
Scan
If Recno()=1
Repl ystr13 With "local m.myvar"+m.cr+"text to m.myvar noshow"+m.cr+ystr13+m.cr+"endtext"+m.cr+"*thisform.container1.image.. .pictureVal=strconv(m.myvar,14)"+m.cr
Else
Repl ystr13 With "text to m.myvar noshow"+m.cr+ystr13+m.cr+"endtext"+m.cr+" *thisform.container1.image.. .pictureVal=strconv(m.myvar,14)"+m.cr
Endi
m.xx=m.xx+"*"+filename+m.cr+ystr13+m.cr
Endscan
Brow Title Trans(Reccount())+" icons in folder captures."
Local m.lcdest
m.lcdest=m.yrep+"yencode.txt"
Strtofile(m.xx,m.lcdest)
Run/N notepad &lcdest
download this zip ,it contains awesome.dbf(+fpt) used in code *1* & *2*-put these files in same folder with the prgs *1* & *2* above.
*Important:All Codes above are tested on VFP9SP2 , windows 10 pro and IE11 emulation.