Browserクリック時にActiveなBrowserにフォーカスを当てるように。

板更新時にAccessViolationで止まるバグの修正。

diff --git a/Giko.dfm b/Giko.dfm
index 4e6faa8..1f7af92 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -327,6 +327,7 @@ object GikoForm: TGikoForm
             OnDataFind = ListViewDataFind
             OnDataHint = ListViewDataHint
             OnDataStateChange = ListViewDataStateChange
+            OnExit = ListViewExit
             OnKeyDown = ListViewKeyDown
             OnMouseDown = ListViewMouseDown
             OnColumnInfo = ListViewColumnInfo

diff --git a/Giko.pas b/Giko.pas
index 8aea5b5..82b54cb 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -863,6 +863,7 @@ type
     procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
     procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
     procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
+    procedure ListViewExit(Sender: TObject);
        private
                { Private \90é\8c¾ }
         //RoundList : TRoundList;
@@ -2004,8 +2005,8 @@ var
        i                       : Integer;
 begin
        //\83^\83u\83N\83\8d\81[\83Y
-       NotSelectTabCloseAction.Execute;
-       BrowserTabCloseAction.Execute;
+       AllTabCloseAction.Execute;
+       SetContent(BrowserNullTab);
        //TreeView\83N\83\8a\83A\81iBBS2ch.Free\82Ì\8cã\82É\83N\83\8a\83A\82·\82é\82ÆXP\83X\83^\83C\83\8b\8e\9e\82É\83G\83\89\81[\8fo\82é\81j
        TreeView.Items.Clear;
 
@@ -10090,7 +10091,8 @@ begin
   result := true;
   if Sender <> nil then
   try
-       TOleControl(Sender).SetFocus;
+       if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then
+               FActiveContent.FBrowser.SetFocus;
   except
   end;
 end;
@@ -10146,6 +10148,11 @@ begin
        SetFocusForThreadListAction.Execute;
 end;
 
+procedure TGikoForm.ListViewExit(Sender: TObject);
+begin
+       ListView.Repaint;
+end;
+
 initialization
                                OleInitialize(nil);
 finalization