Custom Control "dead" (VFP / Visual FoxPro)

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi, 

I know VFP is not actively supported but I find XTreeeeeeme CommandBars being a great product and I would really like to make use of it. I am comming from ActiveBar - so I have managed a LOT of problems already ;-)

So currently I am playing with Your Commandbars (tried DockingPanes this morning and had about the same problem) and try to show a form with VFP-Controls as a custom-Control. I found the "Dynamic Popup Sample" that does something like that. 

so in the InitCommandsPopup i now have:

...
if CommandBar.Title = "FORM"
    CommandBar.Controls.DeleteAll

    do form MyForm.scx noShow
    m.MyForm.TitleBar    = 0
    m.MyForm.BorderStyle = 0

    loControl        = CommandBar.Controls.Add(7, 0, "Form")
    loControl.Handle = m.MyForm.hWnd

    m.MyForm.Visible = .T. 

endif

Works wonderful, but the form is dead, i.e. I can't make use of the controls. With the DockingPane it sometimes worked, sometimes not

Maybe You have an Idea or a trick.

Another Idea I used with ActiveBar was to cancel the actual population of the popup and position a form instead of a popup. But I found no way to cancel the appearance from within InitCommandsPopup() 
(ActiveBar did have a BandOpen()-Event that was fired when clicking on the down-button. this event also provided a Cancel-parameter. 

Thanks in advance

Regards from Berlin

F.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
DDTech Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 10 October 2007 Status: Offline Points: 23	Post Options Post Reply Quote DDTech Report Post Thanks(0) Quote Reply Topic: Custom Control "dead" (VFP / Visual FoxPro) Posted: 10 October 2007 at 1:38pm
	Hi, I know VFP is not actively supported but I find XTreeeeeeme CommandBars being a great product and I would really like to make use of it. I am comming from ActiveBar - so I have managed a LOT of problems already ;-) So currently I am playing with Your Commandbars (tried DockingPanes this morning and had about the same problem) and try to show a form with VFP-Controls as a custom-Control. I found the "Dynamic Popup Sample" that does something like that. so in the InitCommandsPopup i now have: ... if CommandBar.Title = "FORM" CommandBar.Controls.DeleteAll do form MyForm.scx noShow m.MyForm.TitleBar = 0 m.MyForm.BorderStyle = 0 loControl = CommandBar.Controls.Add(7, 0, "Form") loControl.Handle = m.MyForm.hWnd m.MyForm.Visible = .T. endif Works wonderful, but the form is dead, i.e. I can't make use of the controls. With the DockingPane it sometimes worked, sometimes not Maybe You have an Idea or a trick. Another Idea I used with ActiveBar was to cancel the actual population of the popup and position a form instead of a popup. But I found no way to cancel the appearance from within InitCommandsPopup() (ActiveBar did have a BandOpen()-Event that was fired when clicking on the down-button. this event also provided a Cancel-parameter. Thanks in advance Regards from Berlin F.