Conocer existencia de un caracter

[chingolo]

Fijate esto, debes usar un Rich edit:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var 
  sCad1,scad2:String;
  nTab:Integer;
begin 
  nTab := 10;
  sCad1 := 'Código: ';
  scad2 := 'Descripción: ';
 
  with Re1 do 
  begin 
    clear;
    SelAttributes.Color := clBlue;
    Lines[0] := sCad1 + StringOfChar(' ',nTab) + sCad2;
 
    SelStart := Length(sCad1);
    SelLength := nTab + Length(sCad2);
    SelAttributes.Color := clRed;
    SelStart := nTab + Length(sCad1+scad2);
 
    SelAttributes.Color := clBlack;
    Lines.Add('Otras líneas...');
  end; 
end;

[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