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.217 by yoffy, Thu Mar 18 02:32:51 2004 UTC revision 1.218 by yoffy, Thu Mar 18 03:37:12 2004 UTC
# Line 525  type Line 525  type
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);
# Line 1031  type Line 1032  type
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;
# Line 9194  begin Line 9196  begin
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

Legend:
Removed from v.1.217  
changed lines
  Added in v.1.218

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