definir linea y columna en un statusbar

[antonio peña]

a quien corresponda:

mi duda es la siguiente, tengo un richedit, y al tiempo en ke muevo el cursor dentro del mismo me gustaria poner en mi statusbar la linea y la columna en la que esta posicionado mi cursor.:confused:

de antemano gracias a todos lo que resuelvan o agranden mi duda :p

p.d. antes de publicar este hilo he buscado y buscado y no e encontrado algo parecido a lo ke kiero.

hasta la prox :cool:

[roman]

Prueba con esto:


var
Col, Line: Integer;

begin
Col := RichEdit1.SelStart - RichEdit1.Perform(EM_LINEINDEX, -1, 0);
Line := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0);

StatusBar1.Panels[0].Text := Format('Col: %d', [Col]);
StatusBar1.Panels[1].Text := Format('Ln: %d', [Line]);
end;


// Saludos