From: Andreas H. <ah...@us...> - 2005-05-24 13:23:27
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10334/run Modified Files: JvAutoComplete.pas Log Message: Fixed Mantis #2983 Index: JvAutoComplete.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvAutoComplete.pas,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** JvAutoComplete.pas 23 May 2005 11:52:46 -0000 1.13 --- JvAutoComplete.pas 24 May 2005 13:23:13 -0000 1.14 *************** *** 345,365 **** end; ! function SelectItem(AnItem: string): Boolean; var Idx: Integer; ValueChange: Boolean; begin ! GetSearchItemPrefix(AnItem); ! if AnItem = '' then begin - Result := False; SetItemIndex(-1); DoChange; Exit; end; ! Idx := FindItemPrefix(-1, AnItem); ! Result := (Idx <> -1); ! if not Result then Exit; ValueChange := Idx <> GetItemIndex; SetItemIndex(Idx); --- 345,367 ---- end; ! function SelectItem(const AnItem: string): Boolean; var Idx: Integer; ValueChange: Boolean; + PartToFind: string; begin ! Result := False; ! PartToFind := AnItem; ! GetSearchItemPrefix(PartToFind); ! if PartToFind = '' then begin SetItemIndex(-1); DoChange; Exit; end; ! Idx := FindItemPrefix(-1, PartToFind); ! if Idx < 0 then Exit; + Result := True; ValueChange := Idx <> GetItemIndex; SetItemIndex(Idx); *************** *** 367,375 **** begin SetItemIndex(Idx); ! FFilter := AnItem; end else begin ! SetText(AnItem + Copy(GetItemAt(Idx), Length(AnItem) + 1, MaxInt)); SetEditSel(Length(AnItem), Length(GetText)); end; --- 369,377 ---- begin SetItemIndex(Idx); ! FFilter := PartToFind; end else begin ! SetText(AnItem + Copy(GetItemAt(Idx), Length(PartToFind) + 1, MaxInt)); SetEditSel(Length(AnItem), Length(GetText)); end; |