2016-11-03 4 views
1

からスキンを削除します。私が使用しcxLookAndFeelPaintersmanager

procedure TMain_Form.FormActivate(Sender: TObject); 
var I:integer; 
begin 
for I := 0 to cxLookAndFeelPaintersmanager.Count -1 do 
dxBarCombo1.Items.Add(cxLookAndFeelPaintersmanager.items[i].lookandfeelname); 
end; 

procedure TMain_Form.dxBarCombo1Change(Sender: TObject); 
begin 
Data_Module.dxskincontroller1.SkinName:= dxBarCombo1.Text; 
end; 

を[OK]を動作しますが...私はどのように私はそれらを削除することができますので、好きではないが、いくつかのスキンがありますか? dxBarCombo1にリストされないようにします。

+0

'dxBarCombo1.Items.Delete(Index)'はあなたのためには機能しませんか?または 'cxLookAndFeelPaintersmanager.Items [i] .lookandfeelname <> 'NameYouDontWant' then dxBarCombo1.Items.Add();' –

+0

それは簡単ですか?私はある種の* .pasを修正しなければならないと思った。はい、これは確かに機能します。ありがとう、ケン。あなたは答えを投稿することができます。ニース!ありがとうございました。 – user3351050

答えて

2

最初にアイテムにアイテムが追加されないようにする方法があるかもしれません。 DevExはドキュメントのオンライン版を作成していないので、フォーラムで何も見つけられませんでした。しかし、その情報がなくても、心に浮かぶオプションがいくつかあります。

彼らはコンボボックスにいるの後にあなたがそれらを削除することができます。

dxBarCombo1.Items.Delete(Index); 

それとも、好むならば、彼らはそこに着く前に、それらをキャッチ:「プロジェクトへ

for I := 0 to cxLookAndFeelPaintersmanager.Count -1 do 
begin 
    if cxLookAndFeelPaintersmanager.Items[i].lookandfeelname <> 'NameYouDontWant' then 
    dxBarCombo1.Items.Add(cxLookAndFeelPaintersmanager.Items[i].lookandfeelname); 
end; 
+0

2番目のオプションはやや良いです – user3351050

+0

ありがとう... – user3351050

+0

@ user3351050:Stefanの答えは、あなたが正しいと受け入れるものでなければなりません。それは私よりはるかに正確です。 –

5

ゴー - > IDEの「スキンオプションの変更」を参照してください。ここで、アプリケーションに含めるスキンを選択できます。これらのオプションは、TdxSkinControllerコンポーネントのコンテキストメニューでも使用できます。

+1

この回答は私の代わりに受け入れられるものでなければなりません。それは適切な解決策です(私はおそらく私の最初の段落に存在すると言いました)。私はそれが完了することを求めるためにOPに手を差し伸べました。 –