VPF::Новые возможности Windows 7 - Форум программистов

desivers

Дата 14.4.2011, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 15.3.2007

Репутация: 1
Всего: 1

Всем привет. Хочу использовать в своей программе новые возможности Windows 7. Но читая в интерене натыкаюсь то на обзорные статьи то на компоненты для C#. Кто то уже использовал?

Metalex

Дата 14.4.2011, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Цитата(desivers @ 14.4.2011, 14:59

)

новые возможности Windows 7

что именно вы под этим подразумеваете? Новая версия DirectX?

--------------------

Don't let the system get you down.

desivers

Дата 14.4.2011, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 15.3.2007

Репутация: 1
Всего: 1

Имелось ввиду Progress Bar, ThumbButtons, OverlayIcons, Windows manager, ThumbnailPreview, JumpLists

Вот нашел одну статейку. Помогите перевести с Delphi/

procedure TForm1.FormCreate(Sender: TObject);
var
DEnable: DWORD;
bmp: TBItmap;
begin
DEnable:= DWMNCRP_ENABLED;
If S_OK <>
DwmSetWindowAttribute(Handle,DWMWA_FORCE_ICONIC_REPRESENTATION,
@DEnable,SizeOf(DEnable));
then MessageBox(0,’Error’,0,0);

If S_OK <>
DwmSetWindowAttribute(Handle,DWMWA_HAS_ICONIC_BITMAP,
@DEnable,SizeOf(DEnable));
then MessageBox(0,’Error’,0,0);

Bmp:= TBitmap.Create;
Bmp.LoadFromFile('полный путь к нужной картинке');
If S_OK <>
DwmSetIconicThumbnail(Handle,Bmp.Handle,0);
then MessageBox(0,’Error’,0,0);
end;

Это сообщение отредактировал(а) desivers - 14.4.2011, 21:15

borisbn

Дата 15.4.2011, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: 18
Всего: 135

desivers, ты что, действительно не можешь перевести это с паскаля на Си ?

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

desivers

Дата 15.4.2011, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 15.3.2007

Репутация: 1
Всего: 1

Цитата(borisbn @ 15.4.2011, 08:48)

desivers, ты что, действительно не можешь перевести это с паскаля на Си ?

Перевести одно, а чтоб заработало другое.
Вот помогли мне, но не работает.

Код


DWORD DEnable;
Graphics::TBitmap *bmp;
bmp = new Graphics::TBitmap;
Bmp->LoadFromFile("полный путь к нужной картинке");
DEnable = DWMNCRP_ENABLED; // ?
 
if (S_OK != DwmSetWindowAttribute(Handle,DWMWA_FORCE_ICONIC_REPRESENTATION,
            &DEnable,sizeof(DEnable)) {
  ShowMessage("Ошибка");
}
if (S_OK != DwmSetWindowAttribute(Handle,DWMWA_HAS_ICONIC_BITMAP,
            &DEnable,SizeOf(DEnable));
  ShowMessage("Ошибка");
}
// Bmp:= TBitmap.Create;
if (S_OK != DwmSetIconicThumbnail(Handle,Bmp->Handle,0) {
  ShowMessage("Ошибка");
}

_Dimon_

Дата 16.4.2011, 09:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 25.6.2007
Где: Украина

Репутация: 1
Всего: 1

Меня тоже заинтересовала эта тема.
В делфи, кстати, тоже не работает, а именно функция DwmSetIconicThumbnail.

На си это виглядило бы вот так:

Код


BOOL fForceIconic = TRUE;
BOOL fHasIconicBitmap = TRUE;

if (S_OK != DwmSetWindowAttribute(Handle,DWMWA_FORCE_ICONIC_REPRESENTATION,
    &fForceIconic,sizeof(fForceIconic)))  ShowMessage("Ошибка1");

if (S_OK != DwmSetWindowAttribute(Handle,DWMWA_HAS_ICONIC_BITMAP,
    &fHasIconicBitmap,sizeof(fHasIconicBitmap)))  ShowMessage("Ошибка2");


Graphics::TBitmap *bmp;
bmp = new Graphics::TBitmap;
bmp->LoadFromFile("файл");


if (S_OK != DwmSetIconicThumbnail(Handle,bmp->Handle,0))
  ShowMessage("Ошибка3");

Но в MSDN написано следующее:

Код


//To set an iconic bitmap on a window for use as a thumbnail representation, an application calls the DwmSetIconicThumbnail function. To set this bitmap, the application must first call the 
//DwmSetWindowAttribute function to set window attributes for non-client rendering to DWMWA_FORCE_ICONIC_REPRESENTATION and DWMWA_HAS_ICONIC_BITMAP, as shown in the following code. 

            // Set DWM window attributes to provide the iconic bitmap, and 
            // to always render the thumbnail using the iconic bitmap.
            BOOL fForceIconic = TRUE;
            BOOL fHasIconicBitmap = TRUE;

            DwmSetWindowAttribute(
                hwnd,
                DWMWA_FORCE_ICONIC_REPRESENTATION,
                &fForceIconic,
                sizeof(fForceIconic));

            DwmSetWindowAttribute(
                hwnd,
                DWMWA_HAS_ICONIC_BITMAP,
                &fHasIconicBitmap,
                sizeof(fHasIconicBitmap));


//Then, the application calls DwmSetIconicThumbnail to respond to the WM_DWMSENDICONICTHUMBNAIL message, as shown in the following code.

        case WM_DWMSENDICONICTHUMBNAIL:
        {    
            // This window is being asked to provide its iconic bitmap. This indicates
            // a thumbnail is being drawn.
            hbm = CreateDIB(HIWORD(lParam), LOWORD(lParam)); 
            if (hbm)
            {
                hr = DwmSetIconicThumbnail(hwnd, hbm, 0);
                DeleteObject(hbm);
            }
        }
        break;

У меня RAD XE, и ругается на функцию CreateDIB , мол нет такой................. хз

desivers

Дата 18.4.2011, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 15.3.2007

Репутация: 1
Всего: 1

Вот нашел еще пару статеек, надо разобраться на выходных.
http://msdn.microsoft.com/en-us/gg465005
http://msdn.microsoft.com/en-us/gg465010
http://windowsteamblog.com/windows/b/devel...gress-bars.aspx
http://geekswithblogs.net/Jialiang/archive...de-samples.aspx

_Dimon_

Дата 22.4.2011, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 25.6.2007
Где: Украина

Репутация: 1
Всего: 1

Никто не проверял, работает ли даная функция, а то товарищ desivers заинтересовал меня даной возможностью, а ни х... не работает ((((

desivers

Дата 25.4.2011, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 15.3.2007

Репутация: 1
Всего: 1

Вот тут хорошие статьи, вот только щас некогда перевести на С++
http://blog.karelia.ru/teran/?p=61

_Dimon_

Дата 27.4.2011, 08:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 25.6.2007
Где: Украина

Репутация: 1
Всего: 1

Еще здесь статья есть, вроде не плохая.
Я тут набросал на основе этой статьи, посмотрите, мож че не так....
И еще не пойму зачем ITaskbarList3, ITaskbarList4 - что тот использовать, что тот разницы не вижу.

А на счет рисуночка (здесь http://forum.vingrad.ru/index.php?showtopi...&p=2331187), так обязательно надо 32-битный ставить, а то ниче не получится.

Это сообщение отредактировал(а) _Dimon_ - 27.4.2011, 09:11

Присоединённый файл ( Кол-во скачиваний: 20 )

Win7_TaskBar.rar 10,09 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »