Ayuda para escribir Símbolos Lógicos!!!

[[Lepe]]

Si coso dice que funciona, funcionará, pero teóricamente diría que no:

Código Delphi [-]
RichEdit1.Seltext:=RichEdit1.Seltext+'$';
 /*Este simbolo al escribirlo en "Symbol" te escribe el símbolo "Existe" */
RichEdit1.SelAttributes.Name:='Symbol';
RichEdit1.Sellength := 0;
RichEdit1.SelAttributes.Name:='Courier New';
RichEdit1.SetFocus;

Digo que teóricamente me suena mejor así:
- selecciono el texto
- cambio el tipo de letra
- deselecciono el texto
- restauro el tipo de letra.

Quizás después del SelLength habría que poner selStart := length(richedit1.lines.text) para que se desplace hasta el final el cursor... no sé.

Saludos

[[coso]]

juas gracias pero...no no, me funcionaba su codigo en Windows XP, ni idea de en Windows Vista

[Shysu]

Muchas gracias a los dos por contestar, voy a probar lo que me habeís dicho a ver si me funciona. Os diré algo, vale??

Un saludo
Su

[Shysu]

Hola de nuevo, casi he conseguido que me funcione con el código que tenía. Bueno en realidad también debía funcionar antes, pero ahora me he dado cuenta de que la primera vez que se crea y activa el formulario (es el tercer formulario de la aplicación) cuando pincho en el botón del "Existe", me escribe el símbolo "$". Pero si lo selecciono de manera que se queda marcado en negro y vuelvo a dar al botón, pues me cambia el que había escrito y me escribe uno nuevo pero ya correctamente en el tipo de letra Symbol.
Si cierro esa ventana, vuelvo al formulario anterior y la vuelvo a abrir, ya si que me funciona bien desde el principio. Es como si el RichEdit ya se quedase bien. Probablemente necesite poner algo en el FormActivate o en el FormCreate. Ahora mismo tengo puesto lo siguiente:

procedure TForm3.FormActivate(Sender: TObject);
begin
RichEdit1.SetFocus;
RichEdit1.Text:='';
RichEdit2.Text:='';
RichEdit1.SelAttributes.Name:='Symbol';
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
RichEdit1.Text:='';
RichEdit2.Text:='';
RichEdit1.SelAttributes.Name:='Symbol';
end;

¿Creeis que está bien así? ¿Y por qué no cambia bien el tipo de letra la primera vez que se crea el formulario?

Gracias
Su

[[coso]]

Hola, poniendo algo como

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
        RichEdit1.SelLength := 2;
end;

se soluciona. Creo que el problema viene de RichEdit1.SelAttributes.InitFormat(var format : TCharFormat). Me da que se llama a esta funcion la primera vez que se pega una seleccion, por lo que entonces tu primer $ no tendria aun los atributos correspondientes. Ni idea, solo se que con eso lo resuelves. Saludos.

[Shysu]

Madre mia por fin me funciona, muchas gracias coso, con esto último que me has dicho me funciona perfectamente. He estado haciendo unas cuantas pruebas y de momento no me ha fallado ninguna. Voy a ver si continuo y si me surge alguna duda os consultaré de nuevo.

Muchas gracias
Su