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

Remove helper function ToggleCheckListBox, replace the few callers with simple code alternatives

Browse Source
This commit is contained in:
Ansgar Becker
2012-05-01 06:50:57 +00:00
parent 3e2d4371a3
commit 5cb54b3711
3 changed files with 14 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/column_selection.pas
View File

@ -54,14 +54,11 @@ procedure TColumnSelectionForm.FormShow(Sender: TObject);
var
i: Integer;
begin
for i:=0 to Mainform.SelectedTableColumns.Count-1 do
for i:=0 to Mainform.SelectedTableColumns.Count-1 do begin
chklistColumns.Items.Add(Mainform.SelectedTableColumns[i].Name);
// Check items!
if Mainform.DataGridHiddenColumns.Count = 0 then // Simply check all items
ToggleCheckListBox( chklistColumns, True )
else // Only check selected items
ToggleCheckListBox( chklistColumns, False, Mainform.DataGridHiddenColumns );
chklistColumns.Checked[i] := (Mainform.DataGridHiddenColumns.Count = 0) or
(Mainform.DataGridHiddenColumns.IndexOf(chklistColumns.Items[i]) = -1);
end;
// Call check-event to update state of "Select / Deselect all" checkbox
chklistColumnsClickCheck( Sender );
@ -96,10 +93,13 @@ end;
Select / Deselect all
}
procedure TColumnSelectionForm.chkSelectAllClick(Sender: TObject);
var
cb: TCheckBox;
begin
// Avoid executing when checkbox was toggled by code (see proc below)
if (Sender as TCheckBox).Focused then
ToggleCheckListBox( chklistColumns, (Sender as TCheckBox).Checked );
cb := Sender as TCheckBox;
if cb.Focused then
chklistColumns.CheckAll(cb.State);
end;