OSDN Git Service
(root)
/
gikonavigoeson
/
gikonavi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e2d1053
)
Waitタイムを0まで拡張
author
h677
<h677>
Sun, 26 Aug 2007 10:45:07 +0000
(10:45 +0000)
committer
h677
<h677>
Sun, 26 Aug 2007 10:45:07 +0000
(10:45 +0000)
Giko.pas
patch
|
blob
|
history
KuroutSetting.dfm
patch
|
blob
|
history
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
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
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;
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
object Label19: TLabel
Left = 192
Top = 72
- Width =
108
+ Width =
96
Height = 12
Height = 12
- Caption = '(
10
0 ms '#65374' 5000 ms)'
+ Caption = '(0 ms '#65374' 5000 ms)'
end
object DeltaXLabeledEdit: TLabeledEdit
Left = 120
end
object DeltaXLabeledEdit: TLabeledEdit
Left = 120
@@
-675,7
+675,7
@@
object KuroutOption: TKuroutOption
Width = 17
Height = 20
Associate = RespopupWaitLabeledEdit
Width = 17
Height = 20
Associate = RespopupWaitLabeledEdit
- Min =
10
0
+ Min = 0
Max = 5000
Increment = 100
Position = 100
Max = 5000
Increment = 100
Position = 100