QBasic & Borland Pascal & C/Delphi5.iso/Delphi.5/Doc/Other/DX_DELPH.exe/L3.TXT

Text File | 1998-12-05 | 4.3 KB | 79 lines

╚π≡εΓεΘ SDK

├δαΓα 32



╬ΣΦφ Φτ ±∩ε±εßεΓ Φτßσµα≥ⁿ ²≥ε≥ ±÷σφα≡ΦΦ ε≥∞σφΦ≥ⁿ ∞α≡Ωσ≡ φα ⌠δαµΩσ Break on exception Γ IDE (TooIsjOptions menu) Φ
≤±≥αφεΓΦ≥ⁿ Γ ±Γεσ∞ ∩≡ΦδεµσφΦΦ ±∩σ÷Φαδⁿφ√Θ εß≡αßε≥≈ΦΩ Φ±Ωδ■≈σφΦΘ ∩≡ΦδεµσφΦ . ▌≥ε≥ εß≡αßε≥≈ΦΩ Σεδµσφ ∩σ≡σΩδ■≈α≥ⁿ-
±  φα ∩εΓσ≡⌡φε±≥ⁿ GDI ∩σ≡σΣ ≥σ∞, ΩαΩ ∩εΩατα≥ⁿ ±εεß∙σφΦσ Φ±Ωδ■≈σφΦ . ▌≥ε φα∞φεπε δσπ≈σ, ≈σ∞ ∞εµσ≥ ∩εΩατα≥ⁿ± . ┬±σ, ≈≥ε
Γα∞ φσεß⌡εΣΦ∞ε ±Σσδα≥ⁿ, ù ±ετΣα≥ⁿ ±εß±≥Γσφφ√Θ private-∞σ≥εΣ Γ ⌠ε≡∞σ Φ ∩≡Φ±ΓεΦ≥ⁿ σπε AppHcation,OnException Γ OnCreate
⌠ε≡∞√. ═σ ταß√ΓαΘ≥σ ≤±≥αφεΓΦ≥ⁿ σπε εß≡α≥φε Γ nil Γ OnDestroy. ═εΓ√Θ ε∩Φ±α≥σδⁿ ∞εµσ≥ Φ±∩εδⁿτεΓα≥ⁿ ∞σ≥εΣ SwitchToGDI-
Surface εß·σΩ≥α IDirectDraw ∩σ≡σΣ Γ√τεΓε∞ MessageDIg. ╦Φ±≥Φφπ 32.3 ∩εΩατ√Γασ≥ εß≡αßε≥≈ΦΩ Φ±Ωδ■≈σφΦ .

╦Φ±≥Φφπ 32.3 ╬ß≡αßε≥≈ΦΩ Φ±Ωδ■≈σφΦΘ ∩≡ΦδεµσφΦ .

procedure TForml.ExceptionHandler( Sender : TObject ; E : Exception ) ;

begin

if Assigned ( DirectDraw ) then DirectDraw.FlipToGDISurface ;
MessageDIgt E.Message, mtError, [ mbOK ], 0 ) ;

end ;

─δ  ≥επε, ≈≥εß√ ≤±≥αφε÷Φ≥ⁿ ε∩Φ±α≥σδⁿ Φ±Ωδ■≈σφΦ  ∞√ ΣεßαΦΦ∞ ±δσΣ≤■∙≤■ ±≥≡εΩ≤ Γ OnCreate:

Application-OnException :== ExceptionHandler;

╧ε∞φΦ≥σ, ≈≥ε φ≤µφε Γ√Ωδ■≈Φ≥ⁿ Break on exception (Γ TooIsfOptions). ╩αΩ ≥εδⁿΩε Γ√ φαßσ≡σ≥σ±ⁿ ßεδⁿ°σ ε∩√≥α, Γ√ ±∞εµσ-
≥σ ΓΩδ■≈Φ≥ⁿ ²≥≤ ε∩÷Φ■ ±φεΓα Σδ  ±∩σ÷Φ⌠Φ≈σ±ΩΦ⌡ ταΣαφΦΘ ε≥δαΣΩΦ. ╬ΣφαΩε, σ±δΦ Γα°σ ∩≡ΦδεµσφΦσ Γ√τεΓσ≥ Φ±Ωδ■≈σφΦσ,
∩εΩα ∩εΓσ≡⌡φε±≥ⁿ GDI φσΓΦΣΦ∞α, IDE Γετⁿ∞σ≥ ±Γεσ Φ Γ√ φΦ≈σπε φσ ≤ΓΦΣΦ≥σ. ═αµα≥Φσ F9 Σεδµφε Γ√τΓα≥ⁿ ∩εΓ≥ε≡φεσ Φ±∩εδ-
φσφΦσ, α φαµα≥Φσ Ctrl-F2 Γσ≡φσ≥ ∩≡ΦδεµσφΦσ Γ Φ±⌡εΣφεσ ±ε±≥ε φΦσ Φ ΓετΓ≡α≥Φ≥ⁿ Γα± Γ Delphi.

╧εΓσ≡⌡φε±≥Φ ε≥εß≡αµσφΦ

