[JVCL-Checkins] dev/JVCL3/run JvEditor.pas,1.60,1.61 JvUnicodeEditor.pas,1.38,1.39 - Fixed Mantis #2350: TJvCustomEditor.SelectWordOnCaret cannot

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25418/run

Modified Files:
	JvEditor.pas JvUnicodeEditor.pas 
Log Message:
Fixed Mantis #2350: TJvCustomEditor.SelectWordOnCaret cannot select word on line 0


Index: JvUnicodeEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvUnicodeEditor.pas,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** JvUnicodeEditor.pas	5 Nov 2004 21:42:52 -0000	1.38
--- JvUnicodeEditor.pas	30 Nov 2004 16:38:09 -0000	1.39
***************
*** 1062,1066 ****
    iBeg, iEnd: Integer;
  begin
!   if (CaretY > 0) and (CaretY < LineCount) and (TrimW(FLines[CaretY]) <> '') then
    begin
      iEnd := Length(TrimRightW(FLines[CaretY]));
--- 1062,1066 ----
    iBeg, iEnd: Integer;
  begin
!   if (CaretY >= 0) and (CaretY < LineCount) and (TrimW(FLines[CaretY]) <> '') then
    begin
      iEnd := Length(TrimRightW(FLines[CaretY]));

Index: JvEditor.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvEditor.pas,v
retrieving revision 1.60
retrieving revision 1.61
diff -C2 -d -r1.60 -r1.61
*** JvEditor.pas	6 Nov 2004 07:24:11 -0000	1.60
--- JvEditor.pas	30 Nov 2004 16:38:08 -0000	1.61
***************
*** 1056,1060 ****
    iBeg, iEnd: Integer;
  begin
!   if (CaretY > 0) and (CaretY < LineCount) and (Trim(FLines[CaretY]) <> '') then
    begin
      iEnd := Length(TrimRight(FLines[CaretY]));
--- 1056,1060 ----
    iBeg, iEnd: Integer;
  begin
!   if (CaretY >= 0) and (CaretY < LineCount) and (Trim(FLines[CaretY]) <> '') then
    begin
      iEnd := Length(TrimRight(FLines[CaretY]));