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.173 by h677, Sun Dec 7 10:47:10 2003 UTC revision 1.174 by h677, Mon Dec 8 10:24:42 2003 UTC
# Line 513  type Line 513  type
513                  FavoriteTreeViewBrowseBoardAction: TAction;                  FavoriteTreeViewBrowseBoardAction: TAction;
514                  FavoriteTreeViewBrowseThreadAction: TAction;                  FavoriteTreeViewBrowseThreadAction: TAction;
515                  UpBoardAction: TAction;                  UpBoardAction: TAction;
516        N18: TMenuItem;
517        N20: TMenuItem;
518        N24: TMenuItem;
519        N62: TMenuItem;
520                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
521                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
522                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 816  type Line 820  type
820                  procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);                  procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
821                  procedure UpBoardActionExecute(Sender: TObject);                  procedure UpBoardActionExecute(Sender: TObject);
822                  procedure UpBoardActionUpdate(Sender: TObject);                  procedure UpBoardActionUpdate(Sender: TObject);
823        procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
824          var Handled: Boolean);
825          private          private
826                  { Private 宣言 }                  { Private 宣言 }
827    
# Line 5301  begin Line 5307  begin
5307                                  BrowserTab.OnChange(nil);                                  BrowserTab.OnChange(nil);
5308                          end;                          end;
5309                  end;                  end;
5310          end else if Button = mbRight then begin          //end else if Button = mbRight then begin
5311                  // マウス右ボタン          //PopupMenuでBrowserTabPoupMenuを指定しているのでここでわざわざ呼び出すと2重になる
5312        //OnContextPopupでもしもActiveなTab以外で呼び出されたらTabを切り替えるようにした。
5313    {               // マウス右ボタン
5314                  GetCursorPos(p);                  GetCursorPos(p);
5315                  p2 := p;                  p2 := p;
5316  //              GetCursorPos(p2);  //              GetCursorPos(p2);
# Line 5317  begin Line 5325  begin
5325                          BrowserTabPopupMenu.Tag := idx;                          BrowserTabPopupMenu.Tag := idx;
5326                          BrowserTabPopupMenu.Popup(p2.X, p2.Y);                          BrowserTabPopupMenu.Popup(p2.X, p2.Y);
5327                  end;                  end;
5328    }
5329          end else if BUtton = mbLeft then begin          end else if BUtton = mbLeft then begin
5330                          FDragWFirst := true;                          FDragWFirst := true;
5331          end;          end;
# Line 8680  begin Line 8689  begin
8689    
8690  end;  end;
8691    
8692    procedure TGikoForm.BrowserTabContextPopup(Sender: TObject;
8693      MousePos: TPoint; var Handled: Boolean);
8694    var
8695            idx : Integer;
8696    begin
8697        idx := BrowserTab.IndexOfTabAt(MousePos.X, MousePos.Y);
8698        if BrowserTab.TabIndex <> idx then begin
8699                    BrowserTab.TabIndex := idx;
8700            BrowserTab.OnChange(nil);
8701        end;
8702    
8703    end;
8704    
8705  initialization  initialization
8706                                  OleInitialize(nil);                                  OleInitialize(nil);
8707  finalization  finalization

Legend:
Removed from v.1.173  
changed lines
  Added in v.1.174

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