╥σ∩σ≡ⁿ Γ√ πε≥εΓ√ ±ετΣαΓα≥ⁿ ∩εΓσ≡⌡φε±≥Φ ε≥εß≡αµσφΦ . ┬ DirectDraw ∩εΓσ≡⌡φε±≥ⁿ ε≥εß≡αµσφΦ  ∩≡σΣ±≥αΓδ σ≥ ±εßεΘ δΦ-
φσΘφ≤■ εßδα±≥ⁿ ²Ω≡αφφεΘ ∩α∞ ≥Φ, Ω Ωε≥ε≡εΘ ∞εµφε ∩εδ≤≈Φ≥ⁿ φσ∩ε±≡σΣ±≥Γσφφ√Θ Σε±≥≤∩ Σδ  ∞αφΦ∩≤δ ÷ΦΘ. ╧εΓσ≡⌡φε±≥ⁿ
ε≥εß≡αµσφΦ , Ωε≥ε≡≤■ Γ√ ΓΦΣΦ≥σ φα ²Ω≡αφσ, φατ√Γασ≥±  ε±φεΓφεΘ ∩εΓσ≡⌡φε±≥ⁿ■. ╬φα ∩≡σΣ±≥αΓδ σ≥ ∩α∞ ≥ⁿ ΓΦΣΦ∞επε ΩαΣ≡εΓε-
πε ß≤⌠σ≡α φα Ωα≡≥σ ε≥εß≡αµσφΦ . ┬√ ≥αΩµσ ∞εµσ≥σ Φ∞σ≥ⁿ φσΓΦΣΦ∞√σ ∩εΓσ≡⌡φε±≥Φ, Ωε≥ε≡√σ ε∩≡σΣσδ ■≥±  ΩαΩ Γφσ²Ω≡αφφ√σ,
ΦδΦ εΓσ≡δσΘφ√σ ∩εΓσ≡⌡φε±≥Φ. ╧εΣεßφεσ ∞εµσ≥ ±≤∙σ±≥ΓεΓα≥ⁿ δΦßε Γ ≡σπ≤δ ≡φεΘ ±Φ±≥σ∞φεΘ ∩α∞ ≥Φ, δΦßε Γε Γφσ²Ω≡αφφεΘ
εßδα±≥Φ ∩α∞ ≥Φ φα ±α∞εΘ π≡α⌠Φ≈σ±ΩεΘ Ωα≡≥σ. ─δ  ≥επε, ≈≥εß√ ±ετΣα≥ⁿ ±Φ≥≤α÷Φ■ ± ∞σδⁿΩα■∙Φ∞Φ ±≥≡αφΦ÷α∞Φ, φσεß⌡εΣΦ∞α
ε±φεΓφα  ∩εΓσ≡⌡φε±≥ⁿ Φ, ∩ε Ω≡αΘφσΘ ∞σ≡σ, εΣφα Γφσ²Ω≡αφφα  ∩εΓσ≡⌡φε±≥ⁿ Σδ  ε±≤∙σ±≥ΓδσφΦ  ε≥εß≡αµσφΦ . ─δ  ≥επε, ≈≥εß√
Γφσ²Ω≡αφφα  ∩εΓσ≡⌡φε±≥ⁿ ∞επδα ∩ε Γδ ≥ⁿ±  Φ Φ±≈στα≥ⁿ φα ²Ω≡αφσ, εφαΣεδµφα φα⌡εΣΦ≥±  Γ ΓΦΣσε∩α∞ ≥Φ. ╥σ∞ φσ ∞σφσσ, Direct-
Draw ∩√≥ασ≥±  ±ετΣα≥ⁿ ∩εΓσ≡⌡φε±≥Φ Γ ΓΦΣσε∩α∞ ≥Φ ∩ε ≤∞εδ≈αφΦ■, ∩ε²≥ε∞≤ φσ≥ φσεß⌡εΣΦ∞ε±≥Φ ∩≡σΣ∩≡ΦφΦ∞α≥ⁿ ≈≥ε-δΦßε
±∩σ÷Φαδⁿφε.

╤≤∙σ±≥Γ≤σ≥ ±∩ε±εß Σδ  ±ετΣαφΦ  ε±φεΓφεΘ ∩εΓσ≡⌡φε±≥Φ Φ εΣφεΘ Φ ßεδσσ ±∞σφφ√⌡ ∩εΓσ≡⌡φε±≥σΘ Γ εΣφε Φ ≥ε µσ Γ≡σ∞  -
τα ±≈σ≥ ±ετΣαφΦ  Ωε∞∩δσΩ±φεΘ ∩εΓσ≡⌡φε±≥Φ. ┼∙σ εΣΦφ α±∩σΩ≥ Γ ±ετΣαφΦΦ Ωε∞∩δσΩ±φεΘ (±ε±≥αΓφεΘ) ∩εΓσ≡⌡φε±≥Φ ταΩδ■≈ασ≥±  Γ
≥ε∞, ≈≥ε Γ√ ∞εµσ≥σ ε±ΓεßεΣΦ≥ⁿ Γ±σ ∩εΓσ≡⌡φε±≥Φ Γ Ωε∞∩δσΩ±φεΘ ÷σ∩Φ ±∞σφφ√⌡ ∩εΓσ≡⌡φε±≥σΘ ∩≤≥σ∞ Γ√±ΓεßεµΣσφΦ  ±α∞εΘ
Ωε∞∩δσΩ±φεΘ ∩εΓσ≡⌡φε±≥Φ. ─δ  ∩≡Φ∞σ≡α ±ετΣαΣΦ∞ Ωε∞∩δσΩ±φ≤■ ∩εΓσ≡⌡φε±≥ⁿ ∩ε±≡σΣ±≥Γε∞ εΣφεΘ Γ±∩ε∞επα≥σδⁿφεΘ ß≤⌠σ≡-
φεΘ ∩εΓσ≡⌡φε±≥Φ.

