* Создаём "главную" форму "Form_1", Show отображаем форму (модальная, не модальная)   
  WITH CREATEOBJECT("Form_1")
  	.Show(1)  
  ENDWITH 

* "Свойства" формы
  DEFINE CLASS Form_1 AS form  
    AutoCenter = .T.       && отображать форму по центру
  	Height     =  200      && высота
  	Width      =  500      && ширина 
  	Caption    = "Form_1"  && Название "Окна"
    BackColor  = RGB(245,243,222) && Цвет фона

* В процедуре лоад создадим и заполним временную табл (курсор) для наглядности
  PROCEDURE load
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~* 
 CREATE CURSOR Table_1( Och N(2), mod_ D(8), sv C(20))
   DO WHILE RECCOUNT('Table_1')<10
   INSERT INTO Table_1 VALUES (1, DATE()+10, 'Запись')
   ENDDO
   GO TOP
   ENDPROC
   
* в процедуре инит закидываем остальные элементы
  PROCEDURE Init
 *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*  Текст над таблицей
  This.AddObject('Label_1','Label')
  WITH This.Label_1
     .BackStyle= 0   && Прозрачный
     .Visible  = .T. && .Т. видно, .F. скрыт
     .TOP      = 10  && отступ с верху
     .LEFT     = 10  && отступ с лева
     .Height   = 20  && высота
     .Width    = 120 && ширына
     .Alignment = 2  && выровнять по центру
     .Caption  = 'Простой грид' && и текст
  ENDWITH
 
 
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*  сама таблица
 This.AddObject('Grid_1','Grid')
 WITH This.Grid_1
     .Height = 160        && высота
     .Width  = 490        && ширины
   * .AllowCellSelection = .F.  && если форма только для просмотра можно включить это свойство
     .Top          =  35  && отступ с верху
     .Left         =  5   && отступ с лева
     .Visible      = .T.  && 
     .DeleteMark   = .F.  && я это ставлю в F
     .RecordMark   = .F.  && и это
     .ReadOnly     = .T.  && только чтение
     .ScrollBars   =  2   && скрол только с права
     .ColumnCount  =  3   && 3 Столбика
     .HeaderHeight =  20  && высота названий столбиков (можно их скрыть поставив 0)
     .HighlightBackColor = RGB(232,243,255)    && разукрашка
     .HighlightForeColor = RGB(0,0,0)          && разукрашка
     .HighlightStyle = 2                       && разукрашка
     .SelectedItemBackColor = RGB(225,225,255) && разукрашка
     .SelectedItemForeColor = RGB(0,0,0)       && разукрашка
     .RecordSource = 'Table_1' && источник танных (название табл)
     .column1.ControlSource = 'Table_1.Och'  && источники для колонок 1
     .column2.ControlSource = 'Table_1.mod_' &&                       2
     .column3.ControlSource = 'Table_1.sv'   &&                       3
     .column1.width = 150     && ширина колонки 1
     .column2.width = 150     && ширина колонки 2
     .column3.width = 160     && ширина колонки 3
     .column1.Alignment = 6   && выровнять по центру колонку 1
     .column2.Alignment = 6   && выровнять по центру колонку 2
     .column3.Alignment = 6   && выровнять по центру колонку 3
     .column1.Resizable = .F. && запретить изменять ширину
     .column2.Resizable = .F. && запретить изменять ширину
     .column3.Resizable = .F. && запретить изменять ширину
     .column1.Header1.Caption = 'Номер'  && Наименование колонки
     .column2.Header1.Caption = 'Дата'   && Наименование колонки
     .column3.Header1.Caption = 'Текст'  && Наименование колонки
 ENDWITH
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
 ENDPROC
 ENDDEFINE