[alert30]

Dark_Delphin, если обычный классический скин Windows, так в SkinBuilder-е просто создаешь новый (кнопка "New"), и сохраняешь скин.

[Dark_Delphin]

alert30, я делал так, но почемуто не отображается он.

[alert30]

Dark_Delphin, попробуйте ради эксперимента скин Office 2007, если опять не вышло, значит проблема с DLL-ками скина.

[Gnom_aka_Lexander]

Dark_Delphin, в шапке есть пример задания цвета прогрессбару. оттуда тебе нужна функция SetWindowTheme. Вот ее у себя декларируешь и применяешь к хендлам элементов, которые нужно отобразить в классическом виде. Тоесть, главное окно и кнопки - это в первую очередь. для модальных окошек (обзоры всякие) я писал длл-ку, ибо инно слишком медленно работает - пока там интерпретатор поймет чего от него хотят, в итоге окошки моргали. если найду, где валяется у меня - выложу попозже.

[alert30]

neorom, в шапке есть куча справок, или почитайте каждую страницу.

[neorom]

в шапке есть куча справок, или почитайте каждую страницу. »

Мне только надо знать назву похожого скрипта

[Dark_Delphin]

neorom, NFS Undecover

[Johny777]

Dark_Delphin, держи процедуру установки стиля всем окнам на форме на основе SetWindowTheme(...), чтоб много букв не печатать

Код:

#ifdef UNICODE
    function SetWindowTheme(hwnd: HWND; pszSubAppName, pszSubIdList: PAnsiChar): Longint; external 'SetWindowTheme@uxtheme.dll stdcall';
#else
    function SetWindowTheme(hwnd: HWND; pszSubAppName, pszSubIdList: PChar): Longint; external 'SetWindowTheme@uxtheme.dll stdcall';
#endif


procedure SetClassicTheme(UndefCtrl: TWinControl);
var
  i: Integer;
begin
  SetWindowTheme(TWinControl(UndefCtrl).Handle, #32#32, #32#32);
  for i := 0 to UndefCtrl.ControlCount-1 do if UndefCtrl.Controls[i] is TWinControl then if TWinControl(UndefCtrl.Controls[i]).ControlCount-1 > 0 then SetClassicTheme(TWinControl(UndefCtrl.Controls[i])) else SetWindowTheme(TWinControl(UndefCtrl.Controls[i]).Handle, #32#32, #32#32);
end;


procedure InitializeWizard();
begin
  SetClassicTheme(WizardForm);
end;

Gnom_aka_Lexander, Спасибо, хорошая функция!

[Dark_Delphin]

Johny777, спасибо большое.
Готово.

[Gnom_aka_Lexander]

Спасибо, хорошая функция! »

Это не мне спасибо. Это Microsoft-у спасибо.