TFormFolder in DBFData6.prg .... Interesting!

[ChrisGillard]

Hi,
Was interested in how you do the example in DBFData6 ... it is a form with
an Explorer Bar on the left and a TFolder on the right which displays other
'forms' from other .prgs.
Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
FrmFolder.prg ... this is the secret I think!!
I am interested in ways to have the same layout main window with an area on
the right to have different 'forms' visible depending on different menu
options .... your sample allows this.
If I did not want the 'tabs' is there any other container class like TPanel
that could do the job showing a 'Form' in it ??
Something like Class TFormPanel FROM XPanel ??
I have a lot to learn!
Regards
Chris Gillard

[ignacio]

Chris,
That's it. Just use TFormFolder as a template for any other alike class you
may need.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hi,
>
> Was interested in how you do the example in DBFData6 ... it is a form with
> an Explorer Bar on the left and a TFolder on the right which displays
> other 'forms' from other .prgs.
>
> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
> FrmFolder.prg ... this is the secret I think!!
>
> I am interested in ways to have the same layout main window with an area
> on the right to have different 'forms' visible depending on different menu
> options .... your sample allows this.
>
> If I did not want the 'tabs' is there any other container class like
> TPanel that could do the job showing a 'Form' in it ??
>
> Something like Class TFormPanel FROM XPanel ??
>
> I have a lot to learn!
>
> Regards
>
> Chris Gillard
>
>
>
>

[NoName]

Chris,
That's it. Just use TFormFolder as a template for any other alike class you
may need.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hi,
>
> Was interested in how you do the example in DBFData6 ... it is a form with
> an Explorer Bar on the left and a TFolder on the right which displays
> other 'forms' from other .prgs.
>
> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
> FrmFolder.prg ... this is the secret I think!!
>
> I am interested in ways to have the same layout main window with an area
> on the right to have different 'forms' visible depending on different menu
> options .... your sample allows this.
>
> If I did not want the 'tabs' is there any other container class like
> TPanel that could do the job showing a 'Form' in it ??
>
> Something like Class TFormPanel FROM XPanel ??
>
> I have a lot to learn!
>
> Regards
>
> Chris Gillard
>
>
>
>

[ChrisGillard]

Ignacio,
I did a Class TFormPanel FROM XPanel based on your TFormFolder.
I had to rem the select() calls to get it to compile.
Nothing is displayed on my panel using similar vode to you.
If you can spare the time my test program is attached.
Thanks for all your help.
Chris
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Chris,
>
> That's it. Just use TFormFolder as a template for any other alike class
> you
> may need.
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Hi,
>>
>> Was interested in how you do the example in DBFData6 ... it is a form
>> with
>> an Explorer Bar on the left and a TFolder on the right which displays
>> other 'forms' from other .prgs.
>>
>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>> FrmFolder.prg ... this is the secret I think!!
>>
>> I am interested in ways to have the same layout main window with an area
>> on the right to have different 'forms' visible depending on different
>> menu
>> options .... your sample allows this.
>>
>> If I did not want the 'tabs' is there any other container class like
>> TPanel that could do the job showing a 'Form' in it ??
>>
>> Something like Class TFormPanel FROM XPanel ??
>>
>> I have a lot to learn!
>>
>> Regards
>>
>> Chris Gillard
>>
>>
>>
>>
>
>


Attached files FormTest.zip (4.7 KB)Â

[ChrisGillard]

Ignacio,
I did a Class TFormPanel FROM XPanel based on your TFormFolder.
I had to rem the select() calls to get it to compile.
Nothing is displayed on my panel using similar vode to you.
If you can spare the time my test program is attached.
Thanks for all your help.
Chris
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Chris,
>
> That's it. Just use TFormFolder as a template for any other alike class
> you
> may need.
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Hi,
>>
>> Was interested in how you do the example in DBFData6 ... it is a form
>> with
>> an Explorer Bar on the left and a TFolder on the right which displays
>> other 'forms' from other .prgs.
>>
>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>> FrmFolder.prg ... this is the secret I think!!
>>
>> I am interested in ways to have the same layout main window with an area
>> on the right to have different 'forms' visible depending on different
>> menu
>> options .... your sample allows this.
>>
>> If I did not want the 'tabs' is there any other container class like
>> TPanel that could do the job showing a 'Form' in it ??
>>
>> Something like Class TFormPanel FROM XPanel ??
>>
>> I have a lot to learn!
>>
>> Regards
>>
>> Chris Gillard
>>
>>
>>
>>
>
>


