Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.406 by yoffy, Tue Sep 7 13:33:08 2004 UTC revision 1.407 by h677, Tue Sep 7 13:38:45 2004 UTC
# Line 527  type Line 527  type
527      N65: TMenuItem;      N65: TMenuItem;
528      BBSSelectPopupMenu: TPopupMenu;      BBSSelectPopupMenu: TPopupMenu;
529                  PlugInMenu: TMenuItem;                  PlugInMenu: TMenuItem;
530      TmpToolBar: TToolBar;          TmpToolBar: TToolBar;
531      TreeSelectNameCopy: TAction;      TreeSelectNameCopy: TAction;
532      TreeSelectNamePupupMenu: TMenuItem;      TreeSelectNamePupupMenu: TMenuItem;
533      BrowserPanel: TPanel;      BrowserPanel: TPanel;
# Line 550  type Line 550  type
550                  OpenLogFolder: TMenuItem;                  OpenLogFolder: TMenuItem;
551      Browser: TWebBrowser;      Browser: TWebBrowser;
552      TabSave: TMenuItem;      TabSave: TMenuItem;
553      TabOpen: TMenuItem;          TabOpen: TMenuItem;
554                  TabsSaveAction: TAction;                  TabsSaveAction: TAction;
555      TabsOpenAction: TAction;      TabsOpenAction: TAction;
556      ResRangePopupMenu: TPopupMenu;      ResRangePopupMenu: TPopupMenu;
# Line 573  type Line 573  type
573      N69: TMenuItem;      N69: TMenuItem;
574      S7: TMenuItem;      S7: TMenuItem;
575      ThreadRangeButton: TToolButton;      ThreadRangeButton: TToolButton;
576      TabAutoSaveAction: TAction;          TabAutoSaveAction: TAction;
577      TabAutoLoadAction: TAction;      TabAutoLoadAction: TAction;
578                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
579                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
# Line 872  type Line 872  type
872        var Handled: Boolean);        var Handled: Boolean);
873      procedure KoreCopyExecute(Sender: TObject);      procedure KoreCopyExecute(Sender: TObject);
874      procedure BrowserTabPopupMenuPopup(Sender: TObject);      procedure BrowserTabPopupMenuPopup(Sender: TObject);
875      procedure MenuToolBarResize(Sender: TObject);          procedure MenuToolBarResize(Sender: TObject);
876      procedure StdToolBarResize(Sender: TObject);      procedure StdToolBarResize(Sender: TObject);
877      procedure LinkToolBarResize(Sender: TObject);      procedure LinkToolBarResize(Sender: TObject);
878      procedure ListNameToolBarResize(Sender: TObject);      procedure ListNameToolBarResize(Sender: TObject);
# Line 895  type Line 895  type
895                  procedure SetFocusForBrowserActionUpdate(Sender: TObject);                  procedure SetFocusForBrowserActionUpdate(Sender: TObject);
896      procedure SetFocusForThreadListActionExecute(Sender: TObject);      procedure SetFocusForThreadListActionExecute(Sender: TObject);
897      procedure SetFocusForCabinetActionExecute(Sender: TObject);      procedure SetFocusForCabinetActionExecute(Sender: TObject);
898      procedure BrowserMaxAndFocusActionExecute(Sender: TObject);          procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
899      procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);      procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
900      procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);      procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
901      procedure ListViewExit(Sender: TObject);      procedure ListViewExit(Sender: TObject);
# Line 918  type Line 918  type
918      procedure OnlyAHundredResActionExecute(Sender: TObject);      procedure OnlyAHundredResActionExecute(Sender: TObject);
919      procedure OnlyKokoResActionExecute(Sender: TObject);      procedure OnlyKokoResActionExecute(Sender: TObject);
920      procedure OnlyNewResActionExecute(Sender: TObject);      procedure OnlyNewResActionExecute(Sender: TObject);
921      procedure BrowsBoradHeadActionExecute(Sender: TObject);          procedure BrowsBoradHeadActionExecute(Sender: TObject);
922      procedure BrowsBoradHeadActionUpdate(Sender: TObject);      procedure BrowsBoradHeadActionUpdate(Sender: TObject);
923      procedure EditNGActionExecute(Sender: TObject);      procedure EditNGActionExecute(Sender: TObject);
924      procedure ThreadRangeActionUpdate(Sender: TObject);      procedure ThreadRangeActionUpdate(Sender: TObject);
# Line 3607  begin Line 3607  begin
3607                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
3608                          TreeView.Refresh;                          TreeView.Refresh;
3609                  end;                  end;
3610             //   LockWindowUpdate(Self.Handle);  {               if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
                 if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin  
