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

Avoid accessing non existent dropdown item. Fixes issue #1597.

Browse Source
This commit is contained in:
Ansgar Becker
2010-01-12 18:36:29 +00:00
parent aad22b923c
commit 7aaa5af2c2
2 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/tabletools.dfm
View File

@ -185,16 +185,8 @@ object frmTableTools: TfrmTableTools
Style = csDropDownList
Anchors = [akLeft, akTop, akRight]
ItemHeight = 13
ItemIndex = 0
TabOrder = 0
Text = 'Check'
OnChange = ValidateControls
Items.Strings = (
'Check'
'Analyze'
'Checksum'
'Optimize'
'Repair')
end
object chkQuick: TCheckBox
Left = 81

7
source/tabletools.pas
View File

@ -238,6 +238,7 @@ end;
procedure TfrmTableTools.FormShow(Sender: TObject);
var
DBNode, TableNode, FirstChecked: PVirtualNode;
idx: Integer;
begin
// When this form is displayed the second time, databases may be deleted or filtered.
// Also, checked nodes must be unchecked and unchecked nodes may need to be checked.
@ -269,8 +270,12 @@ begin
if Assigned(FirstChecked) then
TreeObjects.ScrollIntoView(FirstChecked, True);
// CHECKSUM available since MySQL 4.1.1
idx := comboOperation.ItemIndex;
if idx = -1 then idx := 0;
comboOperation.Items.CommaText := 'Check,Analyze,Checksum,Optimize,Repair';
if Mainform.Connection.ServerVersionInt < 40101 then
comboOperation.Items[comboOperation.Items.IndexOf('Checksum')] := 'Checksum ('+STR_NOTSUPPORTED+')';
comboOperation.Items.Text := StringReplace(comboOperation.Items.Text, 'Checksum', 'Checksum ('+STR_NOTSUPPORTED+')', [rfReplaceAll]);
comboOperation.ItemIndex := idx;
comboOperation.OnChange(Sender);
comboExportOutputType.OnChange(Sender);