🚀 go-pugleaf

Hi,

I'm looking for a procedure called EnabledObject and SetFocus for VDB 7
wich was also available 
for VDB 5.5 which I used a lot. I thought it was created by some of the
Team-B members....but
i'm not sure...

This is the code for Vdb5 for EnableObject and SetFocus....so i someone
remembers something, let me know:

   Procedure EnableObjects(lEnabled)
   *--------------------------------  
   if form.DataControlsAreEnabled = lEnabled
      RETURN
   else
      form.DataControlsAreEnabled = lEnabled
   endif
   local oControl
   oControl = form.first
   do
      if oControl.Classname $
"ENTRYFIELD|EDITOR|RADIOBUTTON|SPINBOX|CHECKBOX|BROWS|COMBOBOX|LISTBOX"
         oControl.Enabled = lEnabled
      endif
      oControl = oControl.Before
   until oControl.Name ==form.first.name
   

   Procedure FirstFocus
   *-------------------
   private oControl
   oControl = form.first
   do
      if type("oControl.SetFocus") == "FB" .or.
type("oControl.SetFocus") == "CB" .and. oControl.PageNo = Form.PageNo
         oControl.SetFocus()
         RETURN
      endif
      oControl = oControl.Before
   until oControl.Name == form.first.name
 

----------------------------------------
Greetings Peter