Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Screen=off, Getfile()
Message
From
27/01/2003 09:10:48
 
General information
Forum:
Visual FoxPro
Category:
Installation, Setup and Configuration
Miscellaneous
Thread ID:
00745697
Message ID:
00745732
Views:
28
Sergey, in my case comdlg32.ocx is present on all machines of all endusers, so your solution should indeed be the solution for me. Thanks, and points given.

>It's commdlg32.ocx (commdlg32.msm merge module). You can distribute it with your application if you're not sure.
>
>>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
Reply
Map
View

Click here to load this message in the networking platform