home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Delphi.5 / Doc / Other / DX_DELPH.exe / L18.TXT < prev    next >
Encoding:
Text File  |  1998-12-05  |  3.8 KB  |  85 lines
  1. ╠≤δⁿ≥Φ∞σΣΦα Φ Φπ≡√
  2. ╫α±≥ⁿ VII
  3.  
  4. ┼πε ≡αßε≥α ταΩδ■≈ασ≥±  Γ ∩εΣΩδ■≈σφΦΦ Φ ε≥Ωδ■≈σφΦΦ εß≡αßε≥≈ΦΩεΓ ±εß√≥ΦΘ Application, Ωε≥ε≡εσ ∩≡Φ∞σφ σ≥±  Γ ∞σ≥εΣσ
  5. SetFlippingEnabled, ΩαΩ ∩εΩαταφε ÷ δΦ±≥Φφπσ 32.29.
  6.  
  7. ╦Φ±≥Φφπ 32.29 ╙±≥αφεΓΩα ±ΓεΘ±≥Γ FlippingEnabled.
  8.  
  9. procedure TFormI. SetFlippingEnabled ( Value : boolean ) ;
  10. begin
  11.  
  12. if Value <> FFlippingEnabled then begin
  13. FFlippingEnabled := Value ;
  14. if FFlippingEnabled then begin
  15. // ΓΩδ■≈Φ≥ⁿ εß≡αßε≥≈ΦΩ ±εß√≥ΦΘ Application
  16. application òOnMessage ;= HandleMessage ;
  17. Application òOnidle := IdleHandler ;
  18. end else begin
  19.  
  20. // Γ√Ωδ■≈Φ≥ⁿ εß≡αßε≥≈ΦΩ ±εß√≥ΦΘ Application
  21. Application .OnMessage := NIL ;
  22. Application. Onidle := NIL ;
  23. end ;
  24. end ;
  25. end ;
  26.  
  27. FlippingEnabled ≤±≥αφαΦδΦΦασ≥±  Φ True Γ Ωεφ÷σ FonnShow, ΩαΩ ≥εδⁿΩε Γ√ Γ±σ ≤±≥αφεΓΦ≥σ. ╬φε ≤±≥αφαΓδΦΓασ≥±  εß≡α≥φε Γ
  28. False Γ≡σ∞σφφε Γ εß≡αßε≥≈ΦΩσ Φ±Ωδ■≈σφΦΘ Σδ  ∩≡Φε±≥αφεΓΩΦ Γ√∩εδφσφΦ  ∩≡ΦδεµσφΦ , ≈≥εß√ Γ√ ∞επδΦ ≤ΓΦΣσ≥ⁿ εΩφε ±εεß-
  29. ∙σφΦ . ΩαΩ ∩εΩατ√Γασ≥ δΦ±≥Φφπ 32.30.
  30.  
  31. ╦Φ±≥Φφπ 32.30 ╬ß≡αßε≥≈ΦΩ Φ±Ωδ■≈σφΦΘ τα∩≡σ∙ασ≥ ±∞σφ≤ ΩαΣ≡εΓ.
  32.  
  33. procedure TFor╗I.ExceptionHandler( Sender : TObject ;                               .
  34.  
  35. E      : Exception ) ;
  36. var WasEnabled : boolean ;
  37. begin
  38.  
  39. { ≤ßσΣΦ≥ⁿ± , ≈≥ε ∩εΓσ≡⌡φε±≥ⁿ GDI ΓΦΣΦ∞α ∩σ≡σΣ ε≥εß≡αµσφΦσ∞ ±εεß∙σφΦ  εß Φ±Ωδ■≈σφΦΦ }
  40. WasEnabled := FlippingEnabled ;   // τα∩ε∞φΦ≥ⁿ ±ε±≥ε φΦσ ±∞σφ√ ±≥≡αφΦ÷
  41. FlippingEnabled := false ;        // ε±≥αφεΓΦ≥ⁿ φα φσΩε≥ε≡εσ Γ≡σ∞  ±∞σφ≤ ±≥≡αφΦ÷
  42. if Assigned ( DirectDraw ) then DirectDraw.FlipToGDISurface ;
  43. MessageDlg( E.Message, mtError, [ mbOK ], 0 ) ;
  44. FlippingEnabled := WasEnabled ;   // ΓετεßφεΓΦ≥ⁿ ±∞σφ≤ ±≥≡αφΦ÷
  45. end ;
  46.  
  47. ╤Σσδαφ ²≥ε, Γ√ πε≥εΓ√ τα∩≤±≥Φ≥ⁿ ∩≡επ≡α∞∞≤. ╩εΣ φα⌡εΣΦ≥±  Γ DDDerno6. ┼±δΦ Γ√ φσ∞φεπε ∩ε≡αßε≥ασ≥σ ± φΦ∞, ∩σ≡σΣΓΦ-
  48. πα  ≥ε≡√ ∩≡Φ ∩ε∞ε∙ⁿ■ ΩδαΓΦ° ≤∩≡αΓδσφΦ  Ω≤≡±ε≡ε∞, Γ√ ≤ΓΦΣΦ≥σ, Ω≤Σα ∞√ ΦΣσ∞. ╙ φα± ∩εδ≤≈ΦδΦ±ⁿ ∩≡αΓΣε∩εΣεßφ√σ ±∩≡αΘ-
  49. ≥√. ╚ σ±δΦ ∞√ ∩≡ΦδεµΦ∞ σ∙σ φσ∞φεπε ≥≡≤Σα, φα ±α∞ε∞ Σσδσ ≥αΩ Φ ß≤Σσ≥.
  50.  
  51. ═α∞ φσεß⌡εΣΦ∞√ ±∩≡αΘ≥√!
  52.  
  53. ┬√ ΓΦΣσδΦ, ΩαΩ δσπΩε ≤∩≡αΓδ ≥ⁿ αφΦ∞α÷Φεφφ√∞Φ εß·σΩ≥α∞Φ ± ∩ε∞ε∙ⁿ■ ∩≡ε±≥επε αφΦ∞α÷Φεφφεπε Ωδα±±α. ╥σ∩σ≡ⁿ ±ετΣα-
  54. ΣΦ∞ ≡εΣεΓεΘ Ωδα±± TDDSprite. ╩δα±± TSimpleAnim ß√δ ≈σ≡σ±≈≤≡ ∩≡ε≈φ√∞, Φ εφ ß√δ ∩≡σΣφατφα≈σφ ±∩σ÷Φαδⁿφε Σδ  ∩ε±δσΣ-
  55. φσΘ Σσ∞εφ±≥≡α÷ΦΦ. ╥σ∩σ≡ⁿ φα≈φσ∞ ± φα≈αδα. (╩δα±± ±∩≡αΘ≥εΓ, Ωε≥ε≡√Θ   ∩ε±≥≡ε■ τΣσ±ⁿ,  Γδ σ≥±  ≤∩≡ε∙σφφεΘ Γσ≡±ΦσΘ ±∩≡αΘ≥εΓ
  56. Φτ ∞εσπε Ωε∞∞σ≡≈σ±Ωεπε φαßε≡α Game SDK Toolkit Σδ  Delphi 2.0. ╧≡ε≈Φ≥αΘ≥σ εß ²≥ε∞ ßεδσσ ∩εΣ≡εßφε Φ Φφ⌠ε≡∞α÷ΦΦ εß αΓ≥ε≡σ).
  57. ╧≡σµΣσ Γ±σπε, ε∩≡σΣσδΦ≥σ φσΩε≥ε≡√σ ⌡α≡αΩ≥σ≡Φ±≥ΦΩΦ, Ωε≥ε≡√∞Φ Γ√ ß√ ⌡ε≥σδΦ φαΣσδΦ≥ⁿ ²≥Φ ±∩≡αΘ≥√. ▌≥ε≥ ≡εΣεΓεΘ
  58. Ωδα±± ±∩≡αΘ≥εΓ Σεδµσφ:
  59.  
  60. ò ┴√≥ⁿ φσταΓΦ±Φ∞√∞ Φ Φ∞σ≥ⁿ Γετ∞εµφε±≥ⁿ ∩εΣ≡ατΣσδ ≥ⁿ±  φα ∩εΣΩδα±±√ Σδ  ≤ΣεΓδσ≥Γε≡σφΦ  ±∩σ÷Φ⌠Φ≈σ±ΩΦ⌡ ≥≡σßεΓαφΦΘ
  61.  
  62. ò ╚∞σ≥ⁿ Γ ε±φεΓσ ΩαΣ≡ Φ φε∞σ≡ ΩαΣ≡α Σδ  ε≥εß≡αµσφΦ  ∩ε ≥≡σßεΓαφΦ■
  63.  
  64. ò ═Φ≈σπε φσ Σσδα≥ⁿ ±α∞ε±≥ε ≥σδⁿφε, ∩≡σΣε±≥αΓδ   ²≥≤ εß ταφφε±≥ⁿ Σ≡≤πΦ∞ Ωδα±±α∞ ΦδΦ ∩εΣΩδα±±α∞
  65.  
  66. ò ╚±∩εδⁿτεΓα≥ⁿ Ωεε≡ΣΦφα≥√ ± ⌠ΦΩ±Φ≡εΓαφφεΘ ≥ε≈ΩεΘ φα ²Ω≡αφφεΘ ∩εΓσ≡⌡φε±≥Φ Σδ  ≥ε≈φεπε ≤∩≡αΓδσφΦ 
  67.  
  68. ò ╚∞σ≥ⁿ ΓσΩ≥ε≡ ±Ωε≡ε±≥Φ ± ⌠ΦΩ±Φ≡εΓαφφεΘ ≥ε≈ΩεΘ Φ εßδαΣα≥ⁿ ±∩ε±εßφε±≥ⁿ■ αΓ≥ε∞α≥Φ≈σ±ΩΦ ΣΓΦπα≥ⁿ±  Γ φα∩≡αΓδσφΦΦ
  69. ²≥επε ΓσΩ≥ε≡α
  70.  
  71. ò ╚∞σ≥ⁿ ΓσΩ≥ε≡ αΩ±σδσ≡α÷ΦΦ ± ⌠ΦΩ±Φ≡εΓαφφεΘ ≥ε≈ΩεΘ, Ωε≥ε≡√Θ αΓ≥ε∞α≥Φ≈σ±ΩΦ Σεδµσφ ∩≡Φ∞σφ ≥ⁿ±  Ω ±Ωε≡ε±≥Φ
  72.  
  73. ò ╚∞σ≥ⁿ ε∩÷Φ■ επ≡αφΦ≈σφΦ  Γ ∩≡σΣσδα⌡ ∩≡ ∞ε≤πεδⁿφεΘ εßδα±≥Φ
  74.  
  75. ò ╚∞σ≥ⁿ ±εß√≥Φ , Ωε≥ε≡√σ ∩ετΓεδ ≥ ∩σ≡σε∩≡σΣσδΦ≥ⁿ ∩ετΦ÷Φ■, ≈≥εß√ ∞εµφε ß√δε ∩≡Φ∞σφ ≥ⁿ ≡≤≈φεσ ≤∩≡αΓδσφΦσ Σδ 
  76. ∩σ≡σ∞σ∙σφΦ  ±∩≡αΘ≥α Φ σπε επ≡αφΦ≈σφΦΘ
  77.  
  78. ò ╬ßδαΣα≥ⁿ ±∩ε±εßφε±≥ⁿ■ ε≥≡αµα≥ⁿ±  ε≥ Ω≡ασΓ επ≡αφΦ≈ΦΓα■∙σΘ ∩≡ ∞ε≤πεδⁿφεΘ εßδα±≥Φ Γ ÷σδ ⌡ ≥σ±≥Φ≡εΓαφΦ 
  79.  
  80. ╤φα≈αδα τα∞σ≥ⁿ≥σ, ≈≥ε   Γ√ß≡αδ Σδ  ±Ωε≡ε±≥Φ ≥Φ∩ ± ⌠ΦΩ±Φ≡εΓαφφεΘ ≥ε≈ΩεΘ. ┬√ ±∩≡ε±Φ≥σ: "╧ε≈σ∞≤ µσ φσ ∩≡ε±≥ε ≥Φ∩
  81. integer?" ╬ΣφαΩε, ≡α±±∞ε≥≡Φ∞ Γε∩≡ε±, ±Γ ταφφ√Θ ±ε ±Ωε≡ε±≥ⁿ■. ┼±δΦ Γ√ Γ√≡ατΦ≥σ ±Ωε≡ε±≥ⁿ Γ ΓΦΣσ ΣΓ≤⌡ Ωε∞∩εφσφ≥ ≥Φ∩α
  82. integer (εΣφα πε≡Φτεφ≥αδⁿφα , α Σ≡≤πα  Γσ≡≥ΦΩαδⁿφα ), Γ√ τφα≈Φ≥σδⁿφε επ≡αφΦ≈Φ≥σ ±σß  ≈Φ±δε∞ Γετ∞εµφ√⌡ ≤πδεΓ, φα Ωε≥ε≡√σ
  83. ±∞επ ß√ ±∞σ∙α≥ⁿ±  Γα° ±∩≡αΘ≥. ═α∩≡Φ∞σ≡, ±Ωαµσ∞, Γ√ ⌡ε≥σδΦ ß√ ΣΓΦπα≥ⁿ±  ∞σΣδσφφε ±ε ±Ωε≡ε±≥ⁿ■ εΣΦφ ∩ΦΩ±σδ φα Φφ≥σ≡Γαδ
  84.  
  85.