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

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

Прозрачный логотип [D7, WinXP]

VitAngel ©   (2007-03-16 05:22:00) 

Утро доброе! Подскажите как сделать, чтоб перед загрузкой приложения появлялась картинка-логотип сначала с прозрачностью 0 и постепенно становилась 100 %

---

VitAngel   (2007-03-16 16:34:00) [1]

Спасиба

---

Fantasy   (2007-03-16 13:17:00) [2]

если хочеш чтобы побыстрее

procedure TForm1.FormActivate(Sender: TObject);
var
i : Integer;
begin
AlphaBlend :=  True;
AlphaBlendValue := 0;
Application.ProcessMessages;
i:= 0;
while i < 255 do
 begin
   AlphaBlendValue := i;
   i := i+20;
   Application.ProcessMessages;
 end;
AlphaBlendValue := 255;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i : Integer;
begin
i:= 255;
while i > 1 do
 begin
   AlphaBlendValue := i;
   Application.ProcessMessages;
   i := i-20;
 end;
end;


---

Fantasy   (2007-03-16 12:56:00) [3]

procedure TForm1.FormActivate(Sender: TObject);
var
i : Integer;
begin
Form1.AlphaBlend :=  True;
Form1.AlphaBlendValue := 0;
Application.ProcessMessages;
for i := 0  to 255  do
 begin
   AlphaBlendValue := i;
   Application.ProcessMessages;
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i : Integer;
begin
for i := 255 downto 0  do
 begin
   Form1.AlphaBlendValue := i;
   Application.ProcessMessages;
 end;
end;

---

TApp   (2007-03-16 08:56:00) [4]

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: integer;
begin
 i:= Form1.AlphaBlendValue + 1;
 Form1.AlphaBlendValue:= i;
 if i > 254 then
 Timer1.Enabled:= false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.BorderStyle:= bsNone;
 Form1.AlphaBlend:= true;
 Form1.AlphaBlendValue:= 0;
 Timer1.Interval:= 1;
 Timer1.Enabled:= true;
end;

---

Наверх