Найден 1 результат

teleprog
22.01.2013 13:03:24
Форум: Lazarus
Тема: Абсолютная позиция курсора в TMemo( в пикселях)
Ответы: 1
Просмотры: 1693

Абсолютная позиция курсора в TMemo( в пикселях)

Привет всем!

позицию курсора нахожу так -
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&#46 ...