координаты символов в Edit

[user_jasser]

вабщем не пойму как работает си-ма метрици каретки. тоесть я нахожу координаты каретки в пикселях(GetCaretPos), потом делю размеры окна на ширину и длину симвала. здесь все хорошо работает и я нахожу какой симвал возле каретки. А вот проблемы начинаються когда происходит скрол текста. Ведь координаты каретки теже, а вот текст уже не тот. Как мне испровить? Как находить символ возле каретки учитывая скрол текста?

[Д'якон]

Я таким не занимался, но я предположу что эдиту приходит WM_PAINT при скроле.

[user_jasser]

вобщем немного разобрался. GetScrollPos и иму подобные должны мне помоч хз. тулько вот нарыл немного инфы. если есть у кого нить пример залейте плис...

[user_jasser]

с координатами разобрался. появилась еще одна проблема:
я нахожу ширину и высоту символов так:

procedure TScrewDriver.CharMetrics(Hnd: hWND);
var
 DC: HDC;
 TM: TEXTMETRIC;
begin
  DC:= GetDC(HND);
 
  //fillchar(TM, sizeof(TM), 0);
  GetTextMetrics(DC, @TM);
  
  DebugMessage(':CharX: ' + IntToStr(TM.tmAveCharWidth));
  DebugMessage(':CharY: ' + IntToStr(TM.tmHeight));

  FCharWidth:= TM.tmAveCharWidth;
  FCharHeight:= TM.tmHeight;
  ReleaseDC(HND, DC);
end;

все вроде правельно находит высоту 16 и ширину 8. но вот когда я меняю шрифт на другой. все равно эта ф-ия возвращает теже параметры, а они должны быть явно другие... Что я не так делаю?

[user_jasser]

Блин, так и не разобрался... подозреваю, что не находиться нужный HDC, хотя окно сто-пудово то в котором текст. класс окна Scintilla можеть из за этого баг?
Еще я могу находить имя стиля и размер фонта. можеть это както поможет определить ширину и длину символа? Подмогните! *отчаянье*

[user_jasser]

еще вопросик:

такая вот формула размера шрифта

TLogFont.lfHeight:= - Round(10 * GetDeviceCaps(DC, LOGPIXELSY) / 72);
TLogFont.lfWidth:= 0;

будет аналогично Size в VCL?

TFont.Size:= 10;

[user_jasser]

все получилось, но оказалось это все равно не выход, ведь шрифты бывают с не фиксированной шириной символов. Вобщем оказалось что я не в том направлении копал.

Вот кажись простой и стабильный вариант:

function GetCaretPosXY(Handle: hWnd): TPoint;
begin
  Result.X := LongRec(SendMessage(Handle, EM_GETSEL, 0, 0)).Hi;
  Result.Y := SendMessage(Handle, EM_LINEFROMCHAR, Result.X, 0);
  Result.X := Result.X - SendMessage(Handle, EM_LINEINDEX, -1, 0);
end;