Hi Mark,
I use Your MenuLib.vcx. Thanks for this class.It is very usefull.Here is my problem. Before I move from VFP 6.0 to VFP 8.0 there is no problem at all,but now when my application starts in older machines with Win95 instaled some of the menupads are not visible (only seprarators are). On machines with Win98 and greater everything is fine. Here is my code:
_SCREEN.LockScreen = .t.
_SCREEN.AddObject("Menu","Menu")
WITH _SCREEN.Menu
.AutoIcon = .t.
.AddObject("Sallary","MenuPad")
.AddObject("Kadri" ,"MenuPad")
.AddObject("Otpusk" ,"MenuPad")
.AddObject("Honorar","MenuPad")
.AddObject("PayDoc" ,"MenuPad")
.AddObject("Nom" ,"MenuPad")
.AddObject("Admin" ,"MenuPad")
.AddObject("Windows","MenuPad")
.AddObject("Help" ,"MenuPad")
ENDWITH
WITH _SCREEN.Menu.Sallary
.Caption = GetLangVal("Ðàáîòíà çàïëàòà", 4, eLang)
.AddObject("DataEnter","MenuPad")
.AddObject("Spacer1","MenuPad")
.AddObject("Vedomost","MenuPad")
.AddObject("Spacer2","MenuPad")
.AddObject("Spravki","MenuPad")
.AddObject("Spravki","MenuPad")
.AddObject("Spacer3","MenuPad")
.AddObject("Servis","MenuPad")
.AddObject("Spacer4","MenuPad")
.AddObject("Account","MenuPad")
.AddObject("Spacer99","MenuPad")
.AddObject("Exit","MenuPad")
WITH .DataEnter
.Caption = "Data enter"
.AddObject("Personal","MenuPad")
.AddObject("Spacer1","MenuPad")
.AddObject("Speed","MenuPad")
.AddObject("MasOper","MenuPad")
.AddObject("Spacer2","MenuPad")
.AddObject("Deponent","MenuPad")
.Personal.Caption = "Personel"
.Personal.Command = '=oApp.DoForm("Vhod",0)'
.Personal.Visible = .t.
.Personal.SkipWhen = "SkipMenu[1,1]"
.Spacer1.Caption = "\-"
.Spacer1.Visible = .t.
.Speed.Caption = "Speed"
.Speed.Command = '=oApp.DoForm("Speed")'
.Speed.Visible = .t.
.Speed.SkipWhen = "(SkipMenu[1,2] .OR. fl_oldper)"
.MasOper.Caption = "Mass operation"
.MasOper.Command = '=oApp.DoForm("MasOper")'
.MasOper.SkipWhen = "(SkipMenu[1,3] .OR. fl_oldper)"
.MasOper.Visible = .t.
.Spacer2.Caption = "\-"
.Spacer2.Visible = .t.
...
ENDWITH
.Spacer1.Caption = "\-"
.Spacer1.Visible = .t.
.Spacer2.Caption = "\-"
.Spacer2.Visible = .t.
.Spacer3.Caption = "\-"
.Spacer3.Visible = .t.
.Spacer4.Caption = "\-"
.Spacer4.Visible = .t.
ENDWITH
...
_SCREEN.LockScreen = .f.
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.