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

MG: improved TComboBox.SetItemIndex

Browse Source 
git-svn-id: trunk@2978 -
This commit is contained in:
lazarus 2002-08-18 08:56:43 +00:00
parent 76ef25f6a6
commit 5c153c68ce
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/uniteditor.pp
View File

@ -2748,6 +2748,7 @@ begin
SetHistoryText;
end;
FetchFocus;
Key:=VK_UNKNOWN;
end else if Key=VK_UP then begin
if (CurIndex<0)
or (HistoryList[CurIndex]<>CurText) then
@ -2762,6 +2763,7 @@ begin
SetHistoryText;
end;
FetchFocus;
Key:=VK_UNKNOWN;
end;
end;