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.546 by h677, Wed Nov 23 07:56:45 2005 UTC revision 1.547 by h677, Wed Nov 23 15:07:46 2005 UTC
# Line 370  type Line 370  type
370      TabSave: TMenuItem;      TabSave: TMenuItem;
371          TabOpen: TMenuItem;          TabOpen: TMenuItem;
372      ResRangePopupMenu: TPopupMenu;      ResRangePopupMenu: TPopupMenu;
373      N1001: TMenuItem;      ResRangeHundPMenuItem: TMenuItem;
374          N501: TMenuItem;      ResRangeKokoPMenuItem: TMenuItem;
375      N22: TMenuItem;      ResRangeNewPMenuItem: TMenuItem;
376      A14: TMenuItem;      ResRangeAllPMenuItem: TMenuItem;
377      BrowsBoradHeadAction1: TMenuItem;      BrowsBoradHeadAction1: TMenuItem;
378      ThreadRangePopupMenu: TPopupMenu;      ThreadRangePopupMenu: TPopupMenu;
379      A15: TMenuItem;      A15: TMenuItem;
# Line 382  type Line 382  type
382      N68: TMenuItem;      N68: TMenuItem;
383      S6: TMenuItem;      S6: TMenuItem;
384      N69: TMenuItem;      N69: TMenuItem;
385      S7: TMenuItem;      ResRangeSelectPMenuItem: TMenuItem;
386      ListColumnPopupMenu: TPopupMenu;      ListColumnPopupMenu: TPopupMenu;
387      N70: TMenuItem;      N70: TMenuItem;
388      ID1: TMenuItem;      ID1: TMenuItem;
# Line 651  type Line 651  type
651                  function GetScreenCursor(): TCursor;                  function GetScreenCursor(): TCursor;
652                  //カーソルを設定する                  //カーソルを設定する
653                  procedure SetScreenCursor(Cursor : TCursor);                  procedure SetScreenCursor(Cursor : TCursor);
654                    //! アクションのチェック状態の初期化
655                    procedure InitActionChecked();
656          protected          protected
657                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
658                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 1081  begin Line 1083  begin
1083          FNameCookie := '';          FNameCookie := '';
1084          FMailCookie := '';          FMailCookie := '';
1085    
         //スレ全部表示ボタンを押された状態にする  
         GikoDM.AllItemAction.Checked := True;  
         GikoDM.AllResAction.Checked := True;  
   
1086          //ブラウザサイズ変更の初期化          //ブラウザサイズ変更の初期化
1087          FBrowserSizeHeight := GikoSys.Setting.ListHeight;          FBrowserSizeHeight := GikoSys.Setting.ListHeight;
1088          FBrowserSizeWidth := GikoSys.Setting.ListWidth;          FBrowserSizeWidth := GikoSys.Setting.ListWidth;
# Line 1224  begin Line 1222  begin
1222    
1223          //リンクバー          //リンクバー
1224          SetLinkBar;          SetLinkBar;
   
         // レス表示範囲  
         FResRangeMenuSelect := GikoSys.ResRange;  
         case GikoSys.ResRange of  
         Ord( grrAll ):  
                 begin  
                         GikoDM.AllResAction.Execute;  
                 end;  
         Ord( grrSelect ):  
                 begin  
                         SelectComboBox.Text := SelectComboBox.Items[ 1 ];  
                         GikoDM.SelectResAction.Checked := True;  
                 end;  
         else  
 //              ResRangeAction.Execute;  
                 case FResRangeMenuSelect of  
                 Ord( grrKoko ): GikoDM.OnlyKokoResAction.Checked        := True;  
                 Ord( grrNew ):  GikoDM.OnlyNewResAction.Checked := True;  
                 100:                    GikoDM.OnlyAHundredResAction.Checked            := True;  
                 end;  
         end;  
   
         // スレッド一覧表示範囲  
 //      ThreadRangeAction.Execute;  
         case GikoSys.Setting.ThreadRange of  
         gtrAll:  
                 begin  
                         GikoDM.AllItemAction.Checked := True;  
                         ViewType := gvtAll;  
                 end;  
         gtrLog:  
                 begin  
                         GikoDM.LogItemAction.Checked := True;  
                         ViewType := gvtLog;  
                 end;  
         gtrNew:  
                 begin  
                         GikoDM.NewItemAction.Checked := True;  
                         ViewType := gvtNew;  
                 end;  
         end;  
   
   
