paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 14:01:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix an index out of bounds error in Editor Window Manager, issue #21455

Browse Source 
git-svn-id: trunk@35877 -
This commit is contained in:
juha 2012-03-10 23:02:21 +00:00
parent d9155823c1
commit f7140e5cea
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/editorfilemanager.pas
View File

@ -135,6 +135,7 @@ begin
SaveCheckedButton.Enabled:=HasChecked; SaveCheckedButton.Enabled:=HasChecked;
CloseCheckedButton.Enabled:=HasChecked; CloseCheckedButton.Enabled:=HasChecked;
CloseMenuItem.Enabled:=HasChecked; CloseMenuItem.Enabled:=HasChecked;
CheckAllCheckBox.Enabled:=clb.Count>0;
// If all items were unchecked, change CheckAllCheckBox state. // If all items were unchecked, change CheckAllCheckBox state.
if CheckAllCheckBox.Checked and not HasChecked then begin if CheckAllCheckBox.Checked and not HasChecked then begin
CheckAllCheckBox.Checked:=HasChecked; CheckAllCheckBox.Checked:=HasChecked;
@ -157,7 +158,7 @@ begin
FilterEdit.ItemWasClicked(CheckListBox1.Items[i], cb.Checked); // Notify the filter FilterEdit.ItemWasClicked(CheckListBox1.Items[i], cb.Checked); // Notify the filter
end; end;
end; end;
CheckListBox1ItemClick(CheckListBox1, 0); CheckListBox1ItemClick(CheckListBox1, CheckListBox1.Count-1);
end; end;
procedure TEditorFileManagerForm.SortAlphabeticallyButtonClick(Sender: TObject); procedure TEditorFileManagerForm.SortAlphabeticallyButtonClick(Sender: TObject);
@ -358,7 +359,7 @@ procedure TEditorFileManagerForm.UpdateButtons;
// Update the filter and buttons. Reuse event handlers for it. // Update the filter and buttons. Reuse event handlers for it.
begin begin
FilterEdit.InvalidateFilter; FilterEdit.InvalidateFilter;
CheckListBox1ItemClick(CheckListBox1, 0); CheckListBox1ItemClick(CheckListBox1, CheckListBox1.Count-1);
end; end;
procedure TEditorFileManagerForm.UpdateMoveButtons(ListIndex: integer); procedure TEditorFileManagerForm.UpdateMoveButtons(ListIndex: integer);