diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-08 11:24:16 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-08 11:24:16 +0200 |
| commit | 4dcb1483ee304d2648b0b9fc4f85467fca605169 (patch) | |
| tree | 4cabedde3c82b3a410b6584af8e99d11313b328e | |
| parent | a0f1e0e9db4b0edee45018c47a08761916af0ce6 (diff) | |
| download | tuxcmd-4dcb1483ee304d2648b0b9fc4f85467fca605169.tar.xz | |
Fix columns cannot be deselected issue in Panel Columns dialog
Resolves #1981515
| -rw-r--r-- | UColumns.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/UColumns.pas b/UColumns.pas index d9af552..944b659 100644 --- a/UColumns.pas +++ b/UColumns.pas @@ -186,8 +186,8 @@ end; procedure TFColumns.ListViewColumnToggled(Sender: TObject; Column: TGTKTreeViewColumn; Item: TGTKListItem); begin - DebugMsg(['(II) TFColumns.ListViewColumnToggled: Item.AsBoolean(0) = ', Item.AsBoolean(0), ', Item.AsInteger(0) = ', Item.AsInteger(0)]); - if Assigned(Item) then Item.SetValue(0, not Item.AsBoolean(0)); +// DebugMsg(['(II) TFColumns.ListViewColumnToggled: Item.AsBoolean(0) = ', Item.AsBoolean(0), ', Item.AsInteger(0) = ', Item.AsInteger(0)]); + if Assigned(Item) then Item.SetValue(0, Integer(not Boolean(Item.AsInteger(0)))); end; |