opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: Don't try to access element -1 of a collection.

Browse Source 
Please enable DEBUGGING in your builds so you can catch these sort of things before release time.
This commit is contained in:
rosenfield
2007-10-08 16:56:43 +00:00
parent 35c422ce1b
commit 3c5d236555
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/childwin.pas
View File

@@ -4329,7 +4329,7 @@ begin
begin
Text := (src as TTreeView).Selected.Text;
end
else if src = lboxQueryHelpers then
else if (src = lboxQueryHelpers) and ((src as TListBox).ItemIndex > -1) then
begin
Text := (src as TListBox).Items[(src as TListBox).ItemIndex];
if tabsetQueryHelpers.TabIndex = 3 then