| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

AlphaBlend и восстановление формы

Trible ©   (2008-03-12 06:04:00) 

Всем привет,
У меня форма имеет AlphaBlend:= 254, окно минимизируется в кнопку нормально без артефактов, но при восстановлении ( Form.Restore ) содержимое окна чернеет и через мгновение приходит в норму. Как предотвратить почернение формы при восстановлении из кнопки, если AlphaBlend не 255?

---

Trible   (2008-03-22 22:32:00) [1]

> Дмитрий К ©   (22.03.08 19:31) [7]
> Что-нибудь типа:

Все равно мигает, при разворачивании.

---

Дмитрий К   (2008-03-22 19:31:00) [2]

Что-нибудь типа:
program Project1;

uses
 Windows,Messages, KOL;

const
 WM_SETALPHA = WM_USER + 1000;

var form: PControl;

procedure FormMinimize(Dummy, Sender: PObj);
begin
 Form.Postmsg(WM_SETALPHA, 255,0);
end;

procedure FormRestore(Dummy, Sender: PObj);
begin
 Form.Postmsg(WM_SETALPHA, 254,0);
end;

function FormMessage(Dummy: Pointer; var Msg: TMsg; var Rslt: Integer ): Boolean;
begin
 Result := False;
 if Msg.Message = WM_SETALPHA then
   Form.AlphaBlend := Msg.wParam
end;

begin
 form := NewForm(nil, 'Test');
 form.AlphaBlend := 254;
 form.OnMessage := TOnMessage(MakeMethod(nil, @FormMessage));
 form.OnMinimize := TOnEvent(MakeMethod(nil, @FormMinimize));
 form.OnRestore := TOnEvent(MakeMethod(nil, @FormRestore));
 Run(form);
end.

---

Дмитрий К   (2008-03-22 19:06:00) [3]

Может быть в момент сворачивания делать Alphablend = 255, а при разворачивании 254.

---

Trible   (2008-03-22 18:16:00) [4]

> Ned   (16.03.08 18:54) [2]
> Попробуйте на это мгновение делать форму невидимой, а после
> разворачивания снова менять свойство Visible.

Что-то не получается у меня. Может, дадите пример, как сделать?
Конструкции типа

procedure TForm1.KOLFormRestore(Sender: PObj);
begin
Form.Visible:= false;
Form.Visible:= true;
end;
не катят (!!)

---

Ned   (2008-03-18 18:23:00) [5]

AMDX4 - дело в том, что чернеть область окна будет всё равно.

---

AMDX4   (2008-03-17 17:30:00) [6]

Можно еще круче - при востановленние делаете окно невидимой AlphaBlend = 1
а потом плавно делаете ее видимой - будет прикольней

---

Ned   (2008-03-16 18:54:00) [7]

Попробуйте на это мгновение делать форму невидимой, а после разворачивания снова менять свойство Visible.

---

Trible   (2008-03-16 11:16:00) [8]

Ну что, никто не знает?

---

Наверх