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

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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/stdactns.pas
View File

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