Смена скина AlphaControls

[masterdela]

ScreN, никаких полос у меня нет! Все как часики работает!

[Alter]

ScreN, такое впечатление что дело у вам с Windows связано. У меня нормально скинится, хоть что накиданно на табы и вообще связанное с AC(кроме DBGrid).

[ScreN]

Да я тоже думаю уже что что то с Виндой связано...
Хотя у меня полос таких теперь уже нету... Так как я не стал ставить на форму GroupBox... если бы поставил.. то полосы бы опять появились....
Как еще сделать чтобы окно не пряталось за главное?

И все таки.. Что лучше? AlphaControls ? Или же BusinessSkinsForm ?
Что то в AplhaControls при смени скина все дрыгается...подпрыгивает Не очень красиво смотрится... Допишу программу наверное через 1 день уже.... выкину ее сюда на бета-тест... посмотрите.... как все получилось

А как сделать чтобы при открытии формы с настройками... фокус сразу перемещался на вкладку Общие.. а не оставался на той вкладке на которой была закрыта прошлый раз форма с настройками... что то сообразить не могу...
Все команды фокуса уже перепробывал ...

[Kotofff]

при показе формы с настройками в ее событии OnShow пропиши попробуй PageControl1.ActivePage := TS1;
TS1 - это имя например первой закладки или можно PageControl1.ActivePageIndex := 0; нумерация с нуля

[Alter]

Сообщение от ScreN

И все таки.. Что лучше? AlphaControls ? Или же BusinessSkinsForm ?
Что то в AplhaControls при смени скина все дрыгается...подпрыгивает Не очень красиво смотрится... Допишу программу наверное через 1 день уже.... выкину ее сюда на бета-тест... посмотрите.... как все получилось

У меня ничего не дрыгается, происходит плавная смена.

[ScreN]

А вот у меня дрыгается что то все.... Не знаю почему... ну потом допишу посмотрите... Все равно это будет бета

Вот тут еще один косяк...
Поставил смену скина сразу..если галочка стоить то скин меняется сразу при выборе...и поставил просто при нажатии на кнопку применить... Так вот... если сменять его сразу.. то тогда скин при следующем запуске загружается нормально...а если по кнопке применить.. то скин при запуске по умолчанию. Vista ... в чем может быть проблема? Код вроде весь одинаковый...что на кнопке применить что на обработке Checked ..

А нет... все разобрался...

А вы не подскажите как сделать ProgressBar... допустим есть заставка у программы... она длится 5 секунд... так вот... сделать ProgressBar так чтобы он грузил каждую секунду... то есть прошло 1 секунда 3 деления на прогрессе... 2 секунды 5 делений на прогрессе... и так далее до 5 секунд ?

[Kotofff]

http://www.alphaskins.com/sfiles/demos/splashdemo.zip

Вот демка есть - посмотри ...

[crc83]

Вариант такой. у меня работает

//по нажатию на кнопку "Применить"
procedure TConfigForm.ApplyButtonClick(Sender: TObject);
begin
//!!!
Form1.sSkinManager1.Active:=False;

    If ConfigForm.SelectSkins.ItemIndex=1 Then
              Form1.sSkinManager1.SkinName:='Vista';
    If ConfigForm.SelectSkins.ItemIndex=2 Then
              Form1.sSkinManager1.SkinName:='Office2007 Blue'; 

//!!!
Form1.sSkinManager1.Active:=True;

end;

[/QUOTE]

[Vladya]

Загрузить названия скинов в список, при создании формы: sSkinManager1.GetSkinNames(CBox1.It ems);
Нажатие на кнопку "Применить": sSkinManager1.SkinName := CBox1.Items.Strings[CBox1.ItemIndex];

При добавлении новых скинов программа будет их добавлять в Комбо бокс и будет Вам счастье.
Тему нужно полностью читать.

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

Привет=) решил написать тут же. вот похожая проблема, но с конструкцией действия onChange на sComboBox

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;

суть проблемы в том что при использовании этой конструкции, скин меняется на любой выбранный а потом прогоняет все else в конструкции.. т.е.
выбрал скин, он сменился, но потом ещё 6 раз провернул

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

в итоге программа возвращается к прежнему виду WLM (internal)
я в тупике=) помогите=)