Attached files FormTest.zip (4.7 KB)Â

[ignacio]

Crhis,
METHOD New( oParent ) CLASS TFormPanel
Super:New( oParent )
::CreateForm()
::nLeft := 0
::nTop := 0
::OnInitialize()
RETURN Self
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>
> I had to rem the select() calls to get it to compile.
>
> Nothing is displayed on my panel using similar vode to you.
>
> If you can spare the time my test program is attached.
>
> Thanks for all your help.
>
> Chris
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Chris,
>>
>> That's it. Just use TFormFolder as a template for any other alike class
>> you
>> may need.
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Hi,
>>>
>>> Was interested in how you do the example in DBFData6 ... it is a form
>>> with
>>> an Explorer Bar on the left and a TFolder on the right which displays
>>> other 'forms' from other .prgs.
>>>
>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>> FrmFolder.prg ... this is the secret I think!!
>>>
>>> I am interested in ways to have the same layout main window with an
>>> area
>>> on the right to have different 'forms' visible depending on different
>>> menu
>>> options .... your sample allows this.
>>>
>>> If I did not want the 'tabs' is there any other container class like
>>> TPanel that could do the job showing a 'Form' in it ??
>>>
>>> Something like Class TFormPanel FROM XPanel ??
>>>
>>> I have a lot to learn!
>>>
>>> Regards
>>>
>>> Chris Gillard
>>>
>>>
>>>
>>>
>>
>>
>
>
>

[NoName]

Crhis,
METHOD New( oParent ) CLASS TFormPanel
Super:New( oParent )
::CreateForm()
::nLeft := 0
::nTop := 0
::OnInitialize()
RETURN Self
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>
> I had to rem the select() calls to get it to compile.
>
> Nothing is displayed on my panel using similar vode to you.
>
> If you can spare the time my test program is attached.
>
> Thanks for all your help.
>
> Chris
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Chris,
>>
>> That's it. Just use TFormFolder as a template for any other alike class
>> you
>> may need.
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Hi,
>>>
>>> Was interested in how you do the example in DBFData6 ... it is a form
>>> with
>>> an Explorer Bar on the left and a TFolder on the right which displays
>>> other 'forms' from other .prgs.
>>>
>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>> FrmFolder.prg ... this is the secret I think!!
>>>
>>> I am interested in ways to have the same layout main window with an
>>> area
>>> on the right to have different 'forms' visible depending on different
>>> menu
>>> options .... your sample allows this.
>>>
>>> If I did not want the 'tabs' is there any other container class like
>>> TPanel that could do the job showing a 'Form' in it ??
>>>
>>> Something like Class TFormPanel FROM XPanel ??
>>>
>>> I have a lot to learn!
>>>
>>> Regards
>>>
>>> Chris Gillard
>>>
>>>
>>>
>>>
>>
>>
>
>
>

[ChrisGillard]

Ignacio,
That works ... this will be an excellent technique for my applications.
Thank you very much.
Chris
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
news:4689103b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Crhis,
>
> METHOD New( oParent ) CLASS TFormPanel
>
> Super:New( oParent )
> ::CreateForm()
> ::nLeft := 0
> ::nTop := 0
> ::OnInitialize()
>
> RETURN Self
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
> news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>>
>> I had to rem the select() calls to get it to compile.
>>
>> Nothing is displayed on my panel using similar vode to you.
>>
>> If you can spare the time my test program is attached.
>>
>> Thanks for all your help.
>>
>> Chris
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Chris,
>>>
>>> That's it. Just use TFormFolder as a template for any other alike class
>>> you
>>> may need.
>>>
>>> Regards,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Hi,
>>>>
>>>> Was interested in how you do the example in DBFData6 ... it is a form
>>>> with
>>>> an Explorer Bar on the left and a TFolder on the right which displays
>>>> other 'forms' from other .prgs.
>>>>
>>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>>> FrmFolder.prg ... this is the secret I think!!
>>>>
>>>> I am interested in ways to have the same layout main window with an
>>>> area
>>>> on the right to have different 'forms' visible depending on different
>>>> menu
>>>> options .... your sample allows this.
>>>>
>>>> If I did not want the 'tabs' is there any other container class like
>>>> TPanel that could do the job showing a 'Form' in it ??
>>>>
>>>> Something like Class TFormPanel FROM XPanel ??
>>>>
>>>> I have a lot to learn!
>>>>
>>>> Regards
>>>>
>>>> Chris Gillard
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>

