Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Hiding Seperator Bars when Surrounding Bars not
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Divers
Thread ID:
00767824
Message ID:
00769247
Vues:
21
You have to make the object visible after you create/add it? This is don'e on purpose so you can set the visible attributes prior to it being shows. Here is some code in the command window.
oX = CreateObject('toolbar')
ox.Visible=.t.
ox.AddObject('button1','commandbutton')
ox.button1.Width = 22
ox.Button1.Height = 22
ox.button1.Visible = .t.
BOb


>>Gary,
>>
>>>I added the code but nothing changed. The debugger showed the only method executed when the class is being created is the init event - show wasn't called.
>>
>>Are you adding instances of CSeparatorBar in your popup's AddChildren() method like this:
>>
>>
>>This.Add('ofilerefreshbar','filerefreshbar')
>>This.Add('oseparatorbar','Cseparatorbar')
>>This.Add('ofileprintreportsbar','fileprintreportsbar')
>>
>>
>>I'm not sure what's going on with your app, but the Show() method should be executed. You may want to try this on the sample app (it's where I did my testing) to see what's different.
>>
>>Regards,
>
>Interestingly, it doesn't work in my apps either (I just tried a few minutes ago). Show() never fires. Code looks like:
>
>
>This.Add("oFileEventLogBar", "cFileEventLogBar")
>This.Add("oSeparatorBar", "CSeparatorBar")
>This.Add("oFileKioskBar", "KioskBar")
>This.Add("oSeparatorBar", "CSeparatorBar")
>This.Add("oFileLangTransBar", "AFileLangTransBar")
>This.Add("oSeparatorBar", "CSeparatorBar")
>This.Add("oFileExitBar", "CFileExitBar")
>
>
>If someone else wasn't having the same problem I would have assumed it was just something I messed up in my hacked version of MM ;-)
>
>I'll try playing around with it some more later today.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform