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.422 by yoffy, Fri Sep 10 16:14:47 2004 UTC revision 1.423 by h677, Sat Sep 11 13:58:54 2004 UTC
# Line 579  type Line 579  type
579                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
580                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
581                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
                 procedure FormClose(Sender: TObject; var Action: TCloseAction);  
582                  procedure ListViewData(Sender: TObject; Item: TListItem);                  procedure ListViewData(Sender: TObject; Item: TListItem);
583                  procedure ListViewDataFind(Sender: TObject; Find: TItemFind;                  procedure ListViewDataFind(Sender: TObject; Find: TItemFind;
584                          const FindString: String; const FindPosition: TPoint;                          const FindString: String; const FindPosition: TPoint;
# Line 807  type Line 806  type
806                  procedure SelectComboBoxExit(Sender: TObject);                  procedure SelectComboBoxExit(Sender: TObject);
807                  procedure SelectResActionExecute(Sender: TObject);                  procedure SelectResActionExecute(Sender: TObject);
808                  procedure SelectResActionUpdate(Sender: TObject);                  procedure SelectResActionUpdate(Sender: TObject);
                 procedure FormKeyUp(Sender: TObject; var Key: Word;  
                         Shift: TShiftState);  
809                  procedure AllResActionExecute(Sender: TObject);                  procedure AllResActionExecute(Sender: TObject);
810                  procedure AllResActionUpdate(Sender: TObject);                  procedure AllResActionUpdate(Sender: TObject);
811                  procedure ReloadClick(Sender: TObject);                  procedure ReloadClick(Sender: TObject);
# Line 992  type Line 989  type
989                  FMouseDownPos           : TPoint;                               // ブラウザタブでマウスを押したときの座標                  FMouseDownPos           : TPoint;                               // ブラウザタブでマウスを押したときの座標
990                  FBrowsers: TList;                  FBrowsers: TList;
991                  FResRangeMenuSelect     : Longint;              ///< ResRangeButton で選択されている項目 (フォーマットは ResRange 互換)                  FResRangeMenuSelect     : Longint;              ///< ResRangeButton で選択されている項目 (フォーマットは ResRange 互換)
992                    FStartUp : Boolean;
993                  procedure SetBoardTreeNode( inBBS : TBBS );                  procedure SetBoardTreeNode( inBBS : TBBS );
994                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;                  function SetCategoryListItem(ABBS2ch: TBBS): Integer;
995                  function SetBoardListItem(Category: TCategory): Integer;                  function SetBoardListItem(Category: TCategory): Integer;
# Line 1295  begin Line 1293  begin
1293          Writeln(' 終了時は、ギコナビウィンドウを閉じてください');          Writeln(' 終了時は、ギコナビウィンドウを閉じてください');
1294          Writeln('============================================================');          Writeln('============================================================');
1295  {$ENDIF}  {$ENDIF}
1296            FStartUp := false;
1297          Application.OnDeactivate := AppFormDeactivate;          Application.OnDeactivate := AppFormDeactivate;
1298          Self.OnDeactivate := AppFormDeactivate;          Self.OnDeactivate := AppFormDeactivate;
1299          Application.HookMainWindow(Hook);          Application.HookMainWindow(Hook);
1300          Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ          Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ
1301          Self.DoubleBuffered := true;  //      Self.DoubleBuffered := true;
1302          FTreeType := gttNone;          FTreeType := gttNone;
1303    
1304          FSearchDialog := nil;          FSearchDialog := nil;
# Line 1314  begin Line 1313  begin
1313                  newBrowser.Align := alNone;                  newBrowser.Align := alNone;
1314                  newBrowser.Left := 0;                  newBrowser.Left := 0;
1315                  newBrowser.Top  := 0;                  newBrowser.Top  := 0;
1316          //newBrowser.DoubleBuffered := true;                  newBrowser.StatusBar    := false;
1317                    newBrowser.MenuBar              := false;
1318                    newBrowser.AddressBar   := false;
1319                  newBrowser.OnDocumentComplete   := BrowserDocumentComplete;                  newBrowser.OnDocumentComplete   := BrowserDocumentComplete;
1320                  newBrowser.OnBeforeNavigate2    := BrowserBeforeNavigate2;                  newBrowser.OnBeforeNavigate2    := BrowserBeforeNavigate2;
1321                  newBrowser.OnEnter                              := BrowserEnter;                  newBrowser.OnEnter                              := BrowserEnter;
1322                  newBrowser.OnNewWindow2                 := BrowserNewWindow2;                  newBrowser.OnNewWindow2                 := BrowserNewWindow2;
1323                  newBrowser.OnStatusTextChange   := BrowserStatusTextChange;                  newBrowser.OnStatusTextChange   := BrowserStatusTextChange;
                 //newBrowser.OnTitleChange              := BrowserTitleChange;  
1324                  newBrowser.Navigate(BLANK_HTML);                  newBrowser.Navigate(BLANK_HTML);
1325                  ShowWindow(newBrowser.Handle, SW_HIDE);                  ShowWindow(newBrowser.Handle, SW_HIDE);
1326    
# Line 1818  end; Line 1818  end;
1818  //  //
1819  procedure TGikoForm.FormShow(Sender: TObject);  procedure TGikoForm.FormShow(Sender: TObject);
1820  begin  begin
1821          ShowWindow(Application.Handle, SW_HIDE);          if not FStartUp then begin
1822                    ShowWindow(Application.Handle, SW_HIDE);
1823    
1824          //FormCreateでやると可視設定が反映されない場合があるのでFormShowでやることにした                  //FormCreateでやると可視設定が反映されない場合があるのでFormShowでやることにした
1825          //ツールバー表示                  //ツールバー表示
1826          StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;                  StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1827          StdToolBarVisibleActionExecute( nil );                  StdToolBarVisibleActionExecute( nil );
1828          AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;                  AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1829          AddressBarVisibleActionExecute( nil );                  AddressBarVisibleActionExecute( nil );
1830          LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;                  LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1831          LinkBarVisibleActionExecute( nil );                  LinkBarVisibleActionExecute( nil );
1832          ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;                  ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1833          ListToolBarVisibleActionExecute( nil );                  ListToolBarVisibleActionExecute( nil );
1834          ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;                  ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1835          ListNameBarVisibleActionExecute( nil );                  ListNameBarVisibleActionExecute( nil );
1836          BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;                  BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1837          BrowserToolBarVisibleActionExecute( nil );                  BrowserToolBarVisibleActionExecute( nil );
1838          BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;                  BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1839          BrowserNameBarVisibleActionExecute( nil );                  BrowserNameBarVisibleActionExecute( nil );
1840    
1841          //ブラウザタブ                  //ブラウザタブ
1842          BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;                  BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1843          BrowserTabVisibleActionExecute(nil);                  BrowserTabVisibleActionExecute(nil);
   
         if GikoSys.Setting.BrowserTabPosition = gtpTop then begin  
                 BrowserTabTopAction.Checked := True;  
                 BrowserTabTopActionExecute(nil);  
         end else begin  
                 BrowserTabBottomAction.Checked := True;  
                 BrowserTabBottomActionExecute(nil);  
         end;  
1844    
1845          if GikoSys.Setting.BrowserTabStyle = gtsTab then begin                  if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1846                  BrowserTabTabStyleAction.Checked := True;                          BrowserTabTopAction.Checked := True;
1847                  BrowserTabTabStyleActionExecute(nil);                          BrowserTabTopActionExecute(nil);
1848          end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin                  end else begin
1849                  BrowserTabButtonStyleAction.Checked := True;                          BrowserTabBottomAction.Checked := True;
1850                  BrowserTabButtonStyleActionExecute(nil);                          BrowserTabBottomActionExecute(nil);
1851          end else begin                  end;
1852                  BrowserTabFlatStyleAction.Checked := True;  
1853                  BrowserTabFlatStyleActionExecute(nil);                  if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1854          end;                          BrowserTabTabStyleAction.Checked := True;
1855                            BrowserTabTabStyleActionExecute(nil);
1856                    end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1857                            BrowserTabButtonStyleAction.Checked := True;
1858                            BrowserTabButtonStyleActionExecute(nil);
1859                    end else begin
1860                            BrowserTabFlatStyleAction.Checked := True;
1861                            BrowserTabFlatStyleActionExecute(nil);
1862                    end;
1863    
1864          // ListView のヘッダドラッグ                  // ListView のヘッダドラッグ
1865          ListView.LVMInstallHeaderDrag;                  ListView.LVMInstallHeaderDrag;
1866    
1867          // CoolBar 復元                  // CoolBar 復元
1868          LoadCoolBarSettings;                  LoadCoolBarSettings;
1869    
1870          FIsIgnoreResize := False;                  FIsIgnoreResize := False;
1871    
1872          //TabAutoLoad                  //TabAutoLoad
1873          //FormCreteから移動。                  //FormCreteから移動。
1874          if GikoSys.Setting.TabAutoLoadSave then begin                  if GikoSys.Setting.TabAutoLoadSave then begin
1875                  TabAutoLoadAction.Execute;                          TabAutoLoadAction.Execute;
1876                    end;
1877                    FStartUp := true;
1878          end;          end;
   
1879  end;  end;
1880    
1881  procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);  procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
# Line 2082  begin Line 2084  begin
2084    
2085  end;  end;
2086    
 //フォームクローズ  
 procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction);  
 begin  
 end;  
