・レス絞込みダイアログで [キャンセル] ボタンを押すとエラーが発生してしまうのを修正。

diff --git a/Giko.dfm b/Giko.dfm
index e604b6d..294414b 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -645,9 +645,17 @@ object GikoForm: TGikoForm
                 Top = 0
                 Action = ItemReloadAction
               end
-              object SelectResToolButton: TToolButton
+              object ToolButton16: TToolButton
                 Left = 268
                 Top = 0
+                Width = 8
+                Caption = 'ToolButton16'
+                ImageIndex = 13
+                Style = tbsSeparator
+              end
+              object SelectResToolButton: TToolButton
+                Left = 276
+                Top = 0
                 Action = SelectResAction
               end
             end

diff --git a/Giko.pas b/Giko.pas
index a49d5a6..a47e84b 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -446,6 +446,7 @@ type
     SelectItemToolButton: TToolButton;
     SelectResToolButton: TToolButton;
     SelectResAction: TAction;
+    ToolButton16: TToolButton;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -6631,16 +6632,21 @@ begin
                                 GikoSys.FSelectResFilter.Reverse := False
                         else
                                 GikoSys.FSelectResFilter.Reverse := True;
-                        FilterList := TStringList.Create;
-                        FilterList.Add( Dlg.SelectComboBox.Text );
-                        GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
+
+                        try
+                                FilterList := TStringList.Create;
+                                FilterList.Add( Dlg.SelectComboBox.Text );
+                                GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
+                        finally
+                                FilterList.Destroy;
+                        end;
+
                         ThreadItem := GetActiveContent;
                         if ThreadItem <> nil then
                                 SetContent( ThreadItem );
                end;
         finally
                Dlg.Release;
-               FilterList.Destroy;
         end;
 
 end;