mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 14:39:27 +02:00
IDE: find dialog reversed meaning of VK_UP and VK_DOWN
git-svn-id: trunk@10880 -
This commit is contained in:
parent
14d8e68b4a
commit
b5bc65d527
@ -4125,7 +4125,7 @@ begin
|
|||||||
CurIndex:=FindReplaceDlgHistoryIndex[FindDlgComponent];
|
CurIndex:=FindReplaceDlgHistoryIndex[FindDlgComponent];
|
||||||
CurText:=LazFindReplaceDialog.ComponentText[FindDlgComponent];
|
CurText:=LazFindReplaceDialog.ComponentText[FindDlgComponent];
|
||||||
//writeln('TSourceNotebook.FindReplaceDlgKey CurIndex=',CurIndex,' CurText="',CurText,'"');
|
//writeln('TSourceNotebook.FindReplaceDlgKey CurIndex=',CurIndex,' CurText="',CurText,'"');
|
||||||
if Key=VK_Down then begin
|
if Key=VK_UP then begin
|
||||||
// go forward in history
|
// go forward in history
|
||||||
if CurIndex>=0 then begin
|
if CurIndex>=0 then begin
|
||||||
if (HistoryList[CurIndex]<>CurText) then begin
|
if (HistoryList[CurIndex]<>CurText) then begin
|
||||||
@ -4137,7 +4137,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
FetchFocus;
|
FetchFocus;
|
||||||
Key:=VK_UNKNOWN;
|
Key:=VK_UNKNOWN;
|
||||||
end else if Key=VK_UP then begin
|
end else if Key=VK_DOWN then begin
|
||||||
if (CurIndex<0)
|
if (CurIndex<0)
|
||||||
or (HistoryList[CurIndex]<>CurText) then
|
or (HistoryList[CurIndex]<>CurText) then
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user