Foros Club Delphi - irme a una línea en un richEdit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - irme a una línea en un richEdit (https://www.clubdelphi.com/foros/showthread.php?t=27642)

irme a una línea en un richEdit

Buenas!!

Tengo un problemilla, resulta que quiero seleccionar una línea dentro de un richedit y eso me sale bien(me voy con el cursor a esa linea y tal), pero me gustaría que cuando se seleccionará me saliera en pantalla, es decir, si estoy en la linea 4 y selecciono la 16 se me sigue viendo la linea cuatro en pantalla como si el cursor siguiera estando ahí.
¿Cómo puedo solucionar esto?

El código que yo tengo es:

miRichEdit.SelStart:= Perform(EM_LINEINDEX, lin-1, 0);

miRichEdit.SelLength:=Length(miRichEdit.Lines.Strings[lin-1]);

miRichEdit.setFocus; <- yo creia qu con esto solucionaria lo de irme a esa linea en la pantalla, pero no es así :'(

Gracias

Cita:

Empezado por aranel

Buenas!!

El código que yo tengo es:

miRichEdit.SelStart:= Perform(EM_LINEINDEX, lin-1, 0);

miRichEdit.SelLength:=Length(miRichEdit.Lines.Strings[lin-1]);

miRichEdit.setFocus; <- yo creia qu con esto solucionaria lo de irme a esa linea en la pantalla, pero no es así :'(

Gracias

El caso es que si que va a la línea, pero NO SE MUESTRA... Yo lo que hago es, después de pasar ese código, decirle que me pinte el "Caret" del cursor en esa posición:

Código:

miRichEdit.SelStart:= Perform(EM_LINEINDEX, lin-1, 0);

miRichEdit.Perform(EM_SCROLLCARET, 0, Lin - 1); // 0=columna

miRichEdit.setFocus;

Espero que te sirva
Un saludo