Devexpress(퀀텀) Skin에서 현재 활성화된 모든 Skin의 이름을 가져오기…

yyjksw

14년 ago

Runtime에서 현재 퀀텀의 Skin이 뭐뭐 떠있는지 알아 내는 방법입니다.

2가지방법이 있습니다. 각자 선택을 하시면 될듯 합니다.

1번 가장 심플한 방식입니다.

  for I := 0 to GetExtendedStylePainters.Count - 1 do
    ListBox1.Items.Add( GetExtendedStylePainters.Items[i].Name );

1 2	for I := 0 to GetExtendedStylePainters.Count - 1 do ListBox1.Items.Add( GetExtendedStylePainters.Items[i].Name );

2번째는

var
  i : Integer;
  AResNameList, ASkinNameList : TStringList;
begin
  AResNameList := TStringList.Create;
  ASkinNameList := TStringList.Create;

    dxSkinsPopulateSkinResources(HInstance, AResNameList, ASkinNameList);
    for I := 0 to ASkinNameList.Count - 1 do
      ListBox1.Items.Add( ASkinNameList[i] + ' - '  + AResNameList[I] );

var

i : Integer;

AResNameList, ASkinNameList : TStringList;

begin

AResNameList := TStringList.Create;

ASkinNameList := TStringList.Create;

dxSkinsPopulateSkinResources(HInstance, AResNameList, ASkinNameList);

for I := 0 to ASkinNameList.Count - 1 do

ListBox1.Items.Add( ASkinNameList[i] + ' - ' + AResNameList[I] );

입니다.

이 글 공유하기: