Здравствуйте.
У меня сложилась следующая ситуация :

Если при создании PROGRESSBAR устанавливаю стили, то потом эти стили визуально отображаются:

Код

wClass.lpszClassName  := Progress_Class; wClass.Style := ws_visible or ws_child or pbs_Vertical or pbs_Smooth; Handle := CreateWindowEx (wClass);

Если же я хочу установить эти стили после создания, то никакой реакции нету.
Т.е флаг стиля устанавливается, но визуально PROGRESSBAR остаётся прежним.

Код

NewStyle := GetWindowLong (Handle, GWL_Style) or pbs_Smooth or ws_child or ws_visible;   SetWindowLong (Handle, GWL_Style, NewStyle);

Может кто сталкивался, подскажите, пожалуйста, как заставить PROGRESSBAR "принять" новый стиль?

Это сообщение отредактировал(а) mes - 16.1.2006, 13:57

Тебе надо включить XP стили(XPMan в uses добавь). А для прогресс бара сбросить его SetWindowTheme(PB.Handle,'',''); . И только в ентом случаи у тебя будут работать енти стили в XP.

Спасибо за совет. Попробовал, пока ничего не получилось,
точнее при вызове ф-ции пропрамма прерывается из-за критической ошибки.

Буду пробовать еще , однако смущает один момент:
Эти стили у меня работают, только стиль установленый при создании потом я не могу сменить.

Делаю я это с ф-цией:

Код

NewStyle := GetWindowLong (Handle, GWL_Style) or pbs_Smooth;                  SetWindowLong (Handle, GWL_Style, NewStyle);

Попробовал с флагом ws_Visible. Всё работает корректно.
т.е не работает изменение именно флагов : pbs_Smooth , pbs_Vertical.

Цитата(mes @ 16.1.2006, 14:06 )

Спасибо за совет. Попробовал, пока ничего не получилось,

Значит не так пробывал.
Вот пример:

Код

program Project1;                    uses windows, messages, CommCtrl, XPMan; {$R *.res} var   wc_pb : TWndClassEx;       MainWnd, PB : HWND;       Mesg : TMsg;       //Конечно так лудше не делать... грузи динамически!       function SetWindowTheme(hwnd: HWND; pszSubAppName: LPCWSTR; pszSubIdList: LPCWSTR): HRESULT; stdcall; external 'uxtheme.dll'; function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult; stdcall; begin  if msg=wm_destroy then   begin    postquitmessage(0);     Result:=0;   end else Result:=DefWindowProc(wnd,msg,wparam,lparam); end; function InitCommonControl(CC: Integer): Boolean; var   ICC: TInitCommonControlsEx; begin   ICC.dwSize := SizeOf(TInitCommonControlsEx);   ICC.dwICC := CC;   Result := InitCommonControlsEx(ICC);   if not Result then InitCommonControls; end; begin  with wc_pb do   begin    cbSize:=sizeof(wc_pb);    style:=cs_hredraw or cs_vredraw;    lpfnWndProc:=@WindowProc;    cbClsExtra:=0;    cbWndExtra:=0;    hInstance:=HInstance;    hIcon:=LoadIcon(0,idi_application);    hCursor:=LoadCursor(0,idc_arrow);    hbrBackground:=COLOR_BTNFACE+1;    lpszMenuName:=nil;    lpszClassName:='XPProgress_Bar';   end; RegisterClassEx(wc_pb); MainWnd:=CreateWindow('XPProgress_Bar','Progress_Bar',ws_overlappedwindow,100,100,500,300,0,0,Hinstance,nil); InitCommonControl(ICC_PROGRESS_CLASS); PB:=CreateWindowEx(0, PROGRESS_CLASS, '', WS_CHILD or WS_VISIBLE, 3, 18, 220, 50, MainWnd, 0, hInstance, nil); SendMessage(PB, PBM_SETRANGE, 0, MAKELPARAM(0,100)); SendMessage(PB, PBM_SETPOS, 50, 0); SetWindowTheme(PB,'',''); SetWindowLong (PB, GWL_Style, WS_CHILD or WS_VISIBLE or 1); //pbs_Smooth=1 SendMessage(PB, PBM_SETPOS, 50, 0); ShowWindow(MainWnd,CmdShow); ShowWindow(PB,CmdShow); While GetMessage(Mesg,0,0,0) do  begin   TranslateMessage(Mesg);   DispatchMessage(Mesg);  end; end.

Спасибо. Твой код работает. Будем иследовать
Только вот размер файла значительно увеличивается.
Но это уже мелочи.

Кстати нашел интерсную особеность, может кому пригодится:
если пишите на WINAPI c XP-стилями и не хотите чтоб размер файла сильно увеличивался
добавьте вместо uses XPMAN ,строчку {$R WindowsXP.res} ( всего 1Кбайт!)


Надеюсь кому-нибудь это поможет.

После изучения кода всё же главный вопрос остался нерешеным.

Наблюдения:

1) Если я подключаю XP-стили то при изменинии флага pbs_Vertical, ProgressBar визуально меняется.

2) Ф-ция SetWindowTheme(PB,'','') сбрасывает темы однако реакция на флаг от неё не зависит.

Вопрос:

Неужели нельзя добиться реакции на флаг pbs_Vertical , не подлючая
эти стили, ведь при создании она воспринимает же этот флаг.

Если не сбросиш... то и работать изменение флагов не будет.

В XP только так... см. выше.
Добавлено @ 04:10
Хотя... можеш в "классику" переключиться... там работать должно

Ты удивишься, но изменение флагов происходит не от вышеназваной ф-ции.
Как только я подключаю файл WindowsXp.res, ProgressBar начинает реагировать на флаги
(на флаг pbs_Smooth он не реагирует так как у XP-Progressbar нет такого стиля)

ф-ция SetWindowTheme приводит только к изменению темы.
Ho Если я не подключу WindowsXP.res, то от сброса темы ничего не зависит.
Ho в Windows 98 как то же работают эти стили!?

Чтоб не углубляться я перефразирую свой вопрос.
Если программа составлена для Windows98 и в ней используется
изменение стиля после его создания,то эта программа будет
некоректно работать в среде XP?
Можно ли указать программе что она предназначена для 98
чтоб стили коректно раболи в XP?.

А как это сделать?

У меня в WinXP+SP1 не работает без сброса.

А нафиг?

Должно работать как в W98... так и XP:
1. подключай WindowsXP.res
2. Динамически грузи uxtheme.dll
3. Если загрузилась... то сбрасывай(SetWindowTheme) для прогрессбара(можеш для всех элементов сбросить... что бы не отличался внешний вид). Если не загрузилась или не нашлась функциия SetWindowTheme(Ну мало... ли что )... все равно переходи к 4 пункту.
4. Изменяй флаги... через SetWindowLong