позицию курсора нахожу так -
Код: Выделить всё
var
x,y, yy:integer;
begin
image1.Picture.Bitmap.Canvas.Font.Assign(Memo1.Font);
y := Memo1.CaretPos.y* image1.Picture.Bitmap.Canvas.TextHeight('Wq');;
x := image1.Picture.Bitmap.Canvas.TextWidth(utf8copy(Memo1.Lines[Memo1.CaretPos.y], 1, Memo1.CaretPos.x));
Т.е. тупо беру ширину текста до курсора.
Но есть проблема - для разных шрифтов начало строки(отступ) в мемо отличается.
Как определить этот отступ?
Или как его убрать?
Всем спасибо за внимание, уже разобрался)
В начало строки рисуется пробел, теперь определяю ширину текста + ширину одного пробела
