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
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>