Fórum de TRichEdit #301442
01/11/2005
0
Alguem sabe como eu consigo pega o numero da linha e coluna do cursor do RichEdit ??
Aloizio Castro
Curtir tópico
+ 0
Responder
Posts
01/11/2005
Aloizio Castro
Alguem sabe como eu consigo pega o numero da linha e coluna do cursor do RichEdit ??
Desculpem o importuno, lembrei de olhar em Demos.
procedure TFrmEdt.UpdateCursorPos;
var
CharPos: TPoint;
begin
CharPos.Y := SendMessage(RchEdt.Handle, EM_EXLINEFROMCHAR, 0,
RchEdt.SelStart);
CharPos.X := (RchEdt.SelStart -
SendMessage(RchEdt.Handle, EM_LINEINDEX, CharPos.Y, 0));
Inc(CharPos.Y);
Inc(CharPos.X);
StatusBar.Panels[0].Text := Format(´Linha: ¬d Coluna: ¬d´, [CharPos.Y, CharPos.X]);
end;
Basta adicionar a unit RichEdit.
Abraços
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)