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

LCL: fixed case insenstive search TSearchAction.PerformSearch, bug #16736

Browse Source 
git-svn-id: trunk@26197 -
This commit is contained in:
mattias 2010-06-19 16:10:46 +00:00
parent 13fdb2e797
commit 207744ce93
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/stdactns.pas
View File

@ -791,30 +791,33 @@ end;
function TSearchAction.PerformSearch: Boolean;
var
StartPos, Position, Increment, CharsToMatch: Integer;
S, Text: String;
SearchTxt, Text: String;
Down: Boolean;
P: PChar;
procedure RestoreSearch; inline;
begin
CharsToMatch := Length(S);
CharsToMatch := Length(SearchTxt);
if not Down then
P := PChar(S) + CharsToMatch - 1
P := PChar(SearchTxt) + CharsToMatch - 1
else
P := PChar(S);
P := PChar(SearchTxt);
end;
begin
S := UTF8Decode(TFindDialog(FDialog).FindText);
SearchTxt := UTF8Decode(TFindDialog(FDialog).FindText);
Text := UTF8Decode(FControl.Text);
Result := (S <> '') and (Text <> '');
Result := (SearchTxt <> '') and (Text <> '');
if not Result then
Exit;
if not (frMatchCase in TFindDialog(FDialog).Options) then
begin
Text := LowerCase(Text);
SearchTxt := LowerCase(SearchTxt);
end;
Down := frDown in TFindDialog(FDialog).Options;
if not Down then
begin
@ -853,8 +856,8 @@ begin
if Result then
begin
FControl.SelStart := Position - Length(S);
FControl.SelLength := Length(S);
FControl.SelStart := Position - Length(SearchTxt);
FControl.SelLength := Length(SearchTxt);
end;
end;