![]() |
|
|
#1 (permalink) |
|
*BUNALIMLARIN ADMİNİ*
![]() |
Titreşim MSN deki Gibi
// titreşim örneği // formu veya bir kontrolü titretin procedure NudgeWindow(theWinControl: TWinControl; noN: integer; wSound: Boolean); var i j A AK2: integer;orgLeft orgTop: integer;P: array[1..9] of TPoint; begin orgLeft := theWinControl.Left; orgTop := theWinControl.Top; A := 5; AK2 := Round(A * sqrt(2)); // sekizgen koordinatlari P[1] := Point(0 A);P[2] := Point(-AK2 -AK2);P[3] := Point(A 0);P[4] := Point(-AK2 AK2);P[5] := Point(0 -A);P[6] := Point(AK2 AK2);P[7] := Point(-A 0);P[8] := Point(AK2 -AK2);P[9] := Point(0 A);// uses kismina MMSystem if wSound then PlaySound(PChar('SES') 0 SND_RESOURCE or SND_ASYNC);for j:=1 to abs(noN) do begin theWinControl.Left := orgLeft; theWinControl.Top := orgTop; for i:=1 to 9 do begin theWinControl.Left := theWinControl.Left + P[i].X; theWinControl.Top := theWinControl.Top + P[i].Y; theWinControl.Update; Sleep(25); // ??? end; end; theWinControl.Left := orgLeft; theWinControl.Top := orgTop; end; /// kullanimi NudgeWindow(Form1 3 true);
|
|
|
|
![]() |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | UslanmaM | Cevaplar | Son Mesaj |
| MSN Gaffur buhran titreşim sesleri... | HeLiN | Messenger & İcq | 10 | 06-23-2008 06:26 PM |
| F1' deki Öküz ! | RebelliouS | Uydurmaca Haberler | 0 | 08-16-2007 06:01 PM |
| Jabra Bt500v'den Titreşim Özelliği | RebelliouS | Bilim ve Teknik | 0 | 07-24-2007 02:17 PM |
| MSN de titreşim yerine istediğin müzik çalsın | NaZaR | Messenger & İcq | 0 | 03-21-2007 01:43 PM |
| Galatasaraylılar Msn Titreşim Sesi Cim Bom Bom Diye Calsın .. | xCaLiBrEx | Galatasaray | 0 | 10-07-2006 01:26 AM |
