VDF-GUIdance logo



  Visual DataFlex Logo
  

Shared knowledge leads to accumulated knowledge

        Printer Friendly Page


Size: 3 KB Download
Date Created: 10/06/1999
Date Updated: 01/31/2000
Author: Peter Bosch
Company: info trans Logistik Systems GmbH
Summary:
This package contains a subclass extension that automatically colors a data-aware object if it has search capabilities. This way the user will know on what field he/she can use the find keys (F7/F8/F9). In the package is also an example of how to subclass the dbform and the dbgrid class. Files for support in the IDE are also included.

Autocoloring indexfields


by Peter Bosch
This package contains a subclass extension that automatically colors a data-aware object if it has search capabilities. This way the user will know on what field he/she can use the find keys (F7/F8/F9).
Part of the package is also an example of how-to subclass the dbform and the dbgrid class.
Files for support in the IDE/Studio are also included and the package has been tested to work with VDF5 - VDF9
The screenshot above shows a revised Customer Entry View which is exactly the same as the original view as in the standard Order Entry Example .
The change between this view and the one in your example workspace is that the dbForms used are not the standard dbForms, but cWikadbForms instead.
( Note: A cWikadbForm class is the dbForm subclass which is supplied with this package )
Quite recently there has been a question on the newsgroups on how one would apply the same technique for required fields.
Below is some example code in which a required field adds a star to the label.

  Function Is_Required Returns Integer
    Integer Srvr Field# OK
    Get Server To Srvr
    If (Srvr = 0) Function_Return 0
    Get Data_Field  To Field#
    Get Field_Option of Srvr Field# DD_REQUIRED to OK
    Function_Return OK
  End_Function

  Function Required_KZ Returns String
    If (Is_Required(Self)) Function_Return "*"
    Function_Return ""
  End_Function

  Procedure Set Label String Val
     Forward Set Label To (Trim(Required_KZ(Self) * Label))
  End_Procedure

Download



Autocolor.zip

Links



Sonata Software Multimedia Presentation A nice presentation with voice over that explains more in details on how-to use this subclass in your application.