суббота, 27 апреля 2013 г.

Ещё правки VCL (23)


function TCustomEdit.GetSelStart: Integer; {V} // - не работает на NT 4.0
begin
  //SendMessage(Handle, EM_GETSEL, Longint(@Result), 0);
  Result := LongRec(SendMessage(Handle, EM_GETSEL, 0, 0)).Lo;
end;


function TCustomEdit.GetSelLength: Integer; {V} // - не работает на NT 4.0
begin
  with LongRec(SendMessage(Handle, EM_GETSEL, 0, 0)) do
   Result := Hi - Lo;
end;
(*begin
  SendMessage(Handle, EM_GETSEL, Longint(@Selection.StartPos), Longint(@Selection.EndPos));
  Result := Selection.EndPos - Selection.StartPos;
end;*)


Комментариев нет:

Отправить комментарий