//***************************************************************************
//*
//* Class:        cRDSDbView
//* Package Name: cRDSDbView.pkg
//*
//***************************************************************************

Use DFAllEnt.pkg

Class cRDSDbView is a DbView

    // Construct_Object: Object constructor.
    Procedure Construct_object
        Forward Send Construct_Object

        // Define new Properties: Property {Type} {pxName} {initial_value}

        // Create child objects

        // Set property values:

    End_Procedure

    Procedure End_Construct_Object
      Integer liCapBarHeight liSize
      Send Load_Environment
      Forward Send End_Construct_Object
      Move (GetSystemMetrics(SM_CYSMCAPTION)) to liCapBarHeight
      Get Size to liSize
      Set Size to (hi(liSize)+liCapBarHeight-16) (low(liSize))
    End_Procedure // End_Construct_Object

    // Create and augment procedure and functions

End_Class // cRDSDbView