2ch.netからbbs.pinkに移動した板の過去ログが取得できない不具合の修正と

ブラウザのサイズ最大化最小化時に描画の更新を一時停止するようにした。

diff --git a/Giko.dfm b/Giko.dfm
index 6fad88d..dd2ad9a 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 205
-  Top = 186
+  Left = 238
+  Top = 291
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False

diff --git a/Giko.pas b/Giko.pas
index de58a13..8b3374b 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -527,7 +527,7 @@ type
     N65: TMenuItem;
     BBSSelectPopupMenu: TPopupMenu;
                PlugInMenu: TMenuItem;
-    TmpToolBar: TToolBar;
+       TmpToolBar: TToolBar;
     TreeSelectNameCopy: TAction;
     TreeSelectNamePupupMenu: TMenuItem;
     BrowserPanel: TPanel;
@@ -550,7 +550,7 @@ type
                OpenLogFolder: TMenuItem;
     Browser: TWebBrowser;
     TabSave: TMenuItem;
-    TabOpen: TMenuItem;
+       TabOpen: TMenuItem;
                TabsSaveAction: TAction;
     TabsOpenAction: TAction;
     ResRangePopupMenu: TPopupMenu;
@@ -573,7 +573,7 @@ type
     N69: TMenuItem;
     S7: TMenuItem;
     ThreadRangeButton: TToolButton;
-    TabAutoSaveAction: TAction;
+       TabAutoSaveAction: TAction;
     TabAutoLoadAction: TAction;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
@@ -872,7 +872,7 @@ type
       var Handled: Boolean);
     procedure KoreCopyExecute(Sender: TObject);
     procedure BrowserTabPopupMenuPopup(Sender: TObject);
-    procedure MenuToolBarResize(Sender: TObject);
+       procedure MenuToolBarResize(Sender: TObject);
     procedure StdToolBarResize(Sender: TObject);
     procedure LinkToolBarResize(Sender: TObject);
     procedure ListNameToolBarResize(Sender: TObject);
@@ -895,7 +895,7 @@ type
                procedure SetFocusForBrowserActionUpdate(Sender: TObject);
     procedure SetFocusForThreadListActionExecute(Sender: TObject);
     procedure SetFocusForCabinetActionExecute(Sender: TObject);
-    procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
+       procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
     procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
     procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
     procedure ListViewExit(Sender: TObject);
@@ -918,7 +918,7 @@ type
     procedure OnlyAHundredResActionExecute(Sender: TObject);
     procedure OnlyKokoResActionExecute(Sender: TObject);
     procedure OnlyNewResActionExecute(Sender: TObject);
-    procedure BrowsBoradHeadActionExecute(Sender: TObject);
+       procedure BrowsBoradHeadActionExecute(Sender: TObject);
     procedure BrowsBoradHeadActionUpdate(Sender: TObject);
     procedure EditNGActionExecute(Sender: TObject);
     procedure ThreadRangeActionUpdate(Sender: TObject);
@@ -3607,13 +3607,12 @@ begin
                        if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
                        TreeView.Refresh;
                end;
-          //   LockWindowUpdate(Self.Handle);
-               if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
+{              if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
                        if (FActiveContent.Browser <> BrowserNullTab.Browser) then
                                ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
                end;
+}
                ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
-               //LockWindowUpdate(0);
                if (not Assigned(Thread.Browser.Document)) then begin
                        Thread.Browser.Navigate('about:blank');
                end;
@@ -5032,15 +5031,23 @@ begin
                case GikoSys.Setting.ListWidthState of
                        glsMax: begin
                                //\92Ê\8fí\95\\8e¦\82É\82·\82é
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                                ViewPanel.Width := FBrowserSizeWidth;
                                BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
                                BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
                                GikoSys.Setting.ListWidthState := glsNormal;
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
                        end;
                        glsMin, glsNormal: begin
                                //\8dÅ\91å\95\\8e¦\82É\82·\82é
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                                if GikoSys.Setting.ListWidthState = glsNormal then
                                        FBrowserSizeWidth := ViewPanel.Width;
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
                                ViewPanel.Width := 1;
                                BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
                                BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
@@ -5051,15 +5058,23 @@ begin
                case GikoSys.Setting.ListHeightState of
                        glsMax: begin
                                //\92Ê\8fí\95\\8e¦\82É\82·\82é
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                                ViewPanel.Height := FBrowserSizeHeight;
                                BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
                                BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
                                GikoSys.Setting.ListHeightState := glsNormal;
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
                        end;
                        glsMin, glsNormal: begin
                                //\8dÅ\91å\95\\8e¦\82É\82·\82é
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                                if GikoSys.Setting.ListHeightState = glsNormal then
                                        FBrowserSizeHeight := ViewPanel.Height;
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
                                ViewPanel.Height := 1;
                                BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
                                BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
@@ -5080,8 +5095,12 @@ begin
                case GikoSys.Setting.ListWidthState of
                        glsMax, glsNormal: begin
                                //\8dÅ\8f¬\95\\8e¦\82É\82·\82é
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                                if GikoSys.Setting.ListWidthState = glsNormal then
                                        FBrowserSizeWidth := ViewPanel.Width;
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
                                ViewPanel.Width := ThreadMainPanel.Width - 80;
                                BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
                                BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
@@ -5089,29 +5108,41 @@ begin
                        end;
                        glsMin: begin
                                //\92Ê\8fí\95\\8e¦\82É\82·\82é
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                                ViewPanel.Width := FBrowserSizeWidth;
                                BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
                                BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
                                GikoSys.Setting.ListWidthState := glsNormal;
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
                        end;
                end;
        end else begin
                case GikoSys.Setting.ListHeightState of
                        glsMax, glsNormal: begin
                                //\8dÅ\8f¬\95\\8e¦\82É\82·\82é
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                                if GikoSys.Setting.ListHeightState = glsNormal then
                                        FBrowserSizeHeight := ViewPanel.Height;
                                ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7;
                                BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
                                BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
                                GikoSys.Setting.ListHeightState := glsMin;
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
                        end;
                        glsMin: begin
                                //\92Ê\8fí\95\\8e¦\82É\82·\82é
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                                ViewPanel.Height := FBrowserSizeHeight;
                                BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
                                BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
                                GikoSys.Setting.ListHeightState := glsNormal;
+                               if FActiveContent <> nil then
+                                       SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
                        end;
                end;
        end;
@@ -5334,7 +5365,9 @@ end;
 procedure TGikoForm.FormResize(Sender: TObject);
 var
        doc                                             : Variant;
+       i : Integer;
 begin
+
        MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;
        MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;
 
@@ -5359,8 +5392,11 @@ begin
                end;
        end;
 
+
        FIsIgnoreResize := True;
        PostMessage( Handle, USER_RESIZED, 0, 0 );
+
+
 end;
 
 procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject);
@@ -7333,7 +7369,7 @@ begin
                        GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 );
                        tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host));
                        tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2));
-                       if (tmp1 <> tmp2) then begin
+                       if ( not GikoSys.Is2chHost(tmp1)) and (tmp1 <> tmp2) then begin
                                GikoSys.OpenBrowser(URL, gbtUserApp);
                                Exit;
                        end;