[Проблема]Alphaskins: изменение темы приложения через комбобокс..

[Человек_Борща]

так как по правилам "одна тема - один вопрос" то.. >>

собственно тема такая:

на форме есть
1- checkbox(skinAppyRight) галочка на чекбоксе значит, что тема будет применяться мгновенно, иначе, только после нажатия кнопки "применить"

1-combobox(SkinBox)
и есть следующий нерабочий код..(он рабочий но работает не совсем так как должен.):

procedure TSettingsForm.SkinBoxChange(Sender: TObject);
begin
If skinAppyRight.Checked then
begin
if skinbox.ItemIndex=0 then
begin
MainForm.SkinManager.SkinName:='LongHorn (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';

If skinbox.ItemIndex=1  then
begin
MainForm.SkinManager.SkinName:='Office2007 Black (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';

If skinbox.ItemIndex=2  then
begin
MainForm.SkinManager.SkinName:='Shine (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';

If skinbox.ItemIndex=3  then
begin
MainForm.SkinManager.SkinName:='WLM (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';

If skinbox.ItemIndex=4  then
begin
MainForm.SkinManager.SkinName:='WMP 2008(internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';

If skinbox.ItemIndex=5  then
begin
MainForm.SkinManager.SkinName:='WMP11 (internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';

If skinbox.ItemIndex=6  then
begin
MainForm.SkinManager.SkinName:='XPLuna(internal)';
end
else
MainForm.SkinManager.SkinName:='WLM (internal)';
end;
end;

суть проблемы в том что все работает, тема применяется, но на 1~5 сек. но потом прокручивает все

else
MainForm.SkinManager.SkinName:='WLM (internal)';

тоесть после того как показалась тема, она откатывается на стандартную WLM (internal)' , и не 1 раз а 6 ..(приложение мигает...)

как решить?

[spamer]

Ну оно как бы и не удивительно...вы вот киньте бряку на какую то строку и пройдитесь по коду - увидите почему оно так работает.
А я бы вот собственно так сделал:

procedure TForm1.SkinBoxChange(Sender: TObject);
begin
If skinAppyRight.Checked then
begin

  case skinbox.ItemIndex of
    0 : Caption:='LongHorn (internal)';
    1 : Caption:='Office2007 Black (internal)';
    2 : Caption:='Shine (internal)';
    3 : Caption:='WLM (internal)';
    4 : Caption:='WMP 2008(internal)';
    5 : Caption:='WMP11 (internal)';
    6 : Caption:='XPLuna(internal)';
    else Caption:='WLM (internal)';
  end;
end;

end;

з.ы. пример для наглядности варианта решения.

[FaTaL]

Потому что у Вас код такой после Else
Делайте как написано выше через Case

[Alt]

А вы попробуйте сами в голове скомпилировать свой код, полезно так делать)

[Человек_Борща]

ого, спасибо огромное, утром задумался об case of , но не знал как толком применить сие.. спасибо=)