Page 1 of 2
DYNAMICBACKCOLOR Code Block
Posted: Mon Aug 02, 2021 2:14 pm
by Red2
Hi All,
(Google Spanish):
En un
control BROWSE, el siguiente bloque de código muestra
dinámicamente el color de fondo de mi fila.
Éxito en un BROWSE.
Sin embargo, cambiar el control a un
control GRID quita el cambio de color de fondo de la fila.
In a
BROWSE control the following code block
dynamically displays my row's background color.
Success in a BROWSE.
However, changing the control to a
GRID control removes the row's background color change. My code block:
Code: Select all
bkRowColor := { || iif( ( ( By_State->LLR == "Y" ) ;
.OR. ( By_State->TAA == "Y" ) ;
.OR. ( By_State->OJG == "Y" ) ) ;
, iif( empty( By_State->MergeState ), {255,255,255}, {190,255,170} ), {255,150,150} ) }
Something is different in a
GRID control and I do not understand what.
A SIMPLE TEST EXAMPLE: C:\HMG.3.4.4\Samples\Controls\Grid\GRID_29\Demo.PRG
1) Make some changes to table TEST.DBF to vary the row's backcolor:
Some
Test->Last values to empty and
Some
Test->Married values to .F.
2) Make two additions to Demo.PRG
Add:
Code: Select all
public bkRowColor := { || iif( ! empty( Test->Last ) ;
, iif( Test->Married == .T., {255,255,255}, {190,255,170} ), {255,150,150} ) }
// Add this as the last line in the GRID's declaration:
DYNAMICBACKCOLOR { bkRowColor, bkRowColor, bkRowColor, bkRowColor, bkRowColor, bkRowColor }
I know am I missing or doing something wrong but what? Your guidance would be greatly appreciated.
Thank you,
Red2
Re: DYNAMICBACKCOLOR Code Block
Posted: Mon Aug 02, 2021 4:11 pm
by franco
In my grid columnwhen I have to separate each with brackets. May be your problem.
Maybe this.
public bkRowColor := { {|| iif( ! empty( Test->Last ) ;
, { || iif( Test->Married == .T. , 255,255,255, 190,255,170 ) } , 255,150,150 )} }
This works COLUMNWHEN { { || .F. },{ || iIf(HMG_GetLastVirtualKeyDown() == 13, .T., .F.)}, { || .T. },{ || .T. },{ || .F. }}
Does not work COLUMNWHEN { || .F. , iIf(HMG_GetLastVirtualKeyDown() == 13, .T., .F.), .T. , .T. , .F. }
Re: DYNAMICBACKCOLOR Code Block
Posted: Mon Aug 02, 2021 5:02 pm
by Red2
Thank you Franco for your suggestion.
My trying to add the additional "{ }" bracketing and "||" in your working
COLUMNWHEN to my
DYNAMICBACKCOLOR code block has been confusing to me.
It is becoming quite complicated syntactically. My attempts to apply your pattern to:
Code: Select all
bkRowColor := { || iif( ! empty( Test->Last ) ;
, iif( Test->Married == .T., {255,255,255}, {190,255,170} ), {255,150,150} ) }
have all yielded syntax errors.
Can you possibly show me the
correct syntax with the above? I cannot seem to get it right.
Thanks again for your kind help.
Red2
Re: DYNAMICBACKCOLOR Code Block
Posted: Tue Aug 03, 2021 6:33 am
by serge_girard
Red2,
I do it this way:
Code: Select all
....
@ 10,10 GRID Grid_BRS_SIS ;
WIDTH 1100 ;
HEIGHT 500 ;
HEADERS {'Id' ,'x1', 'x2' };
WIDTHS {50, 50 , 150 } ;
JUSTIFY {GRID_JTFY_LEFT, GRID_JTFY_LEFT, GRID_JTFY_LEFT };
FONT "Arial" SIZE 09 ;
ITEMS aBRS_SIS ;
DYNAMICBACKCOLOR { { || BC_Grid_BRS_SIS()}, {||BC_Grid_BRS_SIS()}, {||BC_Grid_BRS_SIS()} }
....
STATIC FUNCTION BC_Grid_BRS_SIS
/*****************************/
LOCAL a
LOCAL aColors := {{ HONEYDEW, HONEYDEW, HONEYDEW } } // EQUAL TO NUMBER OF COLUMNS == 3
LOCAL aItem := Form_BROS_SIS.Grid_BRS_SIS.Item ( This.CellRowIndex )
DO CASE
CASE ALLTRIM(aItem [3]) == 'P'
FOR a = 1 TO 3
aColors [1] [a] := ORANGE
NEXT a
OTHERWISE
IF ALLTRIM(aItem [3]) == 'V'
FOR a = 1 TO 3
aColors [1] [a] := MISTYROSE
NEXT a
ELSE
FOR a = 1 TO 3
aColors [1] [a] := LIGHTBLUE
NEXT a
ENDIF
ENDCASE
RETURN aColors [1] [ This.CellColIndex ]
Serge
Re: DYNAMICBACKCOLOR Code Block
Posted: Tue Aug 03, 2021 12:31 pm
by Claudio Ricardo
Hi... I solve with this Forum help to:
In .FMG: // i need white background in first col
Code: Select all
DYNAMICBACKCOLOR { {255,255,255} , bColor , bColor , bColor , bColor , bColor , bColor , bColor , bColor, bColor , bColor , bColor , bColor , bColor , bColor , bColor , bColor, bColor , bColor , bColor , bColor , bColor , bColor , bColor , bColor, bColor }
In .prg:
Code: Select all
PRIVATE aColor := { 255,255,255 } // Don't use LOCAL
PRIVATE bColor := {}
bColor := { || If (This.CellColIndex == 2 , aColor := Propiedades_Grid_Pro_Color () , aColor ) }
// Load Window... and etc...
Below:
Code: Select all
Function Propiedades_Grid_Pro_Color
LOCAL aColores := {}
Do Case
Case This.CellValue == "D"
aColores := { 215,255,200 }
Case This.CellValue == "A"
aColores := { 215,215,215 }
Case This.CellValue == "V"
aColores := { 150,150,150 }
Case This.CellValue == "P"
aColores := { 255,180,180 }
OtherWise
aColores := { 255,255,255 }
EndCase
Return aColores
- Screenshot_20210803_092823.png (13.31 KiB) Viewed 1130 times
Re: DYNAMICBACKCOLOR Code Block
Posted: Tue Aug 03, 2021 3:40 pm
by franco
Sorry Red2, I think I read your post incorrect.
If your set color works Just do like Serge suggests.
DYNAMICBACKCOLOR { { || bkRowColor}, { || bkRowColor}, { || bkRowColor}, { || bkRowColor}, { || bkRowColor}, { || bkRowColor }}
I think I would handle this different.
Code: Select all
public bkRowColor := {255,150,150}
if ! empty() Test->Last
if Test->Married == .T.
bkRowColor := {255,255,255}
else
bkRowColor := {190,255,170}
endif
endif
// Add this as the last line in the GRID's declaration:
DYNAMICBACKCOLOR { { || bkRowColor}, { || bkRowColor}, { || bkRowColor}, { || bkRowColor}, { || bkRowColor}, { || bkRowColor }}
Franco
Re: DYNAMICBACKCOLOR Code Block
Posted: Tue Aug 03, 2021 5:13 pm
by Red2
(Google Spanish)
¡Muchas gracias a todos por sus amables sugerencias de control GRID! Noto que tanto el código de Serge como el de Claudio NO hacen referencia directa a los campos de la tabla, es decir, Test->Married.
En su lugar, los campos de la tabla se referencian indirectamente a través de la celda de row and column cell.
Pregunta fundamental:
¿La propiedad DYNAMICBACKCOLOR de GRID no funciona correctamente cuando se utilizan referencias de campo de tabla directas (Test->Married)?
Por lo tanto, ¿es esta fundamentalmente la razón por la que mi bloque de código original funciona perfectamente en un control BROWSE pero no puede funcionar en un control GRID?
================
Thank you all so much for your kind GRID control suggestions! I notice that both Serge's and Claudio's code does NOT directly reference the table fields, i.e. Test->Married.
Instead table fields there are indirectly referenced via the row and column cell.
Fundamental Question:
Does the GRID's DYNAMICBACKCOLOR property not work correctly when using direct table field references (such as Test->Married)?
Thus, is this fundamentally why my original code block works perfectly in a BROWSE control but cannot work in a GRID control?
Thanks again!
Red2
Re: DYNAMICBACKCOLOR Code Block
Posted: Tue Aug 03, 2021 6:01 pm
by Claudio Ricardo
Exacto... lo que me funcionaba bién en Browse no lo hacia en Grid, pero con la gran ayuda de este Foro lo solucioné.
Mi humilde opinion es que para DBF directa, es mejor Browse y para arrays o SQL Grid.
Exactly ... what worked well for me in Browse it did not work in Grid, but with the great help of this Forum I solved it.
IMHO is that, for direct DBF Browse is better, and for arrays or SQL Grid.
Re: DYNAMICBACKCOLOR Code Block
Posted: Tue Aug 03, 2021 6:23 pm
by Red2
Gracias Claudio, esta es una información crítica.
Estoy cambiando a un control GRID solo para poder realizar algunas mejoras en la pantalla.
¡Muchas gracias!
===================
Thank you Claudio, this is critical information.
I am changing to a GRID control only so I can make some display improvements.
Thanks so much!
Red2
Re: DYNAMICBACKCOLOR Code Block
Posted: Tue Aug 03, 2021 11:44 pm
by srvet_claudio
Los problemas que aparecen con frecuencia en el control grid con base de datos generalmente se deben a que se pasa por alto que el grid trabaja con registros logicos (grid row) y no con registros fisicos.
Ver el changelog:
The RECNO property of the Grid control not changes the current physical record number of the DBF file, only convert between the row of grid and the recno of the DBF.
- Get Grid.RECNO --> convert Logical record ( grid row ) to Physical record ( DBF recno )
- Set Grid.RECNO := XXX --> convert the Physical record XXX ( recno ) to Logical record ( grid row )
- Enhanced