Блог


Последние записи


Теги

Информация

DevExpress - получить список скинов программно

добавлено: 01 ноя 13
понравилось:0
просмотров: 3142
комментов: 5

теги:

Автор: X11

Как получить список скинов (DevExpress skins) и загрузить их (скины) в Combobox


uses LookAndFeelPainters;
...

procedure GetSkins(comboSkins: TcxCombobox);
Var
 PaintersManager : TcxCustomLookAndFeelPainter;
 i: integer;
begin
  //загружаем список скинов
  comboSkins.Properties.Items.Clear;
  comboSkins.Properties.Items.Add('');//пустую строку тоже нужно добавить, чтобы пользоватtль мог отменять выбор скина

  for i := 0 to Pred(cxLookAndFeelPaintersManager.Count) do
    comboSkins.Properties.Items.Add(cxLookAndFeelPaintersManager.Items[i].LookAndFeelName);

end;



Как получить список скинов (DevExpress skins) и загрузить их (скины) в TcxComboboxProperties
https://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=542538&msg=12170122



uses LookAndFeelPainters;
...

Var
 PaintersManager : TcxCustomLookAndFeelPainter;
 i: integer;
begin
  //загружаем список скинов
  TcxComboBoxProperties(comboSkins.Properties).Items.Clear;
  TcxComboBoxProperties(comboSkins.Properties).Items.Add('');//пустую строку тоже нужно добавить, чтобы пользоватtль мог отменять выбор скина

  for i := 0 to Pred( cxLookAndFeelPaintersManager.Count ) do
    TcxComboBoxProperties(comboSkins.Properties).Items.Add(cxLookAndFeelPaintersManager.Items[i].LookAndFeelName);

Комментарии


  • Мальчик, уже давно есть LINQ

  • А не подскажите почему у меня LookAndFeel не работает в рантайм моде? сама форма сделана в виде DLL в дизайн там вид компонента меняется, а в рантайм нет

    LookAndFeel.Kind = lfUltraFlat
    LookAndFeel.NativeStyle = False
    LookAndFeel.SkinName = 'Office2010Blue'

  • Cat2, покажи пример

  • Tаrantino лучше задайте вопрос на форуме https://www.sql.ru/forum/delphi

  • >>LookAndFeel.SkinName = 'Office2010Blue'

    А в настройках проекта скин включен? В USES есть?



Необходимо войти на сайт, чтобы оставлять комментарии