Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];

Вниз

MainForm преобразовать в градации серого   Найти похожие ветки 

 
Anger   (2005-03-18 14:35) [0]

Вообщем хочу реализовать такую фичу, при выходе из моей проги когда открыт диалог, "Выход? или нет?" Чтоб главная форма из цветной перешла в градацию серого и наоборот соответственно. Вообщем как в ХРюше. т.е плавный переход. Помогите плиз где копать.


 
X-Disa ©   (2005-03-19 13:37) [1]

Можно получить canvas  экрана (через GetDC(0)), связать с битмапом, и соответственно изменить область формы (GetWindowRect)


 
Lence ©   (2005-03-19 14:13) [2]

Попробуй вот это

private
    protected Procedure LastFocus(var Mess : TMessage) ; message  WM_ACTIVATE;
   { Private declarations }

.......

implementation

Procedure TForm1.LastFocus(var Mess : TMessage) ;
Begin

    IF  Mess.wParam = WA_INACTIVE
    Then  // Пишешь сюда что форма должна делать, изменить
// свой Альфа бленд или еще ченить  
       Else // либо пусть есть как есть

    Inherited;

End;
{$R *.dfm}

У меня работает так календарь, он весит все время на экране и если Актив контрол на нем тогда он оранжевый если нет то серый
Попробуй это использовать, правдо незнаю годится ли для твоего примера.



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.076 c
1-1119868243
kot andrei
2005-06-27 14:30
2005.07.18
Надо подумать...


14-1119868771
Priest
2005-06-27 14:39
2005.07.18
Как подключить ноутбук к компу по FireWire


14-1119416218
Ega23
2005-06-22 08:56
2005.07.18
С днём рождения! 22 июня


1-1120138665
CTAPbIi
2005-06-30 17:37
2005.07.18
Баг в DBGrid в MDI приложении


1-1119856606
Валерий
2005-06-27 11:16
2005.07.18
Полноэкранный режим при старте





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский