螺廬BCB議IDE 悶刮ToolsAPI

作者佚名技术来源程序设计浏览发布时间 2012-06-30

t->Strings[x],
　　　　　　　　　　　　　　　　　　　　 "NULL");
　　　　　　　　　　　　 if( Default != Value )
　　　　　　　　　　　　 {
　　　　　　　　　　　　　　 TMenuItem* MI = dynamic_cast<TMenuItem*>
　　　　　　　　　　　　　　　　 (AppBuilder->FindComponent(IdentList->Strings[x]));
　　　　　　　　　　　　　　 if(MI != NULL) MI->Caption = Value;
　　　　　　　　　　　　 }
　　　　　　　　　　 }
　　　　　　　　 }
　　　　　　 }
　　　　　　 #undef AppBuilder
　　　　　　 __finally
　　　　　　 {
　　　　　　　　 delete IdentList;
　　　　　　　　 delete SectionList;
　　　　　　 }
　　　　 }
　　 }
　　 //===[ BPL''s ''Main'' function or Entry Function. ]========================
　　 void __fastcall PACKAGE Register()
　　 {
　　　　 ini = new TIniFile(ChangeFileExt( Application->ExeName, ".INI" ));
　　　　 chsini = new TIniFile(ChangeFileExt( Application->ExeName, "CHS.INI" ));
　　　　 if( NeedLocalize ) LocalizeAppMenu();
　　　　 _di_INTAServices IDE;
　　　　 HRESULT hr = BorlandIDEServices->QueryInterface(__uuidof(INTAServices), (void **) &IDE);
　　　　 if (SUCCEEDED(hr))
　　　　 {
　　　　　 //----------[AppBuilder macro start]--------------------------------------
　　　　　 #ifndef AppBuilder
　　　　　 #define AppBuilder IDE->MainMenu->Owner
　　　　　 #endif
　　　　　 //----------[AppBuilder macro end　]--------------------------------------
　　　　　 for ( int i = 0; i<AppBuilder->ComponentCount; i++ )　// ComponentCount = 409
　　　　　 {
　　　　　　　　 if ( AppBuilder->Components[i]->ClassNameIs("TMainMenu") )　// MainMenu1
　　　　　　　　 {
　　　　　　　　　　 //----------[AppMainMenu macro start]--------------------------------------
　　　　　　　　　　 #ifndef AppMainMenu
　　　　　　　　　　 #define AppMainMenu dynamic_cast<TMainMenu*>( AppBuilder->Components[i])
　　　　　　　　　　 #endif
　　　　　　　　　　 //----------[AppMainMenu macro end　]--------------------------------------
　　　　　　　　　　 for ( int x = 0; x < AppMainMenu->Items->Count; x++ ) //count 11
　　　　　　　　　　 {
　　　　　　　　　　　　　 if(NeedWriteToIni) Section = AppMainMenu->Items->Items[x]->Name;
　　　　　　　　　　　　　 EnumerateMenuItem(AppMainMenu->Items->Items[x]);
　　　　　　　　　　 }//for finished.
　　　　　　　　　　 #undef AppMainMenu
　　　　　　　　 }//if finished.
　　　　　 }//for finished
　　　　　 #undef AppBuilder
　　　　 }
　　　　 else ShowMessage("Error:I Can''t Access IDE.\nYou''d better unload this module.");
　　　　 delete ini;
　　　　 delete chsini;
　　 }
　　 //===[ BPL''s ''Main'' function or Entry Function. ]========================
}//namespace finished.
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
　 return 1;
}

//---------------------------------------------------------------------------

我不是要弄个创天版BCB！！

这里是我写的中文化文件。

放在\bin下面，叫成BCBCHS.ini

[FileMenu]

FileMenu=文

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: 通过消息实现自定义输入框(InputBox)下一篇: 深入VCL理解BCB的消息机制1

关于螺廬BCB議IDE 悶刮ToolsAPI的所有评论

随机推荐