Conocer existencia de un caracter

[Casimiro Noteví]

Chingolo, recuerda que puedes poner las etiquetas para presentar texto y código formateado, aquí las tienes http://www.clubdelphi.com/foros/misc.php?do=bbcode

[jafera]

Hola a todos de nuevo.

Otra duda que tengo, con todo esto ya funcionando y pintandome el texto del edit en rojo y en negrita, necesito saber si se puede hacer lo siguiente:

En un JvGrid, si se cumple la condicion anterior

Código Delphi [-]
if Pos('*', TablaCAMPO.Text ) > 0 then

se puede hacer que el formato de la celda del grid que cumple la condicion cambie el formato del texto?

He hecho pruebas y solo consigo cambiar el formato de la fila entera o de la columna entera.

Gracias

Josep

[ecfisa]

Hola jafera.

No trabajo con ese componente e ignoro que eventos posee. Pero te pongo el código para hacerlo con un TDBGrid,
quizá funcione igual con el JvGrid, es cosa de que pruebes...

Código Delphi [-]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  with DBGrid1.Canvas.Font do
    if (Pos('*', TablaCampo.Text) > 0) and (Field = TablaCampo) then
      Style:= Style + [fsBold];
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

Pd: Recordá que tenés más posibilidades de encontrar respuestas si abrís un nuevo tema con tu problema.

Saludos.

[jafera]

Gracias a todos, lo solucioné así:

Código Delphi [-]
 
if DataCol = 2 then
begin
       if Pos('X', F_ModulDades.Codis_CCODI.Text ) > 0 then
       begin
              TDrawGrid(sender).Canvas.Font.Color  := clRed;
              TDrawGrid(Sender).Canvas.Brush.Color:=clYellow;
              TdbGrid(sender).DefaultDrawColumnCell(Rect, Datacol, Column, State);
       end;
end;

Voya probar tu metodo ecfisa, a ver si rula

Saludos

Josep