Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Putting the application in the taskbar
Message
From
03/01/2006 15:04:21
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01079962
Message ID:
01082814
Views:
16
I made a method called mostraricono; this one recieve a parameter called siono; the method code is:

parameter siono
IF siono
	local lcpathtoicons, nicons, aiconfiles[1], ncurrenticon
	lcpathtoicons = home() + "graphics\icons\win95\"
	nicons = adir(aiconfiles, lcpathtoicons + "*fold*.ico")
	_screen.visible= .f.
	thisform.visible= .f.
	if m.nicons = 0
		messagebox("No se encontraron iconos en la carpeta: '" + lcpathtoicons + "'")
		return
	endif
	asort(m.aiconfiles)
	with thisform.systray1
		.cleariconlist()
		for ncurrenticon = 1 to m.nicons
			.addicontoiconlist(lcpathtoicons + aiconfiles[ncurrenticon, 1])
		endfor
		.addicontosystray
		thisform.timer1.enabled = .t.
	endwith
	thisform.systray1.tiptext="esta es la primera prueba..."
ELSE
	_screen.visible= .t.
	thisform.visible= .t.
	thisform.systray1.cleariconlist()
ENDIF
I think if I called the method (with the parameter .t.) the screen desapear while the procees is runnig; after this finish I call the method (with the parameter .f.) and the form and screen will be visible again.

In fact my process code would be:
.
.
thisform.mostraricono(.t.)
.
.
thisform.mostraricono(.f.)
.
.
TIA

What do you think?
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform