| 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); |
| 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 |
|
|
| 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); |
| 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; |
| 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 |