home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Delphi.5 / Doc / Other / DX_DELPH.exe / L12.TXT < prev    next >
Encoding:
Text File  |  1998-12-05  |  4.8 KB  |  74 lines
  1. ╠≤δ√∩Φ∞σ<)ΦΦ Φ Φπ≡√
  2. ╫α±≥ⁿ VII
  3.  
  4. ±ετΣασ≥σ σπε ± IDirectDraw.CreatePalette, Ωε≥ε≡α  ≤±≥αφαΓδΦΓασ≥ ≤Ωατα≥σδⁿ φα ∞α±±ΦΓ ΓΓεΣΦ∞√⌡ Σαφφ√⌡ ∩αδΦ≥≡√, Ωε≥ε≡√Θ
  5. Φ±∩εδⁿτεΓαδ±  Σδ  ΦφΦ÷ΦαδΦτα÷ΦΦ εß·σΩ≥α ∩αδΦ≥≡√. ╟α≥σ∞ Γ√ ∩≡Φ±εσΣΦφ σ≥σ σσ Ω ∩εΓσ≡⌡φε±≥Φ DrawSurface Φ εφα ±≥αφσ≥
  6. Φ±∩εδⁿτεΓα≥ⁿ±  αΓ≥ε∞α≥Φ≈σ±ΩΦ Σδ  Γ±σ⌡ ∩ε±δσΣ≤■∙Φ⌡ ε∩σ≡α÷ΦΘ. ╩εφσ≈φε µσ, ∩≡σΩ≡α±φε.
  7.  
  8. ╚≥αΩ, ΩαΩ µσ ∩εδ≤≈Φ≥ⁿ ²≥Φ τφα≈σφΦ  ÷Γσ≥εΓ? ╒ε≡ε°ε,   φα∩Φ±αδ σ∙σ εΣφ≤ φσßεδⁿ°≤■ ⌠≤φΩ÷Φ■ Σδ  Φ⌡ ταπ≡≤τΩΦ Φτ
  9. ≡α±≥≡εΓεπε Φτεß≡αµσφΦ  ΦδΦ ±ετΣαφΦ  ÷Γσ≥εΓ ∩ε ≤∞εδ≈αφΦ■, Φ Σδ  ±ετΣαφΦ  Φ ΓετΓ≡α≥α εß·σΩ≥α IDirectDrawPalette. ╬φα
  10. ≥αΩµσ φα⌡εΣΦ≥±  Γ DDUtils.pas Φ φατ√Γασ≥±  DDLoadPalette. ┬√ ∩≡ε±≥ε ∩σ≡σΣαΘ≥σ σΘ Φ∞  Γα°σπε εß·σΩ≥α IDirectDraw δΦßε ±
  11. Φ∞σφσ∞ ≡α±≥≡εΓεπε Φτεß≡αµσφΦ , δΦßε (σ±δΦ Γ√ ⌡ε≥Φ≥σ ∩αδΦ≥≡≤ ∩ε ≤∞εδ≈αφΦ■) ± ∩≤±≥εΘ ±≥≡εΩεΘ. (╩αΩ Φ Σ≡≤πΦσ ∩≡επ≡α∞∞√,
  12. DDLoadPalette ±φα≈αδα ∩√≥ασ≥±  ταπ≡≤τΦ≥ⁿ ≡α±≥≡εΓεσ Φτεß≡αµσφΦσ Φτ ≡σ±≤≡±α ∩≡ΦδεµσφΦ . ┼±δΦ ²≥ε φσ ≤Σασ≥± , εφα ∩√≥ασ≥-
  13. ±  ταπ≡≤τΦ≥ⁿ ≡α±≥≡εΓεσ Φτεß≡αµσφΦσ Φτ ⌠αΘδα. ▀ φσ ∩εΓ≥ε≡ ■ τΣσ±ⁿ ΩεΣ, ∩ε±ΩεδⁿΩ≤ εφ φσ±ΩεδⁿΩε ΣδΦφφσσ Σ≡≤πΦ⌡ ⌠≤φΩ÷ΦΘ.
  14. ╬φ πδαΓφ√∞ εß≡ατε∞ Φ∞σσ≥ Σσδε ± ∩≡εΓσ≡ΩεΘ φαδΦ≈Φ  ≤ DIB ≥αßδΦ÷√ ÷Γσ≥εΓ, Ωε≥ε≡≤■ εφ τα≥σ∞ Ωε∩Φ≡≤σ≥ Γ ∞α±±ΦΓ ΓΓεΣΦ∞√⌡
  15. Σαφφ√⌡ ∩αδΦ≥≡√).
  16.  
  17. ▀ ΣεßαΓΦδ εß·σΩ≥ ∩αδΦ≥≡√ Ω εß· ΓδσφΦ■ ⌠ε≡∞√, ταπ≡≤τΦδ σπε Γ FormShow Φ ∩≡Φ±εσΣΦφΦδ εß·σΩ≥ ∩αδΦ≥≡√ Ω ε±φεΓφεΘ
  18. ∩εΓσ≡⌡φε±≥Φ ±δσΣ≤■∙Φ∞ εß≡ατε∞:
  19.  
  20. { ταπ≡≤τΦ≥ⁿ ∩αδΦ≥Ω≤ Φ² ≡α±≥≡εΓεπε Φτεß≡αµσφΦ  Φ ∩≡Φ±εσΣΦφΦ≥ⁿ σσ Ω ε±φεΓφεΘ ∩εΓσ≡⌡φε±≥Φ )
  21. DDPalette : = DDLoadPalette ( DirectDraw, GetBitmapName ) ;
  22. PrimarySurface , SatPalette ( DDPalette ) ;
  23.  
  24. ╤ετΣαΓ, Γ√ Σεδµφ√ ε±ΓεßεΣΦ≥ⁿ σπε Φτ ε±φεΓφεΘ ∩εΓσ≡⌡φε±≥Φ Γ FormDestroy:
  25.  
  26. ( ε±ΓεßεΣΦ≥ⁿ DD-∩αδΦ≥≡≤ }
  27. if Assigned ( DDPalette ) then DDPalette. Release ;
  28.  
  29. ╧≡εΣσδαΓ Γ±σ Φτ∞σφσφΦ , Γ√ ∞εµσ≥σ ≥σ∩σ≡ⁿ ∩≡Φ±≥≤∩Φ≥ⁿ Ω ∩≡εΓσ≡Ωσ. DDDemoS ±εΣσ≡µΦ≥ Γ±σ Φτ∞σφσφΦ , εßετφα≈σφφ√σ
  30. Σε φα±≥ε ∙σπε ∞ε∞σφ≥α.
  31.  
  32. ╬ß·σΣΦφσφΦσ Γ±σπε Γ∞σ±≥σ
  33.  
  34. ┬ φα±≥ε ∙ΦΘ ∞ε∞σφ≥ Γ√ ∞εµσ≥σ ±ε±≥αΓΦ≥ⁿ DirectDraw-∩≡Φδεµ±φΦσ ±ε ±∞σφεΘ ±≥≡αφΦ÷, α ≥αΩµσ ταπ≡≤τΦ≥ⁿ ≡α±≥≡εΓεσ
  35. Φτεß≡αµσφΦσ Φ ∩αδΦ≥≡≤. ╙ Γα± Φ∞σσ≥±  Γ±σ φσεß⌡εΣΦ∞εσ Σδ  ±ετΣαφΦ  ±∞σφ√ ±≥≡αφΦ÷ Φ ∩≡Φ≈σ∞ φα ∩εδφεΘ ±Ωε≡ε±≥Φ! ─δ 
  36. ≥επε, ≈≥εß√ ß√δε σ∙σ Φφ≥σ≡σ±φσΘ, ΩαΩ φα±≈σ≥ αφΦ∞α÷ΦΦ? DirectDraw Γ εΣφεΘ Φτ Σσ∞εφ±≥≡α÷Φεφφ√⌡ ∩≡επ≡α∞∞ Φ±∩εδⁿτ≤σ≥
  37. ⌠αΘδ ± Φ∞σφσ∞ ALL.BMP. ┬√ ≥αΩµσ φαΘΣσ≥σ σπε Γ ΣΦ≡σΩ≥ε≡ΦΦ DDDenno5. ┬ φσΘ ±εΣσ≡µΦ≥±  σ∙σ εΣφε ßεδσσ Φφ≥σ≡σ±φεσ
  38. ⌠εφεΓεσ Φτεß≡αµσφΦσ Φ φαßε≡ αφΦ∞α÷Φεφφ√⌡ ΩαΣ≡εΓ ± Ω≡α±φ√∞ Γ≡α∙α■∙Φ∞±  ≥≡σ⌡∞σ≡φ√∞ ≥ε≡ε∞.
  39.  
  40. ╧σ≡σΣ ε≈σ≡σΣφεΘ ±∞σφεΘ ±≥≡αφΦ÷√ Γ√ τα⌡ε≥Φ≥σ ε≥εß≡ατΦ≥ⁿ ⌠εφεΓεσ Φτεß≡αµσφΦσ Φ τα≥σ∞ ≥σΩ≤∙ΦΘ αφΦ∞α÷Φεφφ√Θ ΩαΣ≡
  41. ± ≥ε≡ε∞. ┬√ ±ετΣασ≥σ ≥≡Φ ≥ε≡α Γ ≡ατφ√⌡ ∩ετΦ÷Φ ⌡ φα ²Ω≡αφσ, Ωε≥ε≡√σ ß≤Σ≤≥ Γ≡α∙α≥ⁿ±  ± ≡ατφεΘ ±Ωε≡ε±≥ⁿ■. ┬ΓΦΣ≤ ≥επε, ≈≥ε
  42. ⌠εφεΓ√Θ ß≤⌠σ≡ ß≤Σσ≥ φσ∩≡σ≡√Γφε ∩σ≡σ≡Φ±εΓ√Γα≥ⁿ± , Γ√ Σεδµφ√ ⌡≡αφΦ≥ⁿ πΣσ-φΦß≤Σⁿ σ∙σ Φ±⌡εΣφεσ Φτεß≡αµσφΦσ, ταπ≡≤µσφ-
  43. φεσ Φτ ALL.BMP. ╧ε²≥ε∞≤ ±ετΣαΘ≥σ Σδ  φσπε σ∙σ εΣφ≤ ∩εΓσ≡⌡φε±≥ⁿ DirectDraw. ▌≥ε Γφσ²Ω≡αφφα  ∩δε±Ωε±≥ⁿ Φ εφα φσ Φ∞σσ≥
  44. ε≥φε°σφΦ  Ω ±∞σφσ ±≥≡αφΦ÷; φα φσΘ ∞√ ß≤Σσ∞ ⌡≡αφΦ≥ⁿ Φτεß≡αµσφΦσ.
  45.  
  46. ╤≤∙σ±≥Γσφφε Γαµφε ε≥∞σ≥Φ≥ⁿ, ≈≥ε ∩ε ≤∞εδ≈αφΦ■ DirectDraw ±ετΣασ≥ Φ±⌡εΣφεσ Φτεß≡αµσφΦσ Γ ²Ω≡αφφεΘ ∩α∞ ≥Φ. ▌≥ε
  47. ετφα≈ασ≥, ≈≥ε ΩεπΣα Γ√ Φ±∩εδⁿτ≤σ≥σ Φτεß≡αµσφΦσ Σδ  εßφεΓδσφΦ  ⌠εφεΓεπε ß≤⌠σ≡α, δ■ßεΘ ∩≡εΦτΓεΣΦ∞√Θ ßΦ≥εΓ√Θ ∩σ≡σφε±
  48. Φ±∩εδⁿτ≤σ≥ α∩∩α≡α≥φ√Θ ∩σ≡σφε± ßΦ≥εΓ, σ±δΦ ≥αΩεΓεΘ Φ∞σσ≥±  φα π≡α⌠Φ≈σ±ΩεΘ Ωα≡≥σ. ╧≡αΩ≥Φ≈σ±ΩΦ Γ±σ ∩σ≡±εφαδⁿφ√σ Ωε∞∩ⁿ-
  49. ■≥σ≡√ Γ φα±≥ε ∙σσ Γ≡σ∞  ε±φα∙σφ√ ≤±Ωε≡σφφεΘ π≡α⌠Φ≈σ±ΩεΘ Ωα≡≥εΘ, Ωε≥ε≡≤■ ΩαΩ ≡ατ Φ Φ±∩εδⁿτ≤σ≥ DirectDraw. ┬ΓΦΣ≤ ≥επε,
  50. ≈≥ε ²≥ε α∩∩α≡α≥φεσ εßσ±∩σ≈σφΦσ ≡αßε≥ασ≥ φα∞φεπε ß√±≥≡σσ, ≈σ∞ ∩≡ε÷σ±±ε≡ Γε Γ≡σ∞  ßΦ≥εΓεπε ∩σ≡σφε±α, Φπ≡√ DirectDraw
  51. Σεδµφ√ Φ∞σ≥ⁿ ßεδⁿ°≤■ ²⌠⌠σΩ≥ΦΓφε±≥ⁿ ∩ε ε≥φε°σφΦ■ Ω Φπ≡α∞ DOS, πΣσ ∩≡ε÷σ±±ε≡ Σσδασ≥ Γ±σ.
  52.  
  53. ┴Φ≥εΓ√Θ ∩σ≡σφε± (bit-blitting) - ≥σ≡∞Φφ, Φ±∩εδⁿτ≤σ∞√Θ Σδ  ε∩Φ±αφΦ  ∩σ≡σφε±α εßδα±≥σΘ ≡α±≥≡εΓ√⌡ Φτεß≡αµσφΦΘ Γ, Φτ
  54. ΦδΦ Γ ∩≡σΣσδα⌡ Σ≡≤πΦ⌡ ≡α±≥≡εΓ√⌡ Φτεß≡αµσφΦΘ. ╥σ≡∞Φφ ΦφεπΣα τα∩Φ±√Γασ≥±  ßεδσσ ≥ε≈φε ΩαΩ bitblting, φε εφ ±δεµσφ Σδ 
  55. ≈≥σφΦ , ∩ε²≥ε∞≤ Γ√ ≈α±≥ε φαΘΣσ≥σ σπε Γ ≡α±≈δσφσφφ√∞ Γ ΓΦΣσ ΣΓ≤⌡ ±δεΓ bit-blitting. BitBIt - Ω≡α≥Ωεσ ε∩Φ±αφΦσ ≥σ≡∞Φφα
  56. BITmap Block Transfer (∩σ≡σφε± ßδεΩα ≡α±≥≡εΓεπε Φτεß≡αµσφΦ ).
  57.  
  58. ╚≥αΩ, τα ≡αßε≥≤. ╤ετΣαΘ≥σ ²≥≤ Σε∩εδφΦ≥σδⁿφ≤■ ∩εΓσ≡⌡φε±≥ⁿ Φ φατεΓΦ≥σ σσ Image (Φτεß≡αµσφΦσ). ─εßαΓⁿ≥σ σσ Γ εß· Γδσ-
  59. φΦσ ⌠ε≡∞√. ▌≥ε ΩαΩ ≡ατ Φ σ±≥ⁿ IDirectDrawSurface, ∩ε²≥ε∞≤ φσ≥ φσεß⌡εΣΦ∞ε±≥Φ ∩≡σΣ±≥αΓδ ≥ⁿ τΣσ±ⁿ ²≥≤ ≥≡ΦΓΦαδⁿφ≤■ ±≥≡εΩ≤
  60. ΩεΣα. ╟α≥σ∞ ΣεßαΓⁿ≥σ ΩεΣ Γ FormShow, Ωε≥ε≡√Θ ±ετΣασ≥ ≡α±≥≡εΓεσ Φτεß≡αµσφΦσ. ╚±∩εδⁿτ≤Θ≥σ DDLoadBitmap, ²≥ε ≥εδⁿΩε
  61. εΣφα ±≥≡εΩα! ┬ε≥ εφα:
  62. Image := DDLoadBitmap (Directdraw, GetBitmapName, ╬, ╬);
  63.  
  64. ╧ε∞φΦ≥σ, ≈≥ε Γα∞ φσεß⌡εΣΦ∞ε ∩ε∩εδφΦ≥ⁿ ∞σ≥εΣ RestoreSurfaces Φ ≥επΣα Γ√ ∩εδ≤≈Φ≥σ φεΓ≤■ φσ Γφ≤■ ∩εΓσ≡⌡φε±≥ⁿ. ┼±δΦ
  65. Γε±±≥αφεΓδσφΦσ ε±φεΓφεΘ ∩α∞ ≥Φ ∩εΓσ≡⌡φε±≥Φ ∩≡εΘΣσ≥ φε≡∞αδⁿφε, ∩ε∩√≥αΘ≥σ±ⁿ Γε±±≥αφεΓΦ≥ⁿ ∩εΓσ≡⌡φε±≥φ≤■ ∩α∞ ≥ⁿ Ima-
  66. ge. ┼±δΦ εßα ≥Φ∩α Γε±±≥αφεΓδσφΦΘ ß≤Σ≤≥ Φ∞σ≥ⁿ ∞σ±≥ε, Γ√τεΓΦ≥σ DrawSurfaces, ΩαΩ ∩εΩαταφε Γ δΦ±≥Φφπσ 32.20.
  67.  
  68. ╦Φ±≥Φφπ 32.20 ┬ε±±≥αφεΓδσφΦσ Γ±σ⌡ ∩εΓσ≡⌡φε±≥σΘ.
  69.  
  70. function TFormI. RestoreSurfaces : HResult ;
  71. begin
  72. Result òòò= primarySurface. Restore ;
  73.  
  74.