[DEVELOPMENT ENVIRONMENT]

* BUG: In the procedure list, finding a procedure by typing its name 
  correctly scrolls the list.


git-svn-id: svn://localhost/gambas/trunk@3858 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2011-05-23 19:44:55 +00:00
parent 08b88056cf
commit b1c1b88222
2 changed files with 4 additions and 1 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 4.3 KiB

After

Width:  |  Height:  |  Size: 4.2 KiB

View file

@ -92,7 +92,10 @@ Private Sub SetCurrent(iCurrent As Integer)
$iCurrent = iCurrent
If iOld >= 0 Then gvwProc.Rows[iOld].Refresh
If iCurrent >= 0 Then gvwProc.Rows[iCurrent].Refresh
If iCurrent >= 0 Then
gvwProc.Rows[iCurrent].Refresh
gvwProc[iCurrent, 0].EnsureVisible
Endif
End