2087  //キャビネット×ボタンクリック  //キャビネット×ボタンクリック
2088  procedure TGikoForm.CabinetPanelHide(Sender: TObject);  procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2089  begin  begin
# Line 3789  begin Line 3787  begin
3787                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;                          if ThreadItem.ParentBoard.UnRead < 0 then ThreadItem.ParentBoard.UnRead := 0;
3788                          TreeView.Refresh;                          TreeView.Refresh;
3789                  end;                  end;
3790  {               if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin                  if(FActiveContent <> nil) and (FActiveContent <> Thread) then begin
3791                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then                          if (FActiveContent.Browser <> BrowserNullTab.Browser) then
3792                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);                                  ShowWindow(FActiveContent.Browser.Handle, SW_HIDE);
3793                  end;                  end;
3794  }  
3795                  ShowWindow(Thread.FBrowser.Handle, SW_SHOW);                  ShowWindow(Thread.FBrowser.Handle, SW_SHOW);
3796                  if (not Assigned(Thread.Browser.Document)) then begin                  if (not Assigned(Thread.Browser.Document)) then begin
3797                          Thread.Browser.Navigate('about:blank');                          Thread.Browser.Navigate('about:blank');
# Line 3915  end; Line 3913  end;
3913    
3914  procedure TGikoForm.SetActiveList(Obj: TObject);  procedure TGikoForm.SetActiveList(Obj: TObject);
3915  var  var
         i               : Integer;  
3916          idx     : Integer;          idx     : Integer;
3917  begin  begin
3918  //      if FActiveList <> Obj then begin  //      if FActiveList <> Obj then begin
# Line 5536  end; Line 5533  end;
5533  procedure TGikoForm.FormResize(Sender: TObject);  procedure TGikoForm.FormResize(Sender: TObject);
5534  var  var
5535          doc                                             : Variant;          doc                                             : Variant;
         i : Integer;  
5536  begin  begin
5537    
5538          MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;          MessageListView.Column[0].Width := MessageListView.ClientWidth - 32;
# Line 9013  begin Line 9009  begin
9009          SelectResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);          SelectResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
9010  end;  end;
9011    
 procedure TGikoForm.FormKeyUp(Sender: TObject; var Key: Word;  
         Shift: TShiftState);  
 begin  
 end;  
   
9012  // 全てのレスを表示  // 全てのレスを表示
9013  procedure TGikoForm.AllResActionExecute(Sender: TObject);  procedure TGikoForm.AllResActionExecute(Sender: TObject);
9014  var  var

Legend:
Removed from v.1.422  
changed lines
  Added in v.1.423

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