| 525 |
TreeSelectLogDeletePopupMenu: TMenuItem; |
TreeSelectLogDeletePopupMenu: TMenuItem; |
| 526 |
N65: TMenuItem; |
N65: TMenuItem; |
| 527 |
BBSSelectPopupMenu: TPopupMenu; |
BBSSelectPopupMenu: TPopupMenu; |
| 528 |
|
PlugInMenu: TMenuItem; |
| 529 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 530 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 531 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 1032 |
property OddColor : TColor read FOddColor write FOddColor; |
property OddColor : TColor read FOddColor write FOddColor; |
| 1033 |
|
|
| 1034 |
function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton; |
function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton; |
| 1035 |
|
procedure OnPlugInMenuItem( Sender : TObject ); |
| 1036 |
|
|
| 1037 |
published |
published |
| 1038 |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
| 9196 |
CoolBarResized( Sender, BrowserCoolBar ); |
CoolBarResized( Sender, BrowserCoolBar ); |
| 9197 |
end; |
end; |
| 9198 |
|
|
| 9199 |
|
// ************************************************************************* |
| 9200 |
|
// ExternalBoardPlugInMain |
| 9201 |
|
// プラグインメニューの項目が実行された |
| 9202 |
|
// ************************************************************************* |
| 9203 |
|
procedure TGikoForm.OnPlugInMenuItem( Sender : TObject ); |
| 9204 |
|
var |
| 9205 |
|
item : TMenuItem; |
| 9206 |
|
boardPlugIn : TBoardPlugIn; |
| 9207 |
|
begin |
| 9208 |
|
|
| 9209 |
|
if not (Sender is TMenuItem) then |
| 9210 |
|
Exit; |
| 9211 |
|
|
| 9212 |
|
item := TMenuItem( Sender ); |
| 9213 |
|
if not Assigned( Pointer( item.Tag ) ) then |
| 9214 |
|
Exit; |
| 9215 |
|
|
| 9216 |
|
// プラグインのメニューハンドラを呼び出す |
| 9217 |
|
boardPlugIn := TBoardPlugIn( item.Tag ); |
| 9218 |
|
boardPlugIn.PlugInMenu( item.Handle ); |
| 9219 |
|
|
| 9220 |
|
end; |
| 9221 |
|
|
| 9222 |
initialization |
initialization |
| 9223 |
OleInitialize(nil); |
OleInitialize(nil); |
| 9224 |
finalization |
finalization |