3611                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then
3612                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
3613                  end;                  end;
3614    }
3615                  ShowWindow(Thread.FBrowser.Handle, SW_SHOW);                  ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
                 //LockWindowUpdate(0);  
3616                  if (not Assigned(Thread.Browser.Document)) then begin                  if (not Assigned(Thread.Browser.Document)) then begin
3617                          Thread.Browser.Navigate('about:blank');                          Thread.Browser.Navigate('about:blank');
3618                  end;                  end;
# Line 5032  begin Line 5031  begin
5031                  case GikoSys.Setting.ListWidthState of                  case GikoSys.Setting.ListWidthState of
5032                          glsMax: begin                          glsMax: begin
5033                                  //通常表示にする                                  //通常表示にする
5034                                    if FActiveContent <> nil then
5035                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //描画停止
5036                                  ViewPanel.Width := FBrowserSizeWidth;                                  ViewPanel.Width := FBrowserSizeWidth;
5037                                  BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;                                  BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
5038                                  BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;                                  BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
5039                                  GikoSys.Setting.ListWidthState := glsNormal;                                  GikoSys.Setting.ListWidthState := glsNormal;
5040                                    if FActiveContent <> nil then
5041                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //描画
5042                          end;                          end;
5043                          glsMin, glsNormal: begin                          glsMin, glsNormal: begin
5044                                  //最大表示にする                                  //最大表示にする
5045                                    if FActiveContent <> nil then
5046                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //描画停止
5047                                  if GikoSys.Setting.ListWidthState = glsNormal then                                  if GikoSys.Setting.ListWidthState = glsNormal then
5048                                          FBrowserSizeWidth := ViewPanel.Width;                                          FBrowserSizeWidth := ViewPanel.Width;
5049                                    if FActiveContent <> nil then
5050                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //描画
5051                                  ViewPanel.Width := 1;                                  ViewPanel.Width := 1;
5052                                  BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;                                  BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
5053                                  BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;                                  BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
# Line 5051  begin Line 5058  begin
5058                  case GikoSys.Setting.ListHeightState of                  case GikoSys.Setting.ListHeightState of
5059                          glsMax: begin                          glsMax: begin
5060                                  //通常表示にする                                  //通常表示にする
5061                                    if FActiveContent <> nil then
5062                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //描画停止
5063                                  ViewPanel.Height := FBrowserSizeHeight;                                  ViewPanel.Height := FBrowserSizeHeight;
5064                                  BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;                                  BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
5065                                  BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;                                  BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
5066                                  GikoSys.Setting.ListHeightState := glsNormal;                                  GikoSys.Setting.ListHeightState := glsNormal;
5067                                    if FActiveContent <> nil then
5068                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //描画
5069                          end;                          end;
5070                          glsMin, glsNormal: begin                          glsMin, glsNormal: begin
5071                                  //最大表示にする                                  //最大表示にする
5072                                    if FActiveContent <> nil then
5073                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //描画停止
5074                                  if GikoSys.Setting.ListHeightState = glsNormal then                                  if GikoSys.Setting.ListHeightState = glsNormal then
5075                                          FBrowserSizeHeight := ViewPanel.Height;                                          FBrowserSizeHeight := ViewPanel.Height;
5076                                    if FActiveContent <> nil then
5077                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //描画
5078                                  ViewPanel.Height := 1;                                  ViewPanel.Height := 1;
5079                                  BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;                                  BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
5080                                  BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;                                  BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
# Line 5080  begin Line 5095  begin
5095                  case GikoSys.Setting.ListWidthState of                  case GikoSys.Setting.ListWidthState of
5096                          glsMax, glsNormal: begin                          glsMax, glsNormal: begin
5097                                  //最小表示にする                                  //最小表示にする
5098                                    if FActiveContent <> nil then
5099                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //描画停止
5100                                  if GikoSys.Setting.ListWidthState = glsNormal then                                  if GikoSys.Setting.ListWidthState = glsNormal then
5101                                          FBrowserSizeWidth := ViewPanel.Width;                                          FBrowserSizeWidth := ViewPanel.Width;
5102                                    if FActiveContent <> nil then
5103                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //描画
5104                                  ViewPanel.Width := ThreadMainPanel.Width - 80;                                  ViewPanel.Width := ThreadMainPanel.Width - 80;
5105                                  BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;                                  BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
5106                                  BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;                                  BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
# Line 5089  begin Line 5108  begin
5108                          end;                          end;
5109                          glsMin: begin                          glsMin: begin
5110                                  //通常表示にする                                  //通常表示にする
5111                                    if FActiveContent <> nil then
5112                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //描画停止
5113                                  ViewPanel.Width := FBrowserSizeWidth;                                  ViewPanel.Width := FBrowserSizeWidth;
5114                                  BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;                                  BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
5115                                  BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;                                  BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
5116                                  GikoSys.Setting.ListWidthState := glsNormal;                                  GikoSys.Setting.ListWidthState := glsNormal;
5117                                    if FActiveContent <> nil then
5118                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //描画
5119                          end;                          end;
5120                  end;                  end;
5121          end else begin          end else begin
5122                  case GikoSys.Setting.ListHeightState of                  case GikoSys.Setting.ListHeightState of
5123                          glsMax, glsNormal: begin                          glsMax, glsNormal: begin
5124                                  //最小表示にする                                  //最小表示にする
5125                                    if FActiveContent <> nil then
5126                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //描画停止
5127                                  if GikoSys.Setting.ListHeightState = glsNormal then                                  if GikoSys.Setting.ListHeightState = glsNormal then
5128                                          FBrowserSizeHeight := ViewPanel.Height;                                          FBrowserSizeHeight := ViewPanel.Height;
5129                                  ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7;                                  ViewPanel.Height := ThreadMainPanel.Height - BrowserCoolBar.Height - 7;
5130                                  BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;                                  BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
5131                                  BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;                                  BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
5132                                  GikoSys.Setting.ListHeightState := glsMin;                                  GikoSys.Setting.ListHeightState := glsMin;
5133                                    if FActiveContent <> nil then
5134                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //描画
5135                          end;                          end;
5136                          glsMin: begin                          glsMin: begin
5137                                  //通常表示にする                                  //通常表示にする
5138                                    if FActiveContent <> nil then
5139                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 0, 0);  //描画停止
5140                                  ViewPanel.Height := FBrowserSizeHeight;                                  ViewPanel.Height := FBrowserSizeHeight;
5141                                  BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;                                  BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
5142                                  BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;                                  BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
5143                                  GikoSys.Setting.ListHeightState := glsNormal;                                  GikoSys.Setting.ListHeightState := glsNormal;
5144                                    if FActiveContent <> nil then
5145                                            SendMessage(FActiveContent.FBrowser.Handle, WM_SETREDRAW, 1, 0);  //描画
5146                          end;                          end;
5147                  end;                  end;
5148          end;          end;
# Line 5334  end; Line 5365  end;
5365  procedure TGikoForm.FormResize(Sender: TObject);  procedure TGikoForm.FormResize(Sender: TObject);
5366  var  var
5367          doc                                             : Variant;          doc                                             : Variant;
5368            i : Integer;
5369  begin  begin
5370    
5371          MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;          MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;
5372          MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;          MainCoolBar.Width := TopPanel.Width - TopRightPanel.Width;
5373    
# Line 5359  begin Line 5392  begin
5392                  end;                  end;
5393          end;          end;
5394    
5395    
5396          FIsIgnoreResize := True;          FIsIgnoreResize := True;
5397          PostMessage( Handle, USER_RESIZED, 0, 0 );          PostMessage( Handle, USER_RESIZED, 0, 0 );
5398    
5399    
5400  end;  end;
5401    
5402  procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject);  procedure TGikoForm.ScrollTopActionUpdate(Sender: TObject);
# Line 7333  begin Line 7369  begin
7369                          GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 );                          GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 );
7370                          tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host));                          tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host));
7371                          tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2));                          tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2));
7372                          if (tmp1 <> tmp2) then begin                          if ( not GikoSys.Is2chHost(tmp1)) and (tmp1 <> tmp2) then begin
7373                                  GikoSys.OpenBrowser(URL, gbtUserApp);                                  GikoSys.OpenBrowser(URL, gbtUserApp);
7374                                  Exit;                                  Exit;
7375                          end;                          end;

Legend:
Removed from v.1.406  
changed lines
  Added in v.1.407

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26