форма как в боковая потель с гаджетами

[jocry]

В Windows vista есть утилита (боковая потель с гаджитами), список гаджитов полупрозрачный мождо ли добится токого эффекта в delphi.1.jpg

[Пепел Феникса]

AlphaBlend в true у формы
AlphaBlendValue установи сам

или через WinAPI


З.Ы.:на будущее...гаджЕт

[BOBAH13]

Для начала, предыдущий пост даст не такой результат. Главный вопрос, ваше приложение ориентировано на Windows Vista/Seven и выше ? Если для XP, то про "такой" эффект, забудьте.

По теме, все всегда не понмнят/забывают/игнорируют MSDN.

http://msdn.microsoft.com/en-us/libr...37(VS.85).aspx

[DomiNick]

На Делфи можно такое сделать и для WinXP...

Сейчас пытаюсь потихоньку разобраться как именно...

Просто времени нету свободного совсем и буду рад если кто-то подскажет примеры...

[Alex Cones]

ИМХО в фотошопе нарисовать картинку типа тумана, а в Дельфи поставить прозрачность в 50-70%. Так же как делали "Ежика в тумане" нарисовали густой-густой туман, а потом отрегулировали прозрачность, удаляя "туман". Должно получиться точь-в точь как на картинке.

[Ntlegend]

Дополню собщение от ВОВАН13..

еще и поиск по интернету и форуму не понмнят/забывают/игнорируют..

http://www.programmersforum.ru/showt...770#post200770

[BOBAH13]

Сообщение от Alex Cones

ИМХО в фотошопе нарисовать картинку типа тумана, а в Дельфи поставить прозрачность в 50-70%. Так же как делали "Ежика в тумане" нарисовали густой-густой туман, а потом отрегулировали прозрачность, удаляя "туман". Должно получиться точь-в точь как на картинке.

и пост выше, Ваc это тоже касается. Вы понимаите суть эффекта Blur (размытие). Каким это таким чудесным образом картинка с эффектом тумана и с определенным уровнем прозрачности автоматически будет размывать то что находится в какой то момент под окном ? Это раз.

Второе, на счет XP. Простой и первый вопрос, каким образом Вы собираитесь получать битовую карту (в просто народии "скриншот") под окном, причем эффективно обновляя ее при передвижении/изменении окна ? (Blur эффект не так уж и сложно сделать, это не обсуждаем).

Т.е. XP - Вы обязаны иметь даже незнаю какие возможности и навыки в программировании под Win32. Для Vista/Seven я дал прямой линк.

Еще вопросы ?


2. jocry - зачем "копаться в интернете" если я дал вам ссылку прямую на MSDN, врятли где-то еще четче все описано. Не понимаю.

[jocry]

Ntlegend спасибо за ссылку. Я ещё покопался в интернете нашел много интересного вот к примеру

uses DwmApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  BB: TDWMBlurBehind;
   hr: HRESULT;
begin
   hr := S_OK;

   bb.dwFlags := DWM_BB_ENABLE;
   bb.fEnable := true;
   bb.fTransitionOnMaximized:=true;
   bb.hRgnBlur := 0;

   // Disable Blur Behind.
   hr := DwmEnableBlurBehindWindow(Handle, &bb);
end;

Но эффект накладывается толька на чёрный цвет
аа.jpg

[blackstersl]

а у меня на DwmApi delphi выдаёт ошибку, в чём problem?

[BOBAH13]

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

Ntlegend спасибо за ссылку. Я ещё покопался в интернете нашел много интересного вот к примеру

uses DwmApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  BB: TDWMBlurBehind;
   hr: HRESULT;
begin
   hr := S_OK;

   bb.dwFlags := DWM_BB_ENABLE;
   bb.fEnable := true;
   bb.fTransitionOnMaximized:=true;
   bb.hRgnBlur := 0;

   // Disable Blur Behind.
   hr := DwmEnableBlurBehindWindow(Handle, &bb);
end;

Но эффект накладывается толька на чёрный цвет
Вложение 14267

Что-то я не пойму, у вас все работает, и причем тут черный цвет ?

p.s. видимо я пишу кому-то но не вам.