[JVCL-Checkins] CVS: dev/JVCL3/run JvEditor.pas,1.8,1.9

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv8929/JVCL3/run

Modified Files:
	JvEditor.pas 
Log Message:
- GetSelStart fix as reported by Andreas / Enrico on the NG

Index: JvEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvEditor.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** JvEditor.pas	20 Aug 2003 10:51:51 -0000	1.8
--- JvEditor.pas	18 Sep 2003 09:37:26 -0000	1.9
***************
*** 5025,5030 ****
  function TJvCustomEditor.GetSelStart: Integer;
  begin
!   Result := PosFromCaret(FCaretX, FCaretY);
! end;
  
  procedure TJvCustomEditor.SetSelStart(ASelStart: Integer);
--- 5025,5033 ----
  function TJvCustomEditor.GetSelStart: Integer;
  begin
!   if FSelection.Selected then
!     Result := PosFromCaret(FSelection.SelBegX, FSelection.SelBegY)
!   else
!     Result := PosFromCaret(FCaretX, FCaretY);
! end
  
  procedure TJvCustomEditor.SetSelStart(ASelStart: Integer);