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.465 by h677, Tue Oct 19 12:55:38 2004 UTC revision 1.466 by h677, Tue Oct 19 15:19:34 2004 UTC
# Line 1840  end; Line 1840  end;
1840  //  //
1841  //  //
1842  procedure TGikoForm.FormShow(Sender: TObject);  procedure TGikoForm.FormShow(Sender: TObject);
1843    var
1844            i: Integer;
1845  begin  begin
1846          if not FStartUp then begin          if not FStartUp then begin
1847                  ShowWindow(Application.Handle, SW_HIDE);                  ShowWindow(Application.Handle, SW_HIDE);
# Line 1897  begin Line 1899  begin
1899                  if GikoSys.Setting.TabAutoLoadSave then begin                  if GikoSys.Setting.TabAutoLoadSave then begin
1900                          TabAutoLoadAction.Execute;                          TabAutoLoadAction.Execute;
1901                  end;                  end;
1902                  //にちゃん語案内サポート機能                                  //にちゃん語案内サポート機能
1903                  if GikoSys.Setting.GengoSupport then begin                                  if GikoSys.Setting.GengoSupport then begin
1904                  //予定地                                  //予定地
1905                  //Test向け                                  //Test向け
1906                  end;                                  end;
1907    
1908                  FStartUp := true;                  FStartUp := true;
1909          end;          end;
# Line 3826  begin Line 3828  begin
3828                  Thread.Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);                  Thread.Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
3829                  FBrowsers.Move(BROWSER_COUNT - 1, 0);                  FBrowsers.Move(BROWSER_COUNT - 1, 0);
3830          end;          end;
3831    
3832            //MoveWindow(Thread.FBrowser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false);
3833            
3834          ThreadTitle := Thread.Thread.Title;          ThreadTitle := Thread.Thread.Title;
3835          ThreadPTitle := Thread.Thread.ParentBoard.Title;          ThreadPTitle := Thread.Thread.ParentBoard.Title;
3836          ThreadScrollTop := Thread.Thread.ScrollTop;          ThreadScrollTop := Thread.Thread.ScrollTop;
# Line 3849  begin Line 3854  begin
3854                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
3855                          TreeView.Refresh;                          TreeView.Refresh;
3856                  end;                  end;
3857          }                  }
3858    
3859                  if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin                  if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
3860                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then
3861                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
# Line 6457  begin Line 6463  begin
6463                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true;
6464                                  FBrowsers.Move(BROWSER_COUNT - 1, 0);                                  FBrowsers.Move(BROWSER_COUNT - 1, 0);
6465                          end;                          end;
6466                            MoveWindow(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false);
6467                          TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;                          TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront;
6468  //                      GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;  //                      GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
6469  //                      OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;  //                      OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred;
# Line 11851  end; Line 11858  end;
11858    
11859  procedure TGikoForm.BrowserPanelCanResize(Sender: TObject; var NewWidth,  procedure TGikoForm.BrowserPanelCanResize(Sender: TObject; var NewWidth,
11860    NewHeight: Integer; var Resize: Boolean);    NewHeight: Integer; var Resize: Boolean);
 var  
         i: Integer;  
11861  begin  begin
11862          for i := FBrowsers.Count - 1 downto 0 do begin          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
11863                  if FBrowsers[i] <> nil then                  MoveWindow(FActiveContent.Browser.Handle, 0, 0, NewWidth, NewHeight, false);
                         MoveWindow(TWebBrowser(FBrowsers[i]).Handle, 0, 0, NewWidth, NewHeight, false);  
11864          end;          end;
   
11865  end;  end;
11866    
11867  initialization  initialization

Legend:
Removed from v.1.465  
changed lines
  Added in v.1.466

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