de TRichEdit

Delphi

01/11/2005

Alguem sabe como eu consigo pega o numero da linha e coluna do cursor do RichEdit ??


Aloizio Castro

Aloizio Castro

Curtidas 0

Respostas

Aloizio Castro

Aloizio Castro

01/11/2005

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


GOSTEI 0
POSTAR