Waitタイムを0まで拡張

diff --git a/Giko.pas b/Giko.pas
index 30707d4..7c4ee0b 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1960,12 +1960,20 @@ begin
     if FResPopupBrowser <> nil then begin
         if not(Sender is TResPopupBrowser) then begin
             if (FResPopupBrowser.Visible) then begin
-                ResPopupClearTimer.Enabled := True;
-                ResPopupClearTimer.Tag := 0;
+                if ResPopupClearTimer.Interval > 0 then begin
+                    ResPopupClearTimer.Enabled := True;
+                    ResPopupClearTimer.Tag := 0;
+                end else begin
+                    FResPopupBrowser.Clear;
+                end;
             end;
         end else begin
-            ResPopupClearTimer.Enabled := True;
-            ResPopupClearTimer.Tag := 1;
+            if ResPopupClearTimer.Interval > 0 then begin
+                ResPopupClearTimer.Enabled := True;
+                ResPopupClearTimer.Tag := 1;
+            end else begin
+                TResPopupBrowser(Sender).ChildClear;
+            end;
         end;
     end;
     cResPopup := nil;

diff --git a/KuroutSetting.dfm b/KuroutSetting.dfm
index 52f3750..63f6e96 100644 (file)
--- a/KuroutSetting.dfm
+++ b/KuroutSetting.dfm
@@ -599,9 +599,9 @@ object KuroutOption: TKuroutOption
         object Label19: TLabel
           Left = 192
           Top = 72
-          Width = 108
+          Width = 96
           Height = 12
-          Caption = '(100 ms '#65374' 5000 ms)'
+          Caption = '(0 ms '#65374' 5000 ms)'
         end
         object DeltaXLabeledEdit: TLabeledEdit
           Left = 120
@@ -675,7 +675,7 @@ object KuroutOption: TKuroutOption
           Width = 17
           Height = 20
           Associate = RespopupWaitLabeledEdit
-          Min = 100
+          Min = 0
           Max = 5000
           Increment = 100
           Position = 100