1225          //クールバー復元はFormShowに移動した          //クールバー復元はFormShowに移動した
1226    
1227          //ボードファイルが無い場合はメッセージ表示          //ボードファイルが無い場合はメッセージ表示
# Line 1287  begin Line 1242  begin
1242          //ResHint          //ResHint
1243          FHint := TResPopup.Create(Self);          FHint := TResPopup.Create(Self);
1244    
1245      ListView.OnData := TListViewUtils.ListViewData;          ListView.OnData := TListViewUtils.ListViewData;
1246    
1247          // 最後に選択されたキャビネットの復元          // 最後に選択されたキャビネットの復元
1248          CabinetVisible( False );          CabinetVisible( False );
# Line 1348  begin Line 1303  begin
1303          if GikoSys.Setting.AutoLogin then          if GikoSys.Setting.AutoLogin then
1304                  GikoDM.LoginAction.Execute;                  GikoDM.LoginAction.Execute;
1305    
         GikoDM.MuteAction.Checked := GikoSys.Setting.Mute;  
   
1306          GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin;          GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin;
1307    
1308          //キャプションが上書きされてしまうので、ここで再設定          //キャプションが上書きされてしまうので、ここで再設定
1309          FavoriteAddToolButton.Caption := '追加...';          FavoriteAddToolButton.Caption := '追加...';
1310      AntiIndivAbonMenuItem.Caption := '個別あぼ〜ん解除';          AntiIndivAbonMenuItem.Caption := '個別あぼ〜ん解除';
1311    
1312  end;  end;
1313    
# Line 1528  begin Line 1481  begin
1481                  //重要 これがないとツールボタンの更新がおかしくなる                  //重要 これがないとツールボタンの更新がおかしくなる
1482  //              ResetBandInfo( ListCoolBar, ListToolBar );  //              ResetBandInfo( ListCoolBar, ListToolBar );
1483                  FIsIgnoreResize := rtNone;                  FIsIgnoreResize := rtNone;
1484                    //ツールバーの更新を終えた後にやらないといけないのかも
1485                    //アクションのチェック状態を初期化
1486                    InitActionChecked();
1487    
                 //TabAutoLoad  
1488                  //FormCreteから移動。                  //FormCreteから移動。
1489                  if GikoSys.Setting.TabAutoLoadSave then begin                  if GikoSys.Setting.TabAutoLoadSave then begin
1490                          GikoDM.TabAutoLoadAction.Execute;                          GikoDM.TabAutoLoadAction.Execute;
1491                  end;                  end;
1492                                  //にちゃん語案内サポート機能                  //にちゃん語案内サポート機能
1493                                  if GikoSys.Setting.GengoSupport then begin                  if GikoSys.Setting.GengoSupport then begin
1494                                  //予定地                  //予定地
1495                                  //Test向け                  //Test向け
1496                                  end;                  end;
1497    
1498                  FStartUp := false;                  FStartUp := false;
1499          end;          end;
1500  end;  end;
# Line 7849  begin Line 7805  begin
7805          s := s + E.Message;          s := s + E.Message;
7806          MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP);          MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP);
7807  end;  end;
7808    // *************************************************************************
7809    //! アクションのチェック状態の初期化 FormのCreateで呼び出しても反映しない
7810    // *************************************************************************
7811    procedure TGikoForm.InitActionChecked();
7812    begin
7813            //ログイン状態を再設定
7814            GikoDM.LoginAction.Checked := GikoDM.LoginAction.Checked;
7815        //ミュートの状態を設定
7816            GikoDM.MuteAction.Checked := GikoSys.Setting.Mute;
7817    
7818            //スレ全部表示ボタンを押された状態にする
7819            GikoDM.AllItemAction.Checked := True;
7820            GikoDM.AllResAction.Checked := True;
7821    
7822            // レス表示範囲
7823            FResRangeMenuSelect := GikoSys.ResRange;
7824            case GikoSys.ResRange of
7825            Ord( grrAll ):
7826                    begin
7827                            GikoDM.AllResAction.Execute;
7828                    end;
7829            Ord( grrSelect ):
7830                    begin
7831                            SelectComboBox.Text := SelectComboBox.Items[ 1 ];
7832                            GikoDM.SelectResAction.Checked := True;
7833                    end;
7834            else
7835                    case FResRangeMenuSelect of
7836                    Ord( grrKoko ): GikoDM.OnlyKokoResAction.Checked        := True;
7837                    Ord( grrNew ):  GikoDM.OnlyNewResAction.Checked := True;
7838                    100:                    GikoDM.OnlyAHundredResAction.Checked            := True;
7839                    end;
7840            end;
7841    
7842            // スレッド一覧表示範囲
7843            case GikoSys.Setting.ThreadRange of
7844            gtrAll:
7845                    begin
7846                            GikoDM.AllItemAction.Checked := True;
7847                            ViewType := gvtAll;
7848                    end;
7849            gtrLog:
7850                    begin
7851                            GikoDM.LogItemAction.Checked := True;
7852                            ViewType := gvtLog;
7853                    end;
7854            gtrNew:
7855                    begin
7856                            GikoDM.NewItemAction.Checked := True;
7857                            ViewType := gvtNew;
7858                    end;
7859            end;
7860    end;
7861    
7862  initialization  initialization
7863                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.546  
changed lines
  Added in v.1.547

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