Module cCJGridColumnRowIndicator.pkg

     1Use cCJGridColumn.pkg
     2
     3{ HelpTopic=cCJGridColumnRowIndicator }
     4Class cCJGridColumnRowIndicator is a cCJGridColumn
     5    
     6    Procedure Construct_Object
     7        Forward Send Construct_Object
     8    
     9        { Visibility=Private }
    10        Property Integer piImage 0
    11        
    12        Set psCaption to ""
    13        Set piWidth to 20
    14        Set pbResizable to False
    15        Set pbEditable to False
    16        Set pbFocusable to False
    17        Set pbAllowDrag to False
    18        Set psTooltip to "Row Indicator"
    19//        Set Color to (RGB(217,222,243))   //JVH
    20    End_Procedure
    21    
    22    { NoDoc=True }
    23    Procedure OnCreateColumn
    24        Integer iImage
    25        Delegate Get AddImage "GridColumnRowIndicator.bmp" 0 to iImage
    26        Set piImage to iImage
    27    End_Procedure
    28            
    29    { NoDoc=True }
    30    Procedure OnSetDisplayMetrics Handle hoGridItemMetrics Integer iRow String ByRef sValue
    31        Integer iImage iFocusedRow
    32        Handle hoDataSource
    33        
    34        Get phoDataSource to hoDataSource
    35        Get SelectedRow of hoDataSource to iFocusedRow
    36        Move -1 to iImage
    37        If (iRow = iFocusedRow) Begin
    38            Get piImage to iImage
    39            Set ComItemIcon of hoGridItemMetrics to iImage
    40        End
    41    End_Procedure
    42
    43End_Class