🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: borland.public.vdbase.forms
2 messages
2 total messages Started by P.G.M. van Mierlo Sun, 04 Apr 1999 00:00
EnableObjects and SetFocus
#58
Author: P.G.M. van Mierlo
Date: Sun, 04 Apr 1999 00:00
45 lines
1728 bytes
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
Re: EnableObjects and SetFocus
#59
Author: Ken Mayer [dBVIPS]
Date: Sun, 04 Apr 1999 00:00
21 lines
985 bytes
"P.G.M. van Mierlo" <mierl029@wxs.nl> wrote:

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

SetFocus is a method of controls on a form. EnableObject isn't really
necessary with VdB7, but if you want it, check the dUFLP library at my
website.

Ken
---
Ken Mayer [dBVIPS]

GO HERE! NOW!

news.dbase2000.com

These newsgroups are going away fast!
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads