Poner en negrita dentro de un memo o richtext algunas palabras específicas

[ixMike]

Bueno, con RichEdit puedes, claro, con TMemo no (al menos de forma sencilla).

En RichEdit, tan sólo tienes que seleccionar el texto por código (con SelStart y SelLength) y cambiar la propiedad SelAttributes (de tipo TFont).

Y creo que ya está



Salu2

[[enecumene]]

Vale Miguel y ¿cómo relaciono las palabras del RichText con los que están en el archivo .INI de palabras?.

Saludos.

[ixMike]

¿Buscarlas, dices?

Pues con la función Pos o AnsiPos... pero esa sólo devuelve la posición de la primera... supongo que necesitarás de un bucle, para recorrer todas las palabras del RichEdit y compararlas con las que hay en Palabras.INI.


Salu2

[[enecumene]]

Vale pues, déjame entonces hacer par de pruebas con las funciones que me propones, más tarde te comento como me va, Gracias.

Saludos.

[reinier]

Empezado por ixMike

¿Buscarlas, dices?

Pues con la función Pos o AnsiPos... pero esa sólo devuelve la posición de la primera... supongo que necesitarás de un bucle, para recorrer todas las palabras del RichEdit y compararlas con las que hay en Palabras.INI.


Salu2

ixMike soy reinier estaba leyendo uno de estos temas y me interese por el que se trata aqui.Tengo una duda paracida a la de enecumene concuerdo contigo en el procedimiento para el cual selecciona la palabra y la pone en negrita ,pero para lo que yo quiero hacer que viene siendo algo parecido a un compilador si a la palabra reservada se le agraga o elimina un caracter esta debe quitarsele el atributo que se le puso(estilo de fuente negrita) y no se de que manera hacer esto si puedes escribeme aqui mismo tu solucion. Gracias

[santus]

enecumene: Yo lo hice una vez para procesar archivos RTF: Te lo dejo asi te das una idea. Despues lo adaptas a tu proyecto :

Código Delphi [-]
procedure Tform1.ReccorrerTexto;
var
  i : Integer;
begin
  for i := 0 to reDocumento.Lines.Count -1 do begin
    with reDocumento do begin
          SelStart := Perform(EM_LINEINDEX, i, 0) ;    // Se situa en la linea de reDocumento.
          //Perform(EM_SCROLLCARET, 0, 0);             // Mueve el scroll.
          SetFocus;
          SelLength := Length(Lines.Strings[i]);
          atributosGenerales  := DefAttributes;
          procesarLinea(i,Lines.Strings[i]);  //reDocumento.Lines.String[i] es toda la linea seleccionada.
    end;
  end;

end;


procedure procesarLinea(Position:Integer; Text: String);
var
  textoParcial : string;
  posInicial : integer;
begin
  if (Trim(Text) <> '') then begin
    posInicial := 0;
    for i := 1 to Length(Text) + 1 do begin
      if (Text[i] = ' ') or (i = Length(Text) + 1 ) then begin
        reDocumento.SelStart  := reDocumento.Perform(EM_LINEINDEX, Position, 0)+posInicial ; //se posiciona sobre la palabra en la línea.
        reDocumento.SelLength := Length(textoParcial);
        // Aquí tienes que buscar la palabra en la lista:
        // supongamos BuscarEnLista(textoParcial) ... textoParcial Contiene el texto seleccionado.
        posInicial := i;
        textoParcial := '';
      end else if not ( Text[i] = #0) then textoParcial := textoParcial + Text[i];
    end;
  end;
end;

Fijate que por ahí me comí algo en el código porque le saqué un monton de cosas mas que había en el medio que no viene a este caso. Intenta probarlo y después nos cuentas como te fue ...


reinier: No creo que esto te sirva... me imagino que tendrías que elaborar algo con el keypress.... igual no se me ocurre qué. Esto no te servira porque te mueve el cursor en donde estas escribiendo. Si te sirve si lo quieres procesar todo de una.

Saludos a todos.