This article was brought to you by the guys from VDF-GUIdance.
For more DataFlex targeted articles see http://www.vdf-guidance.com


Autocoloring indexfields

by Peter Bosch

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.
Size: 3 KB Download
Date Created: 06/10/1999
Date Updated: 31/01/2000
Author: Peter Bosch
Company: info trans Logistik Systems GmbH


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.