Pintar un Grid ....me falta algo
 

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....

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

Saludos

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

El asterisco es la intersección de conjuntos y- ahora que lo veo - está mal :p, 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

Gracias por la explicación.

Saludos

bien muchas gracias ....
 

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

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

Juer roman, estas "al día" :D

saludos

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