VERY NICE! I downloaded the browser.prg, read through some of the modified code, and then rebuilt the browser.app. I didn't bother to read about all these different modes that are available. It's my own fault for not reading the documentation you provided on the download page. My apologies.
You've done a great job with this and I appreciate that you've made it available to the VFP Community. Suggestions: Make a multi-line tooltip that hints at the different modes available when the user is hovering over the View Class Code button. Or, perhaps make multiple buttons or a drop down to provide for the different modes of code generation you are providing for. Now that I know the keys to press in order to unleash all of this new functionality I am quite impressed with your effort here. Again, nice job and thank you.
Have you thought about proposing this as a SednaX project? One of the main focuses of SednaX is enhancements to the FFC and XSource provided with VFP.
>>Hi Arto,
>>
>>I just tried your enhanced class browser and did not get the expected results with a simple form that has the MS webbrowser control on it. I had thought that it would add the Oleclass property to the olecontrol when it generated the prg for the form, but alas the Oleclass property was missing. I went through your code briefly and it looks like you implemented the ability to do this with a few limitations having to do with ImageList, but it doesn't appear to work for the webbrowser control. Any ideas why this isn't working?
>
>I made a form where I put a webbrowser activex. No problem with modes 2, 3, 4 and 5. Could you send me the simple form you mentioned that I can check it?
>
>AT
>
>Mode 2
>
>***************************************************
>* Class Browser modifications by Arto Toikka 2005 *
>* =============================================== *
>* *
>* Mode 2 *
>* View Code generated: 04/01/06 10:56:50 AM *
>***************************************************
>
>PUBLIC oform1_1RP0NGP76
>
>oform1_1RP0NGP76=NEWOBJECT("form1")
>
>oform1_1RP0NGP76.Show
>RETURN
>
>
>**************************************************
>*-- Form: form1 (d:\program files\microsoft visual foxpro 9\browserfix\_webbrowser1.scx)
>*-- ParentClass: form
>*-- BaseClass: form
>*-- Time Stamp: 04/01/06 10:56:07 AM
>*
>DEFINE CLASS form1 AS form
>
>
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
> Visible = .T.
>
>
> ADD OBJECT olecontrol1 AS olecontrol_L1_C1_TC2
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************
>
>
>**************************************************
>*-- Olecontrol: olecontrol1 (d:\program files\microsoft visual foxpro 9\browserfix\_webbrowser1.scx)
>*-- ParentClass: olecontrol
>*-- BaseClass: olecontrol
>*-- Time Stamp: 04/01/06 10:56:07 AM
>*-- OLEObject = C:\WINDOWS\system32\shdocvw.dll
>*
>DEFINE CLASS olecontrol_L1_C1_TC2 AS olecontrol
>
>
> Top = 48
> Left = 72
> Height = 132
> Width = 216
> Name = "Olecontrol1"
> OleClass = "Shell.Explorer.2"
> Visible = .T.
>
>
>ENDDEFINE
>*
>*-- EndDefine: olecontrol1
>**************************************************
>>
>Mode 3
>
>***************************************************
>* Class Browser modifications by Arto Toikka 2005 *
>* =============================================== *
>* *
>* Mode 3 *
>* View Code generated: 04/01/06 10:57:43 AM *
>***************************************************
>
>PUBLIC oform1_1RP0NHUG3
>
>oform1_1RP0NHUG3=NEWOBJECT("form1")
>
>oform1_1RP0NHUG3.Show
>RETURN
>
>
>**************************************************
>*-- Form: form1 (d:\program files\microsoft visual foxpro 9\browserfix\_webbrowser1.scx)
>*-- ParentClass: form
>*-- BaseClass: form
>*-- Time Stamp: 04/01/06 10:56:07 AM
>*
>DEFINE CLASS form1 AS form
>
>
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
> Visible = .T.
>
>
> ADD OBJECT olecontrol1 AS olecontrol_L1_C1_TC2
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************
>
>
>**************************************************
>*-- Olecontrol: olecontrol1 (d:\program files\microsoft visual foxpro 9\browserfix\_webbrowser1.scx)
>*-- ParentClass: olecontrol
>*-- BaseClass: olecontrol
>*-- Time Stamp: 04/01/06 10:56:07 AM
>*-- OLEObject = C:\WINDOWS\system32\shdocvw.dll
>*
>DEFINE CLASS olecontrol_L1_C1_TC2 AS olecontrol
>
>
> Top = 48
> Left = 72
> Height = 132
> Width = 216
> Name = "Olecontrol1"
> OleClass = "Shell.Explorer.2"
> Visible = .T.
>
>
>ENDDEFINE
>*
>*-- EndDefine: olecontrol1
>**************************************************
>>
>Mode 4
>
>***************************************************
>* Class Browser modifications by Arto Toikka 2005 *
>* =============================================== *
>* *
>* Mode 4 *
>* View Code generated: 04/01/06 10:58:10 AM *
>***************************************************
>
>PUBLIC oform1_1RP0NIF1P
>
>oform1_1RP0NIF1P=NEWOBJECT("form1")
>
>oform1_1RP0NIF1P.Show
>RETURN
>
>
>**************************************************
>*-- Form: form1 (d:\program files\microsoft visual foxpro 9\browserfix\_webbrowser1.scx)
>*-- ParentClass: form
>*-- BaseClass: form
>*-- Time Stamp: 04/01/06 10:56:07 AM
>*
>DEFINE CLASS form1 AS form
>
>
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
> Visible = .T.
>
>
> ADD OBJECT olecontrol1 AS olecontrol WITH ;
> Top = 48, ;
> Left = 72, ;
> Height = 132, ;
> Width = 216, ;
> Name = "Olecontrol1", ;
> OleClass = "Shell.Explorer.2", ;
> Visible = .T.
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************
>>
>Mode 5
>
>***************************************************
>* Class Browser modifications by Arto Toikka 2005 *
>* =============================================== *
>* *
>* Mode 5 *
>* View Code generated: 04/01/06 10:58:33 AM *
>***************************************************
>
>PUBLIC oform1_1RP0NIX11
>
>oform1_1RP0NIX11=NEWOBJECT("form1")
>
>oform1_1RP0NIX11.Show
>RETURN
>
>
>**************************************************
>*-- Form: form1 (d:\program files\microsoft visual foxpro 9\browserfix\_webbrowser1.scx)
>*-- ParentClass: form
>*-- BaseClass: form
>*-- Time Stamp: 04/01/06 10:56:07 AM
>*
>DEFINE CLASS form1 AS form
>
>
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
> Visible = .T.
>
>
> ADD OBJECT olecontrol1 AS olecontrol WITH ;
> Top = 48, ;
> Left = 72, ;
> Height = 132, ;
> Width = 216, ;
> Name = "Olecontrol1", ;
> OleClass = "Shell.Explorer.2", ;
> Visible = .T.
>
>
>ENDDEFINE
>*
>*-- EndDefine: form1
>**************************************************
>
