Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.978 c