begin
// if GikoForm.WindowState <> wsMinimized then
// SaveCoolBarSettings;
+ CanClose := True;
if ( GikoSys.Setting.ShowDialogForEnd ) and
(MessageDlg('\83M\83R\83i\83r\82ð\8fI\97¹\82µ\82Ä\82æ\82ë\82µ\82¢\82Å\82·\82©\81H', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin
CanClose := false;
Exit;
- end else begin
- CanClose := True;
- if GikoSys.Setting.TabAutoLoadSave then begin
- GikoDM.TabAutoSaveAction.Execute;
+ end;
+
+ if GikoSys.Setting.TabAutoLoadSave then begin
+ GikoDM.TabAutoSaveAction.Execute;
+ end;
+
+ if (SearchDialog <> nil) then begin
+ if (SearchDialog.Visible) then begin
+ SearchDialog.Close;
+ try
+ SearchDialog.Release;
+ except
+ end;
+ SearchDialog := nil;
end;
end;
- { //2ch\8c¾\8cȩ̂²ÙFree
+ { //2ch\8c¾\8cȩ̂²ÙFree
if GikoSys.Setting.Gengo <> nil then begin
GikoSys.Setting.Gengo.Free;
end;
- }
+ }
Application.UnhookMainWindow(Hook);
Application.Terminate;
end;
ListView.Items.Count := ListView.Items.Count + 1;
end;
end;
- // \83\8d\83O\82È\82µ\83X\83\8c\83b\83h\82Ì\82Æ\82«\82Í\81A\83z\83X\83g\96¼\82Ì\83`\83F\83b\83N\82ð\82·\82é
- if not ThreadItem.IsLogFile then begin
+ // 2\82¿\82á\82ñ\82Ë\82é\82Å\82È\82\83\8d\83O\82È\82µ\83X\83\8c\83b\83h\82Ì\82Æ\82«\82Í\81A\83z\83X\83g\96¼\82Ì\83`\83F\83b\83N\82ð\82·\82é
+ if (not Board.Is2ch) and (not ThreadItem.IsLogFile) then begin
if AnsiPos(Host, Board.URL) = 0 then
ThreadItem.DownloadHost := Host
else
procedure CancelBottonClick(Sender: TObject);
procedure BoardListViewResize(Sender: TObject);
procedure FormDestroy(Sender: TObject);
+ procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private \90é\8c¾ }
FChkItem: TObject;
end;
end;
+procedure TSearchDialog.FormCloseQuery(Sender: TObject;
+ var CanClose: Boolean);
+begin
+ if (BoardsProgressBar.Visible) then begin
+ TGrep(Sender).Cancel := true;
+ FCancel := true;
+ Application.ProcessMessages;
+ end;
+end;
+
end.