W jaki sposób wyświetlić pozycję kursora w richedit na statusie, żeby wygłądało to, np. tak: Wrs x, Kol y.
Help ;-( !!! ;-(
0
0
function TMainForm.GetCursor: TPoint;
begin
Result.Y := Memo.Perform(EM_LINEFROMCHAR, $FFFF, 0);
Result.X := Memo.SelStart - Memo.Perform(EM_LINEINDEX, $FFFF, 0);
Inc(Result.X);
Inc(Result.Y);
end;
0
najprosciej tak:
[code]StatusBar1.SimplePanel := True;
StatusBar1.SimpleText := 'Kolumna:' + IntToStr(RichEdit1.CaretPos.x) + 'Wiersz:' + IntToStr(RichEdit1.CaretPos.y);[/code]
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.