neostudio
asked on
TRicjEdit col/row
am i missing something ??
procedure Teditor.ApplicationEvents1 Idle(Sende r: TObject; var Done: Boolean);
var
Row, Col: Integer;
begin
Row := SendMessage(area.Handle, EM_EXLINEFROMCHAR, 0, area.SelStart + area.SelLength);
Col := area.SelStart + area.SelLength - SendMessage(area.Handle, EM_LINEINDEX, -1, 0);
bar.panels[2].Text := IntToStr(Row+1)+ ' ' + IntToStr(Col+1) + ' ' + DateTimeToStr(Now);
end;
i am trying to get row/col/linenumber in a simple richedit called AREA !!
thasnks in advance
procedure Teditor.ApplicationEvents1
var
Row, Col: Integer;
begin
Row := SendMessage(area.Handle, EM_EXLINEFROMCHAR, 0, area.SelStart + area.SelLength);
Col := area.SelStart + area.SelLength - SendMessage(area.Handle, EM_LINEINDEX, -1, 0);
bar.panels[2].Text := IntToStr(Row+1)+ ' ' + IntToStr(Col+1) + ' ' + DateTimeToStr(Now);
end;
i am trying to get row/col/linenumber in a simple richedit called AREA !!
thasnks in advance
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER