I want to realize project when highlight bar in BROWSE (still used with .dbf files by me) and GRID will change color from default (it's BLUE in my windows).
It will be used with incremental search - when record with exact match is found - color changes to green, in another case - record is highlighted in RED.
first solution for grid was presented by Grigory Filatov (in STRU theme), but it doesn't work with BROWSE and it's not dynamical.
Have you any solution for this problem?
Regards, Marek
PS. Grigory code below for refresh memory
gfilatov wrote:It is possible with changing of the following internal variables:Pablo César wrote:One question: Is it possible in HMG to change color of highlighted row in grid component ?The working sample is below:* _HMG_SYSDATA [ 348 ] -> Grid Selected Row ForeColor (by cell navigation)
* _HMG_SYSDATA [ 349 ] -> Grid Selected Row BackColor (by cell navigation)
Hope that helps.Code: Select all
/* * HMG Grid Demo * (c) 2005 Roberto Lopez */ #include "hmg.ch" Function Main Local aRows [20] [3] DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 640 ; HEIGHT 400 ; TITLE 'Mixed Data Type Grid Test' ; MAIN DEFINE MAIN MENU DEFINE POPUP 'File' MENUITEM 'Set Item' ACTION SetItem() MENUITEM 'Get Item' ACTION GetItem() END POPUP END MENU aRows [1] := {113.12,date(),1,1 , .t. } aRows [2] := {123.12,date(),2,2 , .f. } aRows [3] := {133.12,date(),3,3, .t. } aRows [4] := {143.12,date(),1,4, .f. } aRows [5] := {153.12,date(),2,5, .t. } aRows [6] := {163.12,date(),3,6, .f. } aRows [7] := {173.12,date(),1,7, .t. } aRows [8] := {183.12,date(),2,8, .f. } aRows [9] := {193.12,date(),3,9, .t. } aRows [10] := {113.12,date(),1,10, .f. } aRows [11] := {123.12,date(),2,11, .t. } aRows [12] := {133.12,date(),3,12, .f. } aRows [13] := {143.12,date(),1,13, .t. } aRows [14] := {153.12,date(),2,14, .f. } aRows [15] := {163.12,date(),3,15, .t. } aRows [16] := {173.12,date(),1,16, .f. } aRows [17] := {183.12,date(),2,17, .t. } aRows [18] := {193.12,date(),3,18, .f. } aRows [19] := {113.12,date(),1,19, .t. } aRows [20] := {123.12,date(),2,20, .f. } _HMG_SYSDATA [ 348 ] := YELLOW _HMG_SYSDATA [ 349 ] := RED _HMG_SYSDATA [ 350 ] := YELLOW _HMG_SYSDATA [ 351 ] := RED @ 10,10 GRID Grid_1 ; WIDTH 620 ; HEIGHT 330 ; HEADERS {'Column 1','Column 2','Column 3','Column 4','Column 5'} ; WIDTHS {140,140,140,140,140} ; ITEMS aRows ; EDIT ON CHANGE playbeep() ; COLUMNCONTROLS { {'TEXTBOX','NUMERIC','$ 999,999.99'} , {'DATEPICKER','DROPDOWN'} , {'COMBOBOX',{'One','Two','Three'}} , { 'SPINNER' , 1 , 20 } , { 'CHECKBOX' , 'Yes' , 'No' } } ; CELLNAVIGATION END WINDOW Form_1.Grid_1.Value := { 1, 1 } CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 Return PROCEDURE SETITEM() Form_1.Grid_1.Item (2) := { 123.45 , date() , 2 , 10 , .T. } RETURN PROCEDURE GETITEM() local a a := Form_1.Grid_1.Item (2) msginfo ( str ( a [1] ) , '1' ) msginfo ( dtoc ( a [2] ) , '2' ) msginfo ( str( a [3] ) , '3' ) msginfo ( str ( a [4] ) , '4' ) msginfo ( if ( a [5] == .t. , '.t.' , '.f.' ) , '5' ) RETURN