Grid - FrozenColumns Property

Member of Grid (PRIM_GRID)

Data Type - Integer

Details

The FrozenColumns property defines the number of columns to lock in place such that they are not affected by horizontal scrolling.

Example

In this example, the first 3 columns are frozen.

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(792) Clientheight(394) Componentversion(2) Top(227) Left(222) Layoutmanager(#TableLayout1) 
  
        Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1)
        Define_Com Class(#PRIM_TBLO.Item) Name(#GridItem1) Column(#Column1) Manage(#Grid) Parent(#TableLayout1) Row(#Row1) 

        Define_Com Class(#PRIM_GRID) Name(#Grid) Captionnoblanklines(True) Columnscroll(False) Componentversion(1) Displayposition(1) Height(394) Left(0) Parent(#COM_OWNER) Showselection(True) Showselectionhilight(False) Showsortarrow(True) Tabposition(1) Top(0) Width(792) Columnbuttonheight(25) Rowheight(28) Columnbuttonpress(True) Columnellipses(End) Frozencolumns(3)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn1) Displayposition(1) Parent(#Grid) Source(#EMPNO) Width(10) Widthtype(Fixed)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn2) Displayposition(2) Parent(#Grid) Source(#SURNAME) Width(18) Widthtype(Fixed)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn3) Displayposition(3) Parent(#Grid) Source(#GIVENAME) Widthtype(Fixed)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn4) Displayposition(4) Parent(#Grid) Source(#ADDRESS1)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn5) Displayposition(5) Parent(#Grid) Source(#ADDRESS2)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn6) Displayposition(6) Parent(#Grid) Source(#ADDRESS3)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn7) Displayposition(7) Parent(#Grid) Source(#POSTCODE)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn8) Displayposition(8) Parent(#Grid) Source(#PHONEHME)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn9) Displayposition(9) Parent(#Grid) Source(#PHONEBUS)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn10) Displayposition(10) Parent(#Grid) Source(#STARTDTER)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn11) Displayposition(11) Parent(#Grid) Source(#TERMDATER)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn12) Displayposition(12) Parent(#Grid) Source(#DEPTMENT)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn13) Displayposition(13) Parent(#Grid) Source(#SECTION)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn14) Displayposition(14) Parent(#Grid) Source(#SALARY) 

        Evtroutine Handling(#Com_Owner.CreateInstance) 
  
           Select Fields(#Grid) From_File(pslmst)
              Add_Entry To_List(#Grid)
           Endselect 
  
        Endroutine 
  
     End_Com 

  

See also

All Component Classes

Technical Reference