//****************************************************************************
// $Module type: CLASS
// $Module name: cReadOnlyGrid
// $Author     : Vincent Oorsprong
// Created     : 05/30/99 @ 3:15
//
// Description
//    Items added to this grid will be readonly
//
// $Rev History
//    05/30/99 VO Module header created
//****************************************************************************
Class cReadOnlyGrid Is A Grid
   //****************************************************************************
   // $Module type: PROCEDURE
   // $Module name: Construct_Object
   // $Author     : Vincent Oorsprong
   // Created     : 06/01/99 @ 1:03
   //
   // Description
   //    Creation of the shellopen file floater object
   //
   // $Rev History
   //    10/12/99 VO OEM_TRANSLATE_STATE is set to FALSE from now
   //    06/01/99 VO Module header created
   //****************************************************************************
   Procedure Construct_Object
      Forward Send Construct_Object

      Set GridLine_Mode To Grid_Visible_Both
      Set Select_Mode To No_Select
      Set Resize_Column_State To False
      Set Search_Mode To No_Search

      Set Oem_Translate_State To False
      Set Current_Item_Color To clYellow
      Set Highlight_Row_Color To clLime
      Set Highlight_Row_State To True
   End_Procedure // Construct_Object

   //****************************************************************************
   // $Module type: PROCEDURE
   // $Module name: Add_Item
   // $Author     : Vincent Oorsprong
   // Created     : 05/30/99 @ 3:16
   //
   // Description
   //    This method was augmented to make the item readonly
   //
   // $Rev History
   //    05/30/99 VO Module header created
   //****************************************************************************
   Procedure Add_Item Integer iMsg String sValue
      Forward Send Add_Item iMsg sValue

      Set Entry_State Item (Item_Count (Self) - 1) To False
   End_Procedure // Add_Item
End_Class // cReadOnlyGrid