opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug #944: List index out of bounds in query helpers

Browse Source
This commit is contained in:
Ansgar Becker
2009-01-16 23:35:44 +00:00
parent e1402e48e6
commit a5cf99deb1
1 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/main.pas
View File

@ -5830,7 +5830,7 @@ end;
procedure TMainForm.tabsetQueryHelpersChange(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
var
i : Integer;
i, idx : Integer;
SnippetsAccessible : Boolean;
Files: TStringList;
begin
@ -5896,12 +5896,10 @@ begin
end;
// Restore last selected item in tab
if (Length(QueryHelpersSelectedItems[NewTab]) > 0)
and (Length(QueryHelpersSelectedItems[NewTab]) <= lboxQueryHelpers.Count) then
begin
for i := 0 to Length(QueryHelpersSelectedItems[NewTab]) - 1 do begin
lboxQueryHelpers.Selected[QueryHelpersSelectedItems[NewTab][i]] := True;
end;
for i := 0 to Length(QueryHelpersSelectedItems[NewTab]) - 1 do begin
idx := QueryHelpersSelectedItems[NewTab][i];
if idx < lboxQueryHelpers.Count then
lboxQueryHelpers.Selected[idx] := True;
end;
lboxQueryHelpers.Items.EndUpdate;