Ĺadny brzuch
Witam!
Chcialem rozbudowac swoją aplikacje o wysuwajace sie okienko, takie ja w Panda AntiVirus.
Jak coś takiego zrobic?
Z góry dziękuje za pomoc!
Poszukaj o funkcji Animatewindow.
link: http://msdn.microsof...imatewindow.asp
Użytkownik krajew4 edytował ten post 14 grudzień 2005, 15:21
Dzieki!
Nie ma stron po polsku
Bo u mnie źle z angielskim :(
Użytkownik tracer4 edytował ten post 14 grudzień 2005, 15:24
Ja bym to zrobił nieco inaczej. Odpowiednie procedury ustawiają okienko np w prawym dolnym rogu ekranu (ale nad paskiem zadań) o wymiarach np 100x0 (długość x wysokość) i za pomocą pętli albo komponentu Time powodowałbym zwiększanie wysokości tego okienka :)
Użytkownik TomkoV edytował ten post 14 grudzień 2005, 15:40
przykład użycia:
procedure TForm1.FormCreate(Sender: TObject); var uchwytokna:integer; czaswms:dword; begin uchwytokna:=form1.Handle; czaswms:=2000; AnimateWindow(uchwytokna,czaswms,AW_SLIDE or AW_HOR_NEGATIVE); end;
Dzięki za pomoc!
No dobra ale AW_HOR_POSITIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, or AW_VER_NEGATIVE to odpowiedniki kiedunków ?
No dobra ale AW_HOR_POSITIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, or AW_VER_NEGATIVE to odpowiedniki kiedunków ?
Tak, jest jeszcze:
AW_BLEND or AW_ACTIVATE, jeżeli jest forma ukryta
AW_BLEND or AW_HIDE, jeżeli jest forma jest widoczna
Ale "do czego" one ?
[EDIT]
Sorka za literówkę
Użytkownik TomkoV edytował ten post 14 grudzień 2005, 21:08
Ale co "do czego" one ?
Nie rozumiem <_<
Co robi każda z tych AW_* ?
Lamerski przykład z wykorzystaniem nowej formy:
procedure TForm1.Button1Click(Sender: TObject); begin Form2.AlphaBlendValue := 0; Form2.Top := screeny-1; Form2.Left := screenx-292; Form2.Show; while (Form2.Top <> screeny-100) do begin Form2.AlphaBlendValue := Form2.AlphaBlendValue+2; Form2.Top := Form2.Top-1; sleep(5); end; end; end.
A to do OnCreate głównego ekranu: (odpowiednie umiejscowienie formy w zaleznosci od rozdzielczosci)
screenx := GetSystemMetrics(SM_CXSCREEN); screeny := GetSystemMetrics(SM_CYSCREEN);
+ ShellApi w dziale uses
Przykładowe źródło tylko jeszcze z kodem odpowiedzialnym za umieszczanie ikony aplikacji w tray'u
http://rapidshare.de...4/news.rar.html
Użytkownik krzysiek007 edytował ten post 14 grudzień 2005, 21:51
Co robi każda z tych AW_* ?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Chcialem rozbudowac swoją aplikacje o wysuwajace sie okienko, takie ja w Panda AntiVirus.
Jak coś takiego zrobic?
Z góry dziękuje za pomoc!
Poszukaj o funkcji Animatewindow.
link: http://msdn.microsof...imatewindow.asp
Użytkownik krajew4 edytował ten post 14 grudzień 2005, 15:21
Dzieki!
Nie ma stron po polsku
Bo u mnie źle z angielskim :(
Użytkownik tracer4 edytował ten post 14 grudzień 2005, 15:24
Ja bym to zrobił nieco inaczej. Odpowiednie procedury ustawiają okienko np w prawym dolnym rogu ekranu (ale nad paskiem zadań) o wymiarach np 100x0 (długość x wysokość) i za pomocą pętli albo komponentu Time powodowałbym zwiększanie wysokości tego okienka :)
Użytkownik TomkoV edytował ten post 14 grudzień 2005, 15:40
przykład użycia:
procedure TForm1.FormCreate(Sender: TObject); var uchwytokna:integer; czaswms:dword; begin uchwytokna:=form1.Handle; czaswms:=2000; AnimateWindow(uchwytokna,czaswms,AW_SLIDE or AW_HOR_NEGATIVE); end;
Dzięki za pomoc!
No dobra ale AW_HOR_POSITIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, or AW_VER_NEGATIVE to odpowiedniki kiedunków ?
No dobra ale AW_HOR_POSITIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, or AW_VER_NEGATIVE to odpowiedniki kiedunków ?
Tak, jest jeszcze:
AW_BLEND or AW_ACTIVATE, jeżeli jest forma ukryta
AW_BLEND or AW_HIDE, jeżeli jest forma jest widoczna
Ale "do czego" one ?
[EDIT]
Sorka za literówkę
Użytkownik TomkoV edytował ten post 14 grudzień 2005, 21:08
Ale co "do czego" one ?
Nie rozumiem <_<
Co robi każda z tych AW_* ?
Lamerski przykład z wykorzystaniem nowej formy:
procedure TForm1.Button1Click(Sender: TObject); begin Form2.AlphaBlendValue := 0; Form2.Top := screeny-1; Form2.Left := screenx-292; Form2.Show; while (Form2.Top <> screeny-100) do begin Form2.AlphaBlendValue := Form2.AlphaBlendValue+2; Form2.Top := Form2.Top-1; sleep(5); end; end; end.
A to do OnCreate głównego ekranu: (odpowiednie umiejscowienie formy w zaleznosci od rozdzielczosci)
screenx := GetSystemMetrics(SM_CXSCREEN); screeny := GetSystemMetrics(SM_CYSCREEN);
+ ShellApi w dziale uses
Przykładowe źródło tylko jeszcze z kodem odpowiedzialnym za umieszczanie ikony aplikacji w tray'u
http://rapidshare.de...4/news.rar.html
Użytkownik krzysiek007 edytował ten post 14 grudzień 2005, 21:51
Co robi każda z tych AW_* ?