[ChrisGillard]

Ignacio,
That works ... this will be an excellent technique for my applications.
Thank you very much.
Chris
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
news:4689103b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Crhis,
>
> METHOD New( oParent ) CLASS TFormPanel
>
> Super:New( oParent )
> ::CreateForm()
> ::nLeft := 0
> ::nTop := 0
> ::OnInitialize()
>
> RETURN Self
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
> news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>>
>> I had to rem the select() calls to get it to compile.
>>
>> Nothing is displayed on my panel using similar vode to you.
>>
>> If you can spare the time my test program is attached.
>>
>> Thanks for all your help.
>>
>> Chris
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Chris,
>>>
>>> That's it. Just use TFormFolder as a template for any other alike class
>>> you
>>> may need.
>>>
>>> Regards,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Hi,
>>>>
>>>> Was interested in how you do the example in DBFData6 ... it is a form
>>>> with
>>>> an Explorer Bar on the left and a TFolder on the right which displays
>>>> other 'forms' from other .prgs.
>>>>
>>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>>> FrmFolder.prg ... this is the secret I think!!
>>>>
>>>> I am interested in ways to have the same layout main window with an
>>>> area
>>>> on the right to have different 'forms' visible depending on different
>>>> menu
>>>> options .... your sample allows this.
>>>>
>>>> If I did not want the 'tabs' is there any other container class like
>>>> TPanel that could do the job showing a 'Form' in it ??
>>>>
>>>> Something like Class TFormPanel FROM XPanel ??
>>>>
>>>> I have a lot to learn!
>>>>
>>>> Regards
>>>>
>>>> Chris Gillard
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>

[ChrisGillard]

Ignacio,
Last question please .... if I want to 'clear' the panel of my added
TFormPanel, so I could assign a different TFormPanel
I am trying the following with no visible effect ...
METHOD Button3Click( oSender ) CLASS TForm1
// ::oPanel1:aControls := {} //
crude
::oPanel1:RemoveControl( ::MyFormPanel ) // preferred ??
Logdisplay( len( ::oPanel1:aControls) ) // says
'zero'
::oPanel1:Refresh() //
does nothing .... TFormPanel still showing
// ::oPanel1:Redraw()
// does nothing .... TFormPanel still showing
// ::oPanel1:update()
// does nothing .... TFormPanel still showing
::MyFormPanel := NIL // good
housekeeping
RETURN Nil
Hopefully the last question on this topic.
Chris
"Chris Gillard" <chris@bluesquare.co.uk> wrote in message
news:4689122a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> That works ... this will be an excellent technique for my applications.
>
> Thank you very much.
>
> Chris
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
> news:4689103b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Crhis,
>>
>> METHOD New( oParent ) CLASS TFormPanel
>>
>> Super:New( oParent )
>> ::CreateForm()
>> ::nLeft := 0
>> ::nTop := 0
>> ::OnInitialize()
>>
>> RETURN Self
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>> news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
>>> Ignacio,
>>>
>>> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>>>
>>> I had to rem the select() calls to get it to compile.
>>>
>>> Nothing is displayed on my panel using similar vode to you.
>>>
>>> If you can spare the time my test program is attached.
>>>
>>> Thanks for all your help.
>>>
>>> Chris
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>>> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Chris,
>>>>
>>>> That's it. Just use TFormFolder as a template for any other alike class
>>>> you
>>>> may need.
>>>>
>>>> Regards,
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>>
>>>>
>>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Hi,
>>>>>
>>>>> Was interested in how you do the example in DBFData6 ... it is a form
>>>>> with
>>>>> an Explorer Bar on the left and a TFolder on the right which displays
>>>>> other 'forms' from other .prgs.
>>>>>
>>>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>>>> FrmFolder.prg ... this is the secret I think!!
>>>>>
>>>>> I am interested in ways to have the same layout main window with an
>>>>> area
>>>>> on the right to have different 'forms' visible depending on different
>>>>> menu
>>>>> options .... your sample allows this.
>>>>>
>>>>> If I did not want the 'tabs' is there any other container class like
>>>>> TPanel that could do the job showing a 'Form' in it ??
>>>>>
>>>>> Something like Class TFormPanel FROM XPanel ??
>>>>>
>>>>> I have a lot to learn!
>>>>>
>>>>> Regards
>>>>>
>>>>> Chris Gillard
>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>

[ChrisGillard]

Ignacio,
Last question please .... if I want to 'clear' the panel of my added
TFormPanel, so I could assign a different TFormPanel
I am trying the following with no visible effect ...
METHOD Button3Click( oSender ) CLASS TForm1
// ::oPanel1:aControls := {} //
crude
::oPanel1:RemoveControl( ::MyFormPanel ) // preferred ??
Logdisplay( len( ::oPanel1:aControls) ) // says
'zero'
::oPanel1:Refresh() //
does nothing .... TFormPanel still showing
// ::oPanel1:Redraw()
// does nothing .... TFormPanel still showing
// ::oPanel1:update()
// does nothing .... TFormPanel still showing
::MyFormPanel := NIL // good
housekeeping
RETURN Nil
Hopefully the last question on this topic.
Chris
"Chris Gillard" <chris@bluesquare.co.uk> wrote in message
news:4689122a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> That works ... this will be an excellent technique for my applications.
>
> Thank you very much.
>
> Chris
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
> news:4689103b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Crhis,
>>
>> METHOD New( oParent ) CLASS TFormPanel
>>
>> Super:New( oParent )
>> ::CreateForm()
>> ::nLeft := 0
>> ::nTop := 0
>> ::OnInitialize()
>>
>> RETURN Self
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>> news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
>>> Ignacio,
>>>
>>> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>>>
>>> I had to rem the select() calls to get it to compile.
>>>
>>> Nothing is displayed on my panel using similar vode to you.
>>>
>>> If you can spare the time my test program is attached.
>>>
>>> Thanks for all your help.
>>>
>>> Chris
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>>> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Chris,
>>>>
>>>> That's it. Just use TFormFolder as a template for any other alike class
>>>> you
>>>> may need.
>>>>
>>>> Regards,
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>>
>>>>
>>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Hi,
>>>>>
>>>>> Was interested in how you do the example in DBFData6 ... it is a form
>>>>> with
>>>>> an Explorer Bar on the left and a TFolder on the right which displays
>>>>> other 'forms' from other .prgs.
>>>>>
>>>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>>>> FrmFolder.prg ... this is the secret I think!!
>>>>>
>>>>> I am interested in ways to have the same layout main window with an
>>>>> area
>>>>> on the right to have different 'forms' visible depending on different
>>>>> menu
>>>>> options .... your sample allows this.
>>>>>
>>>>> If I did not want the 'tabs' is there any other container class like
>>>>> TPanel that could do the job showing a 'Form' in it ??
>>>>>
>>>>> Something like Class TFormPanel FROM XPanel ??
>>>>>
>>>>> I have a lot to learn!
>>>>>
>>>>> Regards
>>>>>
>>>>> Chris Gillard
>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>

[ignacio]

