Форум: "Основная";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Вниз

Прозрачный логотип   Найти похожие ветки 

← →
VitAngel   (2007-03-16 05:22) [0]

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

---

← →
TApp   (2007-03-16 08:56) [1]

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;

---

← →
Fantasy ©   (2007-03-16 12:56) [2]

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;

---

← →
Fantasy ©   (2007-03-16 13:17) [3]

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

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;


---

← →
VitAngel   (2007-03-16 16:34) [4]

Спасиба

---

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

Форум: "Основная";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Наверх

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