v.-'- ò

⌠εφεΓ√σ ∩εΓσ≡⌡φε±≥Φ, Ωε≥ε≡√σ ±ετΣα■≥±  Γ Ωα≈σ±≥Γσ ≈α±≥Φ Ωε∞∩δσΩ±φεΘ, ΦτΓσ±≥φ√ ΩαΩ ═σ Γφ√σ ∩εΓσ≡⌡φε±≥Φ.
╤≤∙σ±≥Γ≤σ≥ ßεδⁿ°εσ ≈Φ±δε ε∩σ≡α÷ΦΘ, Ωε≥ε≡√σ Γ√ φσ ±∞εµσ≥σ ε±≤∙σ±≥ΓΦ≥ⁿ ± ∩ε∞ε∙ⁿ■ ═σ Γφ√⌡ ∩εΓσ≡⌡φε±≥σΘ, φα∩≡Φ∞σ≡,
ε≥±εσΣΦφΦ≥ⁿ Φ⌡ ε≥ ε±φεΓφεΘ ∩εΓσ≡⌡φε±≥Φ ΦδΦ ε±ΓεßεΣΦ≥ⁿ Φ⌡ φσταΓΦ±Φ∞ε ε≥ ε±φεΓφεΘ ∩εΓσ≡⌡φε±≥Φ. ╬ΣφαΩε, Ωε∞∩δσΩ±φ√σ
∩εΓσ≡⌡φε±≥Φ φα∞φεπε ∩≡ε∙σ ±ετΣαΓα≥ⁿ, ∩ε≥ε∞≤ ≈≥ε DirectDraw ±ετΣασ≥ ⌠εφεΓ√σ ß≤⌠σ≡α Φ ±εσΣΦφ σ≥ Φ⌡ ± ε±φεΓφεΘ
∩εΓσ≡⌡φε±≥ⁿ■.

┬ ²≥εΘ ±Γ τΦ   Σεδµσφ τα≥≡εφ≤≥ⁿ Γε∩≡ε± ±δεµφε±≥Φ DirectDraw, ∩ε±ΩεδⁿΩ≤ φσεß⌡εΣΦ∞ε τα∩εδφ ≥ⁿ ∩εδ  Φ τα∩Φ±Φ TDDSur'
faceDesc. ┼±δΦ Γ√ ∩≡ε≈Φ≥ασ≥σ εß ²≥ε∞ Φ ±∩≡αΓΩσ DirectDraw, Γ√ ±∞εµσ≥σ ≤ΓΦΣσ≥ⁿ, ≈≥ε Γ±σ ²≥ε Γ√πδ ΣΦ≥ ΣεΓεδⁿφε ≤µα±φε! ═ε
ΩαΩ   ≤µσ πεΓε≡Φδ, Γ√ ∞εµσ≥σ ±≈α±≥δΦΓε Φπφε≡Φ≡εΓα≥ⁿ ßεδⁿ°Φφ±≥Γε Φτ ²≥Φ⌡ ∩εδσΘ. ╦Φ±≥Φφπ 32.4 ∩≡σΣ±≥αΓδ σ≥ ΩεΣ, Ωε≥ε≡√Θ
φσεß⌡εΣΦ∞ε ΣεßαΓΦ≥ⁿ Γ εß≡αßε≥≈ΦΩ OnShow Σδ  ±ετΣαφΦ  Ωε∞∩δσΩ±φεΘ ∩εΓσ≡⌡φε±≥Φ.

╦Φ±≥Φφπ 32.4 ╤ετΣαφΦσ Ωε∞∩δσΩ±φεΘ ∩εΓσ≡⌡φε±≥Φ.

{ τα∩εδφΦ≥ⁿ ε∩Φ±α≥σδⁿ DirectDrawSurface ∩σ≡σΣ ±ετΣαφΦσ∞ ∩εΓσ≡⌡φε±≥Φ }
FillChar( DDSurfaceDesc, Si2e0f( DDSurfaceDesc ), 0 ) ;
with DDSurfaceDesc do begin
dwSize : ^ SizeOf ( DDSurfaceDesc ) ;
dwFlags := DDSD_CAPS or DDSD_BACKBUFFERCOUNT ;
ddSCaps.dwCaps :^ DDSCAPS_COMPLEX or DDSCAPS FLIP or

DDSCAPS_PRIMARYSURFACE ;
dwBackBufferCount : == I ;
end ;