在項目中動態加載 DevExpress 擴展皮膚庫

 

DevExpress Skins 在V47 中共發佈了28套皮膚，每套皮膚庫約200K至600K，總計約9.6M。

 

 

皮膚庫文件命名：dxSkin皮膚名140.bpl 

 

 

在主窗口中應放置 TdxSkinController  組件, 組件名爲 SkinController

動態加載皮膚庫的主程序應當採用帶庫編譯, 完全編譯將造成不可預測的結果

每個皮膚庫編譯後,不要安裝到RAD開發環境, 如果是測試則是例外

 

程序代碼,  關鍵是採用 SetSkinPackage 函數

 

// .h private: DWord SkinPackage; public: bool __fastcall SetSkinPackage(String ASkinName); // .cpp //--------------------------------------------------------------------------- bool __fastcall TMainForm::SetSkinPackage(String ASkinName) { String APath = ExtractFilePath(Application->ExeName) + "Skins//dxSkin"; bool SkinConfiged = false; if (!SameText(ASkinName, SkinController->SkinName)) if (SameText(ASkinName, "UserSkin") || ASkinName.IsEmpty()) { // UserSkin 是內部皮膚庫; 空即是默認,即不使用皮膚庫 SkinController->SkinName = ASkinName; if (SkinPackage) try { UnloadPackage(SkinPackage); // 卸掉已裝載的庫 } catch (...) {} SkinPackage = 0; SkinConfiged = true; } else if (FileExists(APath + ASkinName + "140.bpl")) try { DWord APackage = LoadPackage(APath + ASkinName + "140.bpl"); if (APackage) // 已經裝入 try { TcxExtendedStylePainters * APainters = GetExtendedStylePainters(); // 檢查是否存在於皮膚列表 for (int i = 0; i < APainters->Count; i++) if (SameText(APainters->Names[i], ASkinName)) // 找到剛裝入的皮膚 { // 激活這個皮膚 SkinController->SkinName = ASkinName; if (SkinPackage) // 檢查是否已經裝過其他皮膚庫 try { // 卸掉舊皮肢庫 UnloadPackage(SkinPackage); } catch (...) {} // 重設庫指針 SkinPackage = APackage; break; } } catch (...) {} // 一般出現下列情況是上面的TRY有問題了 if (APackage && SkinPackage != APackage) UnloadPackage(APackage); // 檢查是否新皮膚庫已經激活 SkinConfiged = SameText(SkinController->SkinName, ASkinName); } catch (...) { } return SkinConfiged; // 皮膚更新狀態 } //---------------------------------------------------------------------------