VPF::Красивые появления формы - Форум программистов

THandle

Дата 23.3.2008, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 1
Всего: 372

Например(пример не оптимален, но все же):

Код


procedure TForm1.FormActivate(Sender: TObject);
var   
    i,x,y:integer;
begin
    x:=(screen.Width-form1.Width)shr 1;
    y:=(screen.Height-form1.Height)shr 1;
    for i:=0 to 255 do   
      begin
        setwindowpos(handle,HWND_TOP,
        x+round(y*(1-i/255)*cos(i*pi/127.5)),
        y+round(y*(1-i/255)*sin(i*pi/127.5)),
        form1.Width,form1.Height,
        SWP_NOSENDCHANGING );
        AlphaBlendValue:=i;
        Application.ProcessMessages;
      end;
end;

Код


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var  
   i,y:integer;
   rect:trect;
begin  
   getwindowrect(handle,rect);
   y:=(screen.Height-form1.Height)shr 1;
   for i:=255 downto 0 do  
     begin
       setwindowpos(handle,HWND_TOP,
       rect.Left+round(y*(1-i/255)*cos(i*pi/127.5)),
       rect.Top+round(y*(1-i/255)*sin(i*pi/127.5)),
       form1.Width,form1.Height,
       SWP_NOSENDCHANGING );
       AlphaBlendValue:=i;
       Application.ProcessMessages;
     end;
end;

(тут код не мой, а Sanchezzz'а, но у меня еще полной подобных эффектов)

Новичкам подобные эффекты нраятся? Как вы думаете написать штук пять подобных? В раздел "Делфи для начинающих", "Исходники".

Это сообщение отредактировал(а) THandle - 26.4.2008, 16:43

SneG0K

Дата 23.3.2008, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 1
Всего: 54

Ну вообщето нужно! Я вообще считаю, что любые проявления графики и стиля это хорошо. А вот ты представь, сидиш на висте, а тут тебе программа под стиль 95 smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Форум группы: Vingrad Delphi - Voluntary Writers Group \| Следующая тема »