Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скрытие окна... ...как это делает LiteAlloy 
:(
    Опции темы
WIN32API
  Дата 18.3.2005, 19:39 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Народ, помогите с кодом, который красиво минимизирует или скрывает окно, как это делает LiteAlloy. У меня был когда-то этот код, но черт его знает, куда я его вписал. Вообщем теперь не могу найти. Поделитесь, а?
  Вверх
_hunter
Дата 18.3.2005, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98
кажись оно:
http://forum.vingrad.ru/index.php?showtopic=30361


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
WIN32API
Дата 18.3.2005, 21:10 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Это совсем не то! Но кому интересно, забирайте на паскале:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
 wp: tWINDOWPLACEMENT;
begin
 SetWindowLong(handle, GWL_EXSTYLE,
  (GetWindowLong(handle,GWL_EXSTYLE) and WS_EX_APPWINDOW) or WS_EX_TOOLWINDOW);
 GetWindowPlacement(handle,@wp);
 wp.ptMinPosition.x:= 1023;
 wp.ptMinPosition.y:= 767;
 wp.flags:= WPF_SETMINPOSITION;
 wp.showCmd:= SW_SHOWNA;
 SetWindowPlacement(handle,@wp);
 ShowWindow(Handle,SW_MINIMIZE);
end;


Мне нужен типа полет диалога с анимацией! Вообщем кто пользовался LiteAlloy тот меня поймет!
  Вверх
Poseidon
Дата 20.3.2005, 04:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133
По всей видимости нужно сделать анимацию минимизации в трей. В Delphi все делается одной функцией. Держи код:

Минимизация:
Код
DrawAnimatedRects(Handle, IDANI_CAPTION, BoundsRect,
Rect(Screen.Width,Screen.Height,Screen.Width,Screen.Height));


Максимизация:
Код
DrawAnimatedRects(Handle, IDANI_CAPTION,
Rect(Screen.Width,Screen.Height,Screen.Width,Screen.Height), BoundsRect,);



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Zero
Дата 22.3.2005, 00:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(WIN32API @ 18.3.2005, 19:39)
помогите с кодом, который красиво минимизирует или скрывает окно, как это делает LiteAlloy.

К сожалению не знаю что такое LiteAlloy, но можно использовать AlphaBlendValue, но это работает в ОС начиная с Win'2000.

Присоединённый файл ( Кол-во скачиваний: 18 )
Присоединённый файл  Пример.zip
PM MAIL ICQ   Вверх
Poseidon
Дата 22.3.2005, 03:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133
Цитата
К сожалению не знаю что такое LiteAlloy, но можно использовать AlphaBlendValue, но это работает в ОС начиная с Win'2000.
Не нужно ничего использовать. DrawAnimatedRects прекрасно справляется с задачей.

PS. Light Alloy - это плеер.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Marriage
Дата 22.3.2005, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 2
Poseidon
А какая версия ???
просто ничего красивого в своей версии я не нашел (2,4)


--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
Poseidon
Дата 23.3.2005, 01:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133
smile Marriage
Цитата
А какая версия ???
просто ничего красивого в своей версии я не нашел (2,4)
А ничего такого сверх естественного и нет. Просто происходит анимация улета в трей. Т.е. пользователь видит, как программа сворачивается в трей. Большинство приложений такого не умеют (взять тот же Winamp), а просто при сворачивании в трей исчезают.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Zero
Дата 23.3.2005, 09:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(Poseidon @ 23.3.2005, 01:10)
А ничего такого сверх естественного и нет. Просто происходит анимация улета в трей.

Poseidon а вопрос то был:
Цитата(WIN32API @ 18.3.2005, 19:39)
помогите с кодом, который красиво минимизирует или скрывает окно

ИМХО мой способ для этого лучше подходит.
PM MAIL ICQ   Вверх
Marriage
Дата 23.3.2005, 22:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 2
2Poseidon
Оффтопами не раскидывайтесь. Я же не знаю, что такое КРАСИВАЯ минимизация в вашем или еще в чьём-либр понимании. Вот и Спросил. Может что-нить новое придумали... smile


--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
Poseidon
Дата 24.3.2005, 05:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133
Zero
Цитата
ИМХО мой способ для этого лучше подходит.
Думаю не стоит об этом здесь спорить, чей способ лучше. По-моему, чем больше способов, тем лучше! Только вот что просили:
Цитата
У меня был когда-то этот код ... Поделитесь, а?
А ты предлагаешь по сути только название функции. Так что не нужно рассуждать, чей способ лучше. Я думаю это решит тот, кто будет этот код использовать.

Добавлено @ 05:18
2Marriage
Цитата
Оффтопами не раскидывайтесь.
Прошу прощения. Это просто было как предупреждение, что пост не по теме, а просто обьясняет Marriage что такое КРАСИВАЯ минимизация в нашем понимании. Вот и все!


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0559 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.