From a0f1e0e9db4b0edee45018c47a08761916af0ce6 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 7 Jun 2008 20:40:48 +0200 Subject: Revised UTF-8 filenames support --- UColumns.pas | 1 + 1 file changed, 1 insertion(+) (limited to 'UColumns.pas') diff --git a/UColumns.pas b/UColumns.pas index 70c736f..d9af552 100644 --- a/UColumns.pas +++ b/UColumns.pas @@ -186,6 +186,7 @@ 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)); end; -- cgit v1.2.3