1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Class MyDbGrid is a dbGrid

   Procedure Construct_Object
      Forward Send Construct_Object
      Set peDisabledColor to cl3dLight
      Set peDisabledTextColor to clNavy
      Set pbUseDisabledColor to TRUE
  End_Procedure // Construct_Object

End_Class