Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Screen=off, Getfile()
Message
From
27/01/2003 08:44:44
 
General information
Forum:
Visual FoxPro
Category:
Installation, Setup and Configuration
Miscellaneous
Thread ID:
00745697
Message ID:
00745717
Views:
30
Hi Sergey, your code works fine on my machine. Do you think all users will have the COMMDLG.DLL already installed as part of Windows?

>You can try Common Dialog Control.
oDlg = Createobject("GetFileEx")
>? oDlg.GetFile()
>
>DEFINE CLASS GetFileEx AS form
>	Left = 100   && Set Dialog Position by positioning the form
>	Top = 100    && Set Dialog Position
>	Name = "GetFIleEx"
>	DoCreate = .T.
>	Visible = .F.
>	cFileSelected = ""
>	lUserCancel = .F.
>	
>	ADD OBJECT oCDC AS OleControl WITH ;
>		OleClass = "MsComDlg.CommonDialog"
>
>	PROCEDURE oCDC.Init
>		This.CancelError = .T. 	
>	ENDPROC 	
>
>	PROCEDURE Error
>		LPARAMETERS nError, cMethod, nLine
>		IF nError = 1429
>			This.lUserCancel = .T.
>		ENDIF
>	ENDPROC
>
>	PROCEDURE GetFile(tnInitColor)
>		Thisform.oCDC.ShowOpen()
>		IF This.lUserCancel
>			This.cFileSelected = ""
>		ELSE	
>			This.cFileSelected = Thisform.oCDC.FileName
>		ENDIF
>		RETURN This.cFileSelected 				
>	ENDPROC 	
>ENDDEFINE
>
>
>>Hi,
>>
>>In a very small executable I want to let the user choose an app. Then the app, containing a form, will be executed. The app is chosen with the help of GETFILE(). In that phase I don't want the main vfp-window, so I put SCREEN=OFF in the config.fpw. However, this also prevents the visibility of Getfile().
>>
>>Any other solution?
Groet,
Peter de Valença

Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform