paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 18:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix backward search by TSearchAction by Anton (issue )

Browse Source 
git-svn-id: trunk@27712 -
This commit is contained in:
paul 2010-10-15 01:46:10 +00:00
parent 27e5a6b723
commit 81c0f13c5f
1 changed files with 4 additions and 1 deletions

5
lcl/stdactns.pas
View File

@ -856,7 +856,10 @@ begin
if Result then
begin
FControl.SelStart := Position - Length(SearchTxt);
if Down then
FControl.SelStart := Position - Length(SearchTxt)
else
FControl.SelStart := Position - 1;
FControl.SelLength := Length(SearchTxt);
end;
end;