Pintar un Grid ....me falta algo

[JULIOCTORRESG]

tengo un dbgrid y en el segun el valor de campo cambio el color de la fuente
a rojo o negro segun sea el caso

Código Delphi [-]
   Canvas.FillRect(Rect);

     // en base al campo decido si centrar o no el  texto
     largo:=length(Column.Field.AsString)*2;    //aca defino el largo del campo para luego restarlo y asi centrar el texto
 
        if (column.Field.fieldname='Status')and (column.field.value ='Vencido') then Canvas.Font.Color:=clred
                                                                          else canvas.font.Color:=clblack;

       if ((column.Field.fieldname='Status')or(column.Field.fieldname='Dias')) then Canvas.TextOut((Rect.Left + 20)-largo, Rect.Top + 2, Column.Field.AsString)
                                                                                else Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Column.Field.AsString);

el problema es que cuando selecciono una fila el color es el predeterminado por windows en mi caso azul oscuro y con letra negra no se ve nada como coloco la fila seleccionada en letra blanca o vistosa....

gracias....

[roman]

Prueba poner algo como

Código Delphi [-]
if State*[gdSelected, gdFocused] = [] then
  Canvas.Font.Color := clWhite;

Es decir, con esa condición detectas si la celda en ese momento está seleccionada, y de ser así, pone el color blanco en lugar del rojo.

// Saludos

[vtdeleon]

Saludos

No enteindo el asterisco allí, escapa de mis conocimientos. Podrías explicarmelo? román

[roman]

El asterisco es la intersección de conjuntos y- ahora que lo veo - está mal , debe ser:

Código Delphi [-]
if State*[gdSelected, gdFocused] <> [] then

es decir, si la intersección de State con [gdSelected, gdFocused] no es vacía, o sea, si hay algo en la intersección de State y [gdSelected, gdFocused].

Es una forma de abreviar:

Código Delphi [-]
if (gdSelected in State) or (gdFocused in State) then

// Saludos

[vtdeleon]

Gracias por la explicación.

Saludos

[JULIOCTORRESG]

ahora se presentan cosas nuevas pero con esas si puedo solo ....al menos eso creo.....de nuevo gracias ...

[[Lepe]]

¿y cuando salió el asterisco? eso ha salido nuevo hace 1 día según veo.

Juer roman, estas "al día"

saludos

[roman]

Ja, ja. Pues simplemente un dia lo necesité y busqué set operators en la ayuda de Delphi. Yo imagino que existen desde Wirth, pues el tipo set ya estaba entonces, creo.

// Saludos