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.634 by h677, Sat Apr 14 16:52:57 2007 UTC revision 1.635 by h677, Sun Apr 15 16:21:29 2007 UTC
# Line 417  type Line 417  type
417      HTML1: TMenuItem;      HTML1: TMenuItem;
418      DAT4: TMenuItem;      DAT4: TMenuItem;
419      N80: TMenuItem;      N80: TMenuItem;
420        SameBoardThreadItem: TMenuItem;
421        N81: TMenuItem;
422                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
423                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
424                  procedure BrowserStatusTextChange(Sender: TObject;                  procedure BrowserStatusTextChange(Sender: TObject;
# Line 680  type Line 682  type
682          procedure ShowEditors(nCmdShow: Integer);          procedure ShowEditors(nCmdShow: Integer);
683          //! もっとも古いBrowserの開放          //! もっとも古いBrowserの開放
684          procedure ReleaseOldestBrowser;          procedure ReleaseOldestBrowser;
685            //! アクティブなタブと同じ板の開いているスレッドをメニューアイテムに追加
686            procedure AddMenuSameBoardThread;
687            //!  アクティブなタブと同じ板の開いているスレッドクリックイベント
688            procedure SameBoardThreadSubItemOnClick(Sender: TObject);
689          protected          protected
690                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
691                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 6231  end; Line 6237  end;
6237  procedure TGikoForm.BrowserTabPopupMenuPopup(Sender: TObject);  procedure TGikoForm.BrowserTabPopupMenuPopup(Sender: TObject);
6238  begin  begin
6239          AddRoundNameMenu(dummy1);          AddRoundNameMenu(dummy1);
6240        AddMenuSameBoardThread;
6241    end;
6242    //! アクティブなタブと同じ板の開いているスレッドをメニューアイテムに追加
6243    procedure TGikoForm.AddMenuSameBoardThread;
6244    var
6245            i: Integer;
6246            Item: TMenuItem;
6247    begin
6248        SameBoardThreadItem.Clear;
6249        for i := 0 to BrowserTab.Tabs.Count - 1 do begin
6250            // 同じ板かどうか
6251            if (FActiveContent.Thread.ParentBoard =
6252                TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ParentBoard) then begin
6253                // 自分は外す
6254                if FActiveContent.Thread <>
6255                    TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread then begin
6256                    Item := TMenuItem.Create(Self);
6257                    Item.Caption := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.Title;
6258                    Item.OnClick := SameBoardThreadSubItemOnClick;
6259                    SameBoardThreadItem.Add(Item);
6260                end;
6261            end;
6262        end;
6263        // 何も無いなら使用できないようにする
6264        SameBoardThreadItem.Enabled := SameBoardThreadItem.Count > 0;
6265    end;
6266    //!  アクティブなタブと同じ板の開いているスレッドクリックイベント
6267    procedure TGikoForm.SameBoardThreadSubItemOnClick(Sender: TObject);
6268    var
6269            i, j: Integer;
6270            MenuItem: TMenuItem;
6271    begin
6272            if Sender is TMenuItem then begin
6273            try
6274                j := 0;
6275                MenuItem := TMenuItem(Sender);
6276                for i := 0 to BrowserTab.Tabs.Count - 1 do begin
6277                    // 同じ板かどうか
6278                    if (FActiveContent.Thread.ParentBoard =
6279                        TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ParentBoard) then begin
6280                        if FActiveContent.Thread <>
6281                            TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread then begin
6282                            if (SameBoardThreadItem.Items[j] = MenuItem) then begin
6283                                MoveToURL( TBrowserRecord(BrowserTab.Tabs.Objects[i])
6284                                    .Thread.URL);
6285                                Exit;
6286                            end;
6287                            Inc(j);
6288                        end;
6289                    end;
6290                end;
6291            except
6292            end;
6293            end;
6294  end;  end;
   
6295  procedure TGikoForm.FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);  procedure TGikoForm.FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
6296  begin  begin
6297          FavoriteDM.URLReplace(oldURLs, newURLs);          FavoriteDM.URLReplace(oldURLs, newURLs);
# Line 6436  begin Line 6495  begin
6495                  TreeDoubleClick( TreeView.Selected );                  TreeDoubleClick( TreeView.Selected );
6496          end else if Key = VK_RETURN then begin          end else if Key = VK_RETURN then begin
6497                  TreeClick( TreeView.Selected );                  TreeClick( TreeView.Selected );
6498                  TreeView.Selected.Expanded := not TreeView.Selected.Expanded;          // 履歴の場合、消されているのでチェックする
6499            if (TreeView.Selected <> nil) then begin
6500                    TreeView.Selected.Expanded := not TreeView.Selected.Expanded;
6501            end;
6502          end;          end;
6503  end;  end;
6504  //! お気に入りのMouseDownイベント  //! お気に入りのMouseDownイベント

Legend:
Removed from v.1.634  
changed lines
  Added in v.1.635

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