color in cell and color in a grid line
Moderator: Rathinagiri
Re: color in cell and color in a grid line
If you put the following when adding
DoMethod( 'Form_Grid', "Grid_1", "Refresh", .T. )
DoMethod( 'Form_Grid', "Grid_1", "Refresh", .T. )
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.
Re: color in cell and color in a grid line
Jairpinho, I hope I have understood what you ned
i used this
aColCan:={ ||if( From_1.Grid_TELROL.Cell(This.CellRowIndex,4) == '+', AQUAMARIN, MISTYROSE ) }
@ 10,160 GRID Grid_TELROL ;
WIDTH 600;
HEIGHT 760 ;
HEADERS {'Days', "Inputtime", 'SubTotal', '*', 'Seconds'};
WIDTHS { 50, 165, 165, 40, 180 };
JUSTIFY { GRID_JTFY_RIGHT, GRID_JTFY_LEFT , GRID_JTFY_LEFT, GRID_JTFY_RIGHT, GRID_JTFY_RIGHT } ;
FONT "Arial" SIZE 24;
DYNAMICBACKCOLOR { aColCan, aColCan, aColCan, aColCan ,aColCan }
i used this
aColCan:={ ||if( From_1.Grid_TELROL.Cell(This.CellRowIndex,4) == '+', AQUAMARIN, MISTYROSE ) }
@ 10,160 GRID Grid_TELROL ;
WIDTH 600;
HEIGHT 760 ;
HEADERS {'Days', "Inputtime", 'SubTotal', '*', 'Seconds'};
WIDTHS { 50, 165, 165, 40, 180 };
JUSTIFY { GRID_JTFY_RIGHT, GRID_JTFY_LEFT , GRID_JTFY_LEFT, GRID_JTFY_RIGHT, GRID_JTFY_RIGHT } ;
FONT "Arial" SIZE 24;
DYNAMICBACKCOLOR { aColCan, aColCan, aColCan, aColCan ,aColCan }
Re: color in cell and color in a grid line
I created a project, I need to do it this way with the push of a button
Re: color in cell and color in a grid line
Yo sigo sin entender...
-----------------------------
I still dont get it...
-----------------------------------------------------------
Maybe you wanted to say "Color" instead of "Value" ???
De la siguiente forma, los elementos tienen el mismo color que todos los demas del grid.
-----------------------------------------------------------------------------------------------------------------------------
In the following way, the elements have the same color as all the other elements of the grid.
-----------------------------
I still dont get it...
Quizá quisiste decir "Color" en vez de "Valor" ???I can not delete the grid items just add new items,
but the already added items will change the value
of just one cell and when that happens I need to change the cell's heart.
------------------------------------------------------------------------------------------------------------------------------------------
No puedo eliminar los elementos de la grilla simplemente agregue
nuevos elementos, pero los elementos ya agregados cambiarán el
valor de una sola celda y cuando eso suceda necesito cambiar el corazón de la celda.
-----------------------------------------------------------
Maybe you wanted to say "Color" instead of "Value" ???
De la siguiente forma, los elementos tienen el mismo color que todos los demas del grid.
-----------------------------------------------------------------------------------------------------------------------------
In the following way, the elements have the same color as all the other elements of the grid.
Code: Select all
#include "hmg.ch"
#define _DEMO_GRID_
#ifdef _DEMO_GRID_
declare windown form_1
Function Main
Local aRows := {}
Private bColor:= { || if( This.CellRowIndex/2 == int(This.CellRowIndex/2), BLUE , RED ) } // {} // ******************************
Private fColor:= {}
//IF HMG SUPPORT UNICODE RUN
// IF HMG SUPPORT UNICODE STOP
// MsgDebug demo
//---------------------------------------------------------------------------------------
n:= 10
aData := { "Number", 38, "aRGB", YELLOW, "Hello" }
// cMsg := MsgDebug ( TIME(), aData, {|| NIL}, .F., EVAL({|| DATE ()}), n == 3 )
aRows := ARRAY (20)
aRows [1] := {'Simpson', 'Homer', '555-5555', 1, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [2] := {'Mulder', 'Fox', '324-6432', 2, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [3] := {'Smart', 'Max', '432-5892', 3, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [4] := {'Grillo', 'Pepe', '894-2332', 4, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [5] := {'Kirk', 'James', '346-9873', 5, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [6] := {'Barriga', 'Carlos', '394-9654', 6, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [7] := {'Flanders', 'Ned', '435-3211', 7, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [8] := {'Smith', 'John', '123-1234', 8, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [9] := {'Pedemonti', 'Flavio', '000-0000', 9, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [10] := {'Gomez', 'Juan', '583-4832', 10, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [11] := {'Fernandez', 'Raul', '321-4332', 11, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [12] := {'Borges', 'Javier', '326-9430', 12, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [13] := {'Alvarez', 'Alberto', '543-7898', 13, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [14] := {'Gonzalez', 'Ambo', '437-8473', 14, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [15] := {'Batistuta', 'Gol', '485-2843', 15, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [16] := {'Vinazzi', 'Amigo', '394-5983', 16, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [17] := {'Pedemonti', 'Flavio', '534-7984', 17, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [18] := {'Samarbide', 'Armando', '854-7873', 18, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [19] := {'Pradon', 'Alejandra', '???-????', 19, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
aRows [20] := {'Reyes', 'Monica', '432-5836', 20, HMG_TimeToTime( TIME(), _TIMESHORT12H )}
//bColor := { || if ( This.CellRowIndex/2 == int(This.CellRowIndex/2) , {128,128,128} , {192,192,192} ) }
//fColor := { || if ( This.CellRowIndex/2 == int(This.CellRowIndex/2) , BLUE , RED ) }
// CellNavigationColor (_SELECTEDCELL_FORECOLOR, BROWN)
//CellNavigationColor (_SELECTEDCELL_BACKCOLOR, GREEN)
// CellNavigationColor (_SELECTEDCELL_DISPLAYCOLOR, .T.)
// CellNavigationColor (_SELECTEDROW_FORECOLOR, YELLOW)
// CellNavigationColor (_SELECTEDROW_BACKCOLOR, BROWN)
// CellNavigationColor (_SELECTEDROW_DISPLAYCOLOR, .T.)
/*
Form_1.Grid_1.ColumnHEADER (1) := "--- Last Name ---"
Form_1.Grid_1.ColumnWIDTH (1) := 100
Form_1.Grid_1.ColumnJUSTIFY (1) := GRID_JTFY_CENTER
Form_1.Grid_1.ColumnCONTROL (1) := {'TEXTBOX','CHARACTER','@!'}
Form_1.Grid_1.ColumnDYNAMICFORECOLOR (1) := {|| BLACK}
Form_1.Grid_1.ColumnDYNAMICBACKCOLOR (1) := {|| PURPLE}
Form_1.Grid_1.ColumnVALID (1) := {|| NIL}
Form_1.Grid_1.ColumnWHEN (1) := {|| NIL}
Form_1.Grid_1.ColumnONHEADCLICK (1) := {|| MsgInfo (Form_1.Grid_1.ColumnHEADER(1))}
Form_1.Grid_1.ColumnONHEADCLICK (3) := {|| Form_1.Grid_1.ColumnWIDTH (3) := GRID_WIDTH_AUTOSIZEHEADER}
Form_1.Grid_1.ColumnONHEADCLICK (5) := {|| Form_1.Grid_1.ColumnWIDTH (5) := GRID_WIDTH_AUTOSIZE}
*/
Load Window Fomr_1
FOR i=1 TO 20
Fomr_1.Grid_1.AddItem ( {'lolo','JUAN','333-9999', 21, HMG_TimeToTime(TIME(),_TIMESHORT12H)} ) // Added this item in the END of the GRID
Fomr_1.Grid_1.AddItemEx ( {'Lolo','LOLO','333-9999', 22, HMG_TimeToTime(TIME(),_TIMESHORT12H)}, NIL ) // Added this item in the END of the GRID
Fomr_1.Grid_1.AddItemEx ( {'hmg', 'JUAN','333-9999', 23, HMG_TimeToTime(TIME(),_TIMESHORT12H)}, 3 ) // Added this item in Row 3
NEXT
Fomr_1.Center
Fomr_1.Activate
Return
function cor()
bColor := { || if( This.CellRowIndex/2 == int(This.CellRowIndex/2), BLUE , RED ) }
//bColor := { || RED }
//DoMethod( 'Fomr_1', "Grid_1", "Refresh", .T. )
return
#endif
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.
Re: color in cell and color in a grid line
andyglezl wrote: ↑Sun Jul 22, 2018 7:58 pm Yo sigo sin entender...
-----------------------------
I still dont get it...
Quizá quisiste decir "Color" en vez de "Valor" ???I can not delete the grid items just add new items,
but the already added items will change the value
of just one cell and when that happens I need to change the cell's heart.
------------------------------------------------------------------------------------------------------------------------------------------
No puedo eliminar los elementos de la grilla simplemente agregue
nuevos elementos, pero los elementos ya agregados cambiarán el
valor de una sola celda y cuando eso suceda necesito cambiar el corazón de la celda.
-----------------------------------------------------------
Maybe you wanted to say "Color" instead of "Value" ???
De la siguiente forma, los elementos tienen el mismo color que todos los demas del grid.
-----------------------------------------------------------------------------------------------------------------------------
In the following way, the elements have the same color as all the other elements of the grid.
Code: Select all
#include "hmg.ch" #define _DEMO_GRID_ #ifdef _DEMO_GRID_ declare windown form_1 Function Main Local aRows := {} Private bColor:= { || if( This.CellRowIndex/2 == int(This.CellRowIndex/2), BLUE , RED ) } // {} // ****************************** Private fColor:= {} //IF HMG SUPPORT UNICODE RUN // IF HMG SUPPORT UNICODE STOP // MsgDebug demo //--------------------------------------------------------------------------------------- n:= 10 aData := { "Number", 38, "aRGB", YELLOW, "Hello" } // cMsg := MsgDebug ( TIME(), aData, {|| NIL}, .F., EVAL({|| DATE ()}), n == 3 ) aRows := ARRAY (20) aRows [1] := {'Simpson', 'Homer', '555-5555', 1, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [2] := {'Mulder', 'Fox', '324-6432', 2, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [3] := {'Smart', 'Max', '432-5892', 3, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [4] := {'Grillo', 'Pepe', '894-2332', 4, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [5] := {'Kirk', 'James', '346-9873', 5, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [6] := {'Barriga', 'Carlos', '394-9654', 6, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [7] := {'Flanders', 'Ned', '435-3211', 7, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [8] := {'Smith', 'John', '123-1234', 8, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [9] := {'Pedemonti', 'Flavio', '000-0000', 9, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [10] := {'Gomez', 'Juan', '583-4832', 10, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [11] := {'Fernandez', 'Raul', '321-4332', 11, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [12] := {'Borges', 'Javier', '326-9430', 12, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [13] := {'Alvarez', 'Alberto', '543-7898', 13, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [14] := {'Gonzalez', 'Ambo', '437-8473', 14, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [15] := {'Batistuta', 'Gol', '485-2843', 15, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [16] := {'Vinazzi', 'Amigo', '394-5983', 16, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [17] := {'Pedemonti', 'Flavio', '534-7984', 17, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [18] := {'Samarbide', 'Armando', '854-7873', 18, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [19] := {'Pradon', 'Alejandra', '???-????', 19, HMG_TimeToTime( TIME(), _TIMESHORT12H )} aRows [20] := {'Reyes', 'Monica', '432-5836', 20, HMG_TimeToTime( TIME(), _TIMESHORT12H )} //bColor := { || if ( This.CellRowIndex/2 == int(This.CellRowIndex/2) , {128,128,128} , {192,192,192} ) } //fColor := { || if ( This.CellRowIndex/2 == int(This.CellRowIndex/2) , BLUE , RED ) } // CellNavigationColor (_SELECTEDCELL_FORECOLOR, BROWN) //CellNavigationColor (_SELECTEDCELL_BACKCOLOR, GREEN) // CellNavigationColor (_SELECTEDCELL_DISPLAYCOLOR, .T.) // CellNavigationColor (_SELECTEDROW_FORECOLOR, YELLOW) // CellNavigationColor (_SELECTEDROW_BACKCOLOR, BROWN) // CellNavigationColor (_SELECTEDROW_DISPLAYCOLOR, .T.) /* Form_1.Grid_1.ColumnHEADER (1) := "--- Last Name ---" Form_1.Grid_1.ColumnWIDTH (1) := 100 Form_1.Grid_1.ColumnJUSTIFY (1) := GRID_JTFY_CENTER Form_1.Grid_1.ColumnCONTROL (1) := {'TEXTBOX','CHARACTER','@!'} Form_1.Grid_1.ColumnDYNAMICFORECOLOR (1) := {|| BLACK} Form_1.Grid_1.ColumnDYNAMICBACKCOLOR (1) := {|| PURPLE} Form_1.Grid_1.ColumnVALID (1) := {|| NIL} Form_1.Grid_1.ColumnWHEN (1) := {|| NIL} Form_1.Grid_1.ColumnONHEADCLICK (1) := {|| MsgInfo (Form_1.Grid_1.ColumnHEADER(1))} Form_1.Grid_1.ColumnONHEADCLICK (3) := {|| Form_1.Grid_1.ColumnWIDTH (3) := GRID_WIDTH_AUTOSIZEHEADER} Form_1.Grid_1.ColumnONHEADCLICK (5) := {|| Form_1.Grid_1.ColumnWIDTH (5) := GRID_WIDTH_AUTOSIZE} */ Load Window Fomr_1 FOR i=1 TO 20 Fomr_1.Grid_1.AddItem ( {'lolo','JUAN','333-9999', 21, HMG_TimeToTime(TIME(),_TIMESHORT12H)} ) // Added this item in the END of the GRID Fomr_1.Grid_1.AddItemEx ( {'Lolo','LOLO','333-9999', 22, HMG_TimeToTime(TIME(),_TIMESHORT12H)}, NIL ) // Added this item in the END of the GRID Fomr_1.Grid_1.AddItemEx ( {'hmg', 'JUAN','333-9999', 23, HMG_TimeToTime(TIME(),_TIMESHORT12H)}, 3 ) // Added this item in Row 3 NEXT Fomr_1.Center Fomr_1.Activate Return function cor() bColor := { || if( This.CellRowIndex/2 == int(This.CellRowIndex/2), BLUE , RED ) } //bColor := { || RED } //DoMethod( 'Fomr_1', "Grid_1", "Refresh", .T. ) return #endif
Quizá quisiste decir "Color" en vez de "Valor" sim color
-----------------------------------------------------------
Maybe you wanted to say "Color" instead of "Value" yes color
Re: color in cell and color in a grid line
Quizá de esta forma te sirva...
--------------------------------------
Maybe in this way it will serve you ...
--------------------------------------
Maybe in this way it will serve you ...
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.
Re: color in cell and color in a grid line
the file does not decompress
Re: color in cell and color in a grid line
And here is my variation on the change of colors in Grid. I used my "color map" to be able to color specific cells, rows and columns regardless of their value.
I hope it will be helpful.
I hope it will be helpful.
Re: color in cell and color in a grid line
thanks edk what I need, there is another easier way to do or just like in the example, I changed the project.
Re: color in cell and color in a grid line
Hola Edward
Gracias por tu Excelente ejemplo, estoy experimentando con el,
pero tengo algunas dudas...
* Cuando al llenar una columna de algun color me queda OK, y si la borro (Nil) tambien queda OK.
pero cuando lleno con colores diferentes esa misma columna y la quiero borrar, sigue dejando los
mismos colores ??
* Lo mismo pasa cuando quiero borrar un renglon.
* Cuando quiero borrar todo el grid me queda OK con lo suçiguiente:
For i1=1 TO 8
Form_1.Grid_1.ColumnDYNAMICBACKCOLOR(i1) := WHITE
NEXT
bColorMap := {}
pero cuando es por columna o renglon, no que elementos de bColorMap borrar.
* Será posible que se pueda guardar ese Grid con los colores que tiene y volverlo a cargar otra ves ??
---------------------------------------------------------------------------------------------------------------------------------
Hello Edward
Thanks for your Excellent example, I'm experimenting with it,
but I have some doubts ...
* When filling a column of some color I have OK, and if I delete (Nil) is also OK.
but when I fill that same column with different colors and I want to erase it, it still leaves the
same colors ??
* The same happens when I want to delete a line.
* When I want to delete the entire grid, I'm OK with the following:
For i1 = 1 TO 8
Form_1.Grid_1.ColumnDYNAMICBACKCOLOR (i1): = WHITE
NEXT
bColorMap: = {}
but when it is by column or row, I do not know what elements of bColorMap to erase.
* Will it be possible to save that Grid with the colors it has and reload it again ??
Gracias por tu tiempo
---------------------------
Thanks for your time
Gracias por tu Excelente ejemplo, estoy experimentando con el,
pero tengo algunas dudas...
* Cuando al llenar una columna de algun color me queda OK, y si la borro (Nil) tambien queda OK.
pero cuando lleno con colores diferentes esa misma columna y la quiero borrar, sigue dejando los
mismos colores ??
* Lo mismo pasa cuando quiero borrar un renglon.
* Cuando quiero borrar todo el grid me queda OK con lo suçiguiente:
For i1=1 TO 8
Form_1.Grid_1.ColumnDYNAMICBACKCOLOR(i1) := WHITE
NEXT
bColorMap := {}
pero cuando es por columna o renglon, no que elementos de bColorMap borrar.
* Será posible que se pueda guardar ese Grid con los colores que tiene y volverlo a cargar otra ves ??
---------------------------------------------------------------------------------------------------------------------------------
Hello Edward
Thanks for your Excellent example, I'm experimenting with it,
but I have some doubts ...
* When filling a column of some color I have OK, and if I delete (Nil) is also OK.
but when I fill that same column with different colors and I want to erase it, it still leaves the
same colors ??
* The same happens when I want to delete a line.
* When I want to delete the entire grid, I'm OK with the following:
For i1 = 1 TO 8
Form_1.Grid_1.ColumnDYNAMICBACKCOLOR (i1): = WHITE
NEXT
bColorMap: = {}
but when it is by column or row, I do not know what elements of bColorMap to erase.
* Will it be possible to save that Grid with the colors it has and reload it again ??
Gracias por tu tiempo
---------------------------
Thanks for your time
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.