Chris,
oAddedPanel:End()
Regards,
"Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
news:468962a9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> Last question please .... if I want to 'clear' the panel of my added
> TFormPanel, so I could assign a different TFormPanel
>
> I am trying the following with no visible effect ...
>
> METHOD Button3Click( oSender ) CLASS TForm1
> // ::oPanel1:aControls := {} //
> crude
> ::oPanel1:RemoveControl( ::MyFormPanel ) // preferred ??
> Logdisplay( len( ::oPanel1:aControls) ) // says
> 'zero'
> ::oPanel1:Refresh()
> // does nothing .... TFormPanel still showing
> // ::oPanel1:Redraw() // does nothing .... TFormPanel still showing
> // ::oPanel1:update() // does nothing .... TFormPanel still showing
> ::MyFormPanel := NIL //
> good housekeeping
> RETURN Nil
>
> Hopefully the last question on this topic.
>
> Chris
>
> "Chris Gillard" <chris@bluesquare.co.uk> wrote in message
> news:4689122a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> That works ... this will be an excellent technique for my applications.
>>
>> Thank you very much.
>>
>> Chris
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>> news:4689103b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Crhis,
>>>
>>> METHOD New( oParent ) CLASS TFormPanel
>>>
>>> Super:New( oParent )
>>> ::CreateForm()
>>> ::nLeft := 0
>>> ::nTop := 0
>>> ::OnInitialize()
>>>
>>> RETURN Self
>>>
>>> Regards,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>> news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
>>>> Ignacio,
>>>>
>>>> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>>>>
>>>> I had to rem the select() calls to get it to compile.
>>>>
>>>> Nothing is displayed on my panel using similar vode to you.
>>>>
>>>> If you can spare the time my test program is attached.
>>>>
>>>> Thanks for all your help.
>>>>
>>>> Chris
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>>>> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Chris,
>>>>>
>>>>> That's it. Just use TFormFolder as a template for any other alike
>>>>> class you
>>>>> may need.
>>>>>
>>>>> Regards,
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>> http://www.xailer.com
>>>>>
>>>>>
>>>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>>>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>>> Hi,
>>>>>>
>>>>>> Was interested in how you do the example in DBFData6 ... it is a form
>>>>>> with
>>>>>> an Explorer Bar on the left and a TFolder on the right which displays
>>>>>> other 'forms' from other .prgs.
>>>>>>
>>>>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>>>>> FrmFolder.prg ... this is the secret I think!!
>>>>>>
>>>>>> I am interested in ways to have the same layout main window with an
>>>>>> area
>>>>>> on the right to have different 'forms' visible depending on different
>>>>>> menu
>>>>>> options .... your sample allows this.
>>>>>>
>>>>>> If I did not want the 'tabs' is there any other container class like
>>>>>> TPanel that could do the job showing a 'Form' in it ??
>>>>>>
>>>>>> Something like Class TFormPanel FROM XPanel ??
>>>>>>
>>>>>> I have a lot to learn!
>>>>>>
>>>>>> Regards
>>>>>>
>>>>>> Chris Gillard
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>

[NoName]

Chris,
oAddedPanel:End()
Regards,
"Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
news:468962a9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> Last question please .... if I want to 'clear' the panel of my added
> TFormPanel, so I could assign a different TFormPanel
>
> I am trying the following with no visible effect ...
>
> METHOD Button3Click( oSender ) CLASS TForm1
> // ::oPanel1:aControls := {} //
> crude
> ::oPanel1:RemoveControl( ::MyFormPanel ) // preferred ??
> Logdisplay( len( ::oPanel1:aControls) ) // says
> 'zero'
> ::oPanel1:Refresh()
> // does nothing .... TFormPanel still showing
> // ::oPanel1:Redraw() // does nothing .... TFormPanel still showing
> // ::oPanel1:update() // does nothing .... TFormPanel still showing
> ::MyFormPanel := NIL //
> good housekeeping
> RETURN Nil
>
> Hopefully the last question on this topic.
>
> Chris
>
> "Chris Gillard" <chris@bluesquare.co.uk> wrote in message
> news:4689122a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> That works ... this will be an excellent technique for my applications.
>>
>> Thank you very much.
>>
>> Chris
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>> news:4689103b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Crhis,
>>>
>>> METHOD New( oParent ) CLASS TFormPanel
>>>
>>> Super:New( oParent )
>>> ::CreateForm()
>>> ::nLeft := 0
>>> ::nTop := 0
>>> ::OnInitialize()
>>>
>>> RETURN Self
>>>
>>> Regards,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>> news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
>>>> Ignacio,
>>>>
>>>> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>>>>
>>>> I had to rem the select() calls to get it to compile.
>>>>
>>>> Nothing is displayed on my panel using similar vode to you.
>>>>
>>>> If you can spare the time my test program is attached.
>>>>
>>>> Thanks for all your help.
>>>>
>>>> Chris
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>>>> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Chris,
>>>>>
>>>>> That's it. Just use TFormFolder as a template for any other alike
>>>>> class you
>>>>> may need.
>>>>>
>>>>> Regards,
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>> http://www.xailer.com
>>>>>
>>>>>
>>>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>>>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>>> Hi,
>>>>>>
>>>>>> Was interested in how you do the example in DBFData6 ... it is a form
>>>>>> with
>>>>>> an Explorer Bar on the left and a TFolder on the right which displays
>>>>>> other 'forms' from other .prgs.
>>>>>>
>>>>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>>>>> FrmFolder.prg ... this is the secret I think!!
>>>>>>
>>>>>> I am interested in ways to have the same layout main window with an
>>>>>> area
>>>>>> on the right to have different 'forms' visible depending on different
>>>>>> menu
>>>>>> options .... your sample allows this.
>>>>>>
>>>>>> If I did not want the 'tabs' is there any other container class like
>>>>>> TPanel that could do the job showing a 'Form' in it ??
>>>>>>
>>>>>> Something like Class TFormPanel FROM XPanel ??
>>>>>>
>>>>>> I have a lot to learn!
>>>>>>
>>>>>> Regards
>>>>>>
>>>>>> Chris Gillard
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>

[ChrisGillard]

Ignacio,
It works ... many thanks.
Chris
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
news:[email=4689eba6@ozsrv2.ozlan.local...]4689eba6@ozsrv2.ozlan.local...[/email]
> Chris,
>
> oAddedPanel:End()
>
> Regards,
>
> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
> news:468962a9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> Last question please .... if I want to 'clear' the panel of my added
>> TFormPanel, so I could assign a different TFormPanel
>>
>> I am trying the following with no visible effect ...
>>
>> METHOD Button3Click( oSender ) CLASS TForm1
>> // ::oPanel1:aControls := {} //
>> crude
>> ::oPanel1:RemoveControl( ::MyFormPanel ) // preferred ??
>> Logdisplay( len( ::oPanel1:aControls) ) // says
>> 'zero'
>> ::oPanel1:Refresh() // does nothing .... TFormPanel still showing
>> // ::oPanel1:Redraw() // does nothing .... TFormPanel still showing
>> // ::oPanel1:update() // does nothing .... TFormPanel still showing
>> ::MyFormPanel := NIL //
>> good housekeeping
>> RETURN Nil
>>
>> Hopefully the last question on this topic.
>>
>> Chris
>>
>> "Chris Gillard" <chris@bluesquare.co.uk> wrote in message
>> news:4689122a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Ignacio,
>>>
>>> That works ... this will be an excellent technique for my applications.
>>>
>>> Thank you very much.
>>>
>>> Chris
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>>> news:4689103b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Crhis,
>>>>
>>>> METHOD New( oParent ) CLASS TFormPanel
>>>>
>>>> Super:New( oParent )
>>>> ::CreateForm()
>>>> ::nLeft := 0
>>>> ::nTop := 0
>>>> ::OnInitialize()
>>>>
>>>> RETURN Self
>>>>
>>>> Regards,
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>>
>>>>
>>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>>> news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
>>>>> Ignacio,
>>>>>
>>>>> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>>>>>
>>>>> I had to rem the select() calls to get it to compile.
>>>>>
>>>>> Nothing is displayed on my panel using similar vode to you.
>>>>>
>>>>> If you can spare the time my test program is attached.
>>>>>
>>>>> Thanks for all your help.
>>>>>
>>>>> Chris
>>>>>
>>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>>>>> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>>> Chris,
>>>>>>
>>>>>> That's it. Just use TFormFolder as a template for any other alike
>>>>>> class you
>>>>>> may need.
>>>>>>
>>>>>> Regards,
>>>>>>
>>>>>> --
>>>>>> Ignacio Ortiz de Zúñiga
>>>>>> http://www.xailer.com
>>>>>>
>>>>>>
>>>>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>>>>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>>>> Hi,
>>>>>>>
>>>>>>> Was interested in how you do the example in DBFData6 ... it is a
>>>>>>> form with
>>>>>>> an Explorer Bar on the left and a TFolder on the right which
>>>>>>> displays
>>>>>>> other 'forms' from other .prgs.
>>>>>>>
>>>>>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>>>>>> FrmFolder.prg ... this is the secret I think!!
>>>>>>>
>>>>>>> I am interested in ways to have the same layout main window with an
>>>>>>> area
>>>>>>> on the right to have different 'forms' visible depending on
>>>>>>> different menu
>>>>>>> options .... your sample allows this.
>>>>>>>
>>>>>>> If I did not want the 'tabs' is there any other container class like
>>>>>>> TPanel that could do the job showing a 'Form' in it ??
>>>>>>>
>>>>>>> Something like Class TFormPanel FROM XPanel ??
>>>>>>>
>>>>>>> I have a lot to learn!
>>>>>>>
>>>>>>> Regards
>>>>>>>
>>>>>>> Chris Gillard
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>

[ChrisGillard]

Ignacio,
It works ... many thanks.
Chris
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
news:[email=4689eba6@ozsrv2.ozlan.local...]4689eba6@ozsrv2.ozlan.local...[/email]
> Chris,
>
> oAddedPanel:End()
>
> Regards,
>
> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
> news:468962a9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> Last question please .... if I want to 'clear' the panel of my added
>> TFormPanel, so I could assign a different TFormPanel
>>
>> I am trying the following with no visible effect ...
>>
>> METHOD Button3Click( oSender ) CLASS TForm1
>> // ::oPanel1:aControls := {} //
>> crude
>> ::oPanel1:RemoveControl( ::MyFormPanel ) // preferred ??
>> Logdisplay( len( ::oPanel1:aControls) ) // says
>> 'zero'
>> ::oPanel1:Refresh() // does nothing .... TFormPanel still showing
>> // ::oPanel1:Redraw() // does nothing .... TFormPanel still showing
>> // ::oPanel1:update() // does nothing .... TFormPanel still showing
>> ::MyFormPanel := NIL //
>> good housekeeping
>> RETURN Nil
>>
>> Hopefully the last question on this topic.
>>
>> Chris
>>
>> "Chris Gillard" <chris@bluesquare.co.uk> wrote in message
>> news:4689122a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Ignacio,
>>>
>>> That works ... this will be an excellent technique for my applications.
>>>
>>> Thank you very much.
>>>
>>> Chris
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>>> news:4689103b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Crhis,
>>>>
>>>> METHOD New( oParent ) CLASS TFormPanel
>>>>
>>>> Super:New( oParent )
>>>> ::CreateForm()
>>>> ::nLeft := 0
>>>> ::nTop := 0
>>>> ::OnInitialize()
>>>>
>>>> RETURN Self
>>>>
>>>> Regards,
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>>
>>>>
>>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>>> news:[email=46890a96@ozsrv2.ozlan.local...]46890a96@ozsrv2.ozlan.local...[/email]
>>>>> Ignacio,
>>>>>
>>>>> I did a Class TFormPanel FROM XPanel based on your TFormFolder.
>>>>>
>>>>> I had to rem the select() calls to get it to compile.
>>>>>
>>>>> Nothing is displayed on my panel using similar vode to you.
>>>>>
>>>>> If you can spare the time my test program is attached.
>>>>>
>>>>> Thanks for all your help.
>>>>>
>>>>> Chris
>>>>>
>>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
>>>>> news:4689071e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>>> Chris,
>>>>>>
>>>>>> That's it. Just use TFormFolder as a template for any other alike
>>>>>> class you
>>>>>> may need.
>>>>>>
>>>>>> Regards,
>>>>>>
>>>>>> --
>>>>>> Ignacio Ortiz de Zúñiga
>>>>>> http://www.xailer.com
>>>>>>
>>>>>>
>>>>>> "Chris Gillard" <chris@bluesquare.co.uk> escribió en el mensaje
>>>>>> news:4688f9f2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>>>> Hi,
>>>>>>>
>>>>>>> Was interested in how you do the example in DBFData6 ... it is a
>>>>>>> form with
>>>>>>> an Explorer Bar on the left and a TFolder on the right which
>>>>>>> displays
>>>>>>> other 'forms' from other .prgs.
>>>>>>>
>>>>>>> Then I noticed the hand coded CLASS TFormFolder FROM XFolderPage in
>>>>>>> FrmFolder.prg ... this is the secret I think!!
>>>>>>>
>>>>>>> I am interested in ways to have the same layout main window with an
>>>>>>> area
>>>>>>> on the right to have different 'forms' visible depending on
>>>>>>> different menu
>>>>>>> options .... your sample allows this.
>>>>>>>
>>>>>>> If I did not want the 'tabs' is there any other container class like
>>>>>>> TPanel that could do the job showing a 'Form' in it ??
>>>>>>>
>>>>>>> Something like Class TFormPanel FROM XPanel ??
>>>>>>>
>>>>>>> I have a lot to learn!
>>>>>>>
>>>>>>> Regards
>>>>>>>
>>>>>>> Chris Gillard
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>