Well, I am not sure there is much I can say beyond what is in demo 3.
First thing to say is that you do not select rows; only cells. This is the same for any grid. What you presumably mean is that you want to highlight the entire row whenever the user selects a cell etc.
In any example, the #egrid_FormatCell handler is responsible for coloring cells. So, for example, in the following #egrid_FormatCell handler, we arrange for every cell within the selected row to have a background color of blue.
Code: Select all
Case #egrid_FormatCell
If *cellinfo\row<>-1 And *cellinfo\row=egrid_SelectedRow(1)
*cellinfo\backcolour = #Blue
EndIf
Now this is fine, except it will not work properly as yet. If you were to add this to an example, you will find that only the selected cell was getting a background of blue and then some cells would remain with a blue background after you move the focus!
This is because the #egrid_FormatCell message is sent for individual cells only. We need a way of getting this message to fire for all cells within the selected row whenever the user selects a new cell etc.
For this, simply add the following command at the end of your #egrid_SelectCell handler to force a repaint :
Code: Select all
InvalidateRect_(GadgetID(egrid),0,0)
You will need a similar line at the end of your #egrid_LosingFocus handler.
Here's a very simple example taking the above points into account :
Code: Select all
IncludePath "..\Source\"
XIncludeFile "EsGRID.pbi"
IncludePath ""
Procedure.l MyCellCallBack(egrid, uMsg, *cellinfo.egridCellInfo)
Protected result
Select uMsg
Case #egrid_SelectCell
result=#True
InvalidateRect_(GadgetID(egrid),0,0)
Case #egrid_LosingFocus
result=#True
InvalidateRect_(GadgetID(egrid),0,0)
Case #egrid_FormatCell
If *cellinfo\row<>-1 And *cellinfo\row=egrid_SelectedRow(egrid)
*cellinfo\backcolour = $A5F4F9
EndIf
Default
result = #True ;This accounts for all messages we have decided not to process.
EndSelect
ProcedureReturn result
EndProcedure
If OpenWindow(0,0,0,640,300,"EsGRID demo.",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_Maximize|#PB_Window_ScreenCentered)
egrid_CreateGrid(1, WindowWidth(0)/4, WindowHeight(0)/8, WindowWidth(0)/2, WindowHeight(0)/2,26,#egrid_GridLines|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_CreateCellCallback(1, @MyCellCallBack())
egrid_SetHeaderHeight(1, 42)
egrid_setOption(1, #egrid_SelectionBorderColour, #Black)
egrid_setOption(1, #egrid_SelectionBorderWidth, 2)
For b=0 To 4 ;5 columns.
egrid_AddColumn(1,b,"Col " + Str(b),60)
Next
egrid_AddRows(1,-1, 100)
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
EndIf
You may want to remove the focus rectangle from the selected cell by switching :
Code: Select all
egrid_setOption(1, #egrid_SelectionBorderWidth, 2)
for
Code: Select all
egrid_setOption(1, #egrid_SelectionBorderWidth, 0)
Demo 7 in particular colors alternate rows and arranges for the selected row to be colored differently etc.