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

Text File | 1998-12-05 | 3.3 KB | 92 lines

╚π≡εΓεΘ SDK

├δαΓα 32



τφα≈σφΦσ ∩≡Φ φαµα≥ΦΦ ΩαΩεΘ-δΦßε Φτ Ωδα÷Φ° Ω≤≡±ε≡α. ╩δαΓΦ°α Shift ∩≡Φ φαµα≥ΦΦ ±φΦµασ≥ ±Ωε≡ε±≥ⁿ, σ±δΦ εφα σ∙σ φσΣε±≥α-
≥ε≈φε ∞σΣδσφφα . ╩δαΓΦ°Φ ε≥ 0 Σε 9 ε∩≡σΣσδ ■≥ τφα≈σφΦσ MoveOption, Ωε≥ε≡εσ ≤Ωατ√Γασ≥, ΩαΩΦ∞ εß·σΩ≥α∞ ∩σ≡σ∞σ∙α≥ⁿ± .
╟α∞σ≥ⁿ≥σ, ≈≥ε φαδΦ≈Φσ ∞εφΦ≥ε≡Φφπα φαµα≥Φ  ε∩≡σΣσδσφφεΘ ΩδαΓΦ°Φ ετφα≈ασ≥, ≈≥ε αφΦ∞α÷Φεφφ√Θ εß·σΩ≥ ∞εµσ≥ ∩ε-≡ατφε∞≤
≡σαπΦ≡εΓα≥ⁿ φα ≡ατδΦ≈φ√σ Ωε∞ßΦφα÷ΦΦ ΩδαΓΦ°. ┬ ²≥ε∞ ±δ≤≈ασ, Γ√ ∞εµσ≥σ ∩σ≡σΣΓΦπα≥ⁿ ±∩≡αΘ≥√ ∩ε ΣΦαπεφαδΦ, σ±δΦ Γ√ ß≤Σσ≥σ
≤Σσ≡µΦΓα≥ⁿ ±≡ατ≤ ΣΓσ ΩδαΓΦ°Φ ≤∩≡αΓδσφΦ  Ω≤≡±ε≡ε∞.
╥σ∩σ≡ⁿ φσεß⌡εΣΦ∞ε ΓΓσ±≥Φ εß≡αßε≥≈ΦΩ ╬∩╩σ≤1}≡Σδ  ≤≈σ≥α ΩεδΦ≈σ±≥Γα ε≥µα≥Φ  ΩδαΓΦ°Φ. ▌≥ε ∩≡σΣ±≥αΓδσφε Γ δΦ±≥Φφπσ 32,26.

╦Φ±≥Φφπ 3226 ╬≥±δσµΦΓαφΦσ ε≥µα≥√⌡ ΩδαΓΦ°.

procedure TForml.FormKeyUp (Sender: TObject; var Key: Word;
Shift: TShiftState);

begin
// ∩≡εΓσ≡Ωα ε≥∩≤±ΩαφΦ  ΩδαΓΦ°Φ ≤∩≡αΓδσφΦ  Ω≤≡±ε≡ε∞

case Key of
VKJLEFT,

VK_RIGHT : XVelocity := 0 ;
VK_UP,

VK_DOWN  : YVelocity :== 0 ;
VK_SHIFT : begin
XVelocity :== XVelocity * 4 ;
YVelocity := YVelocity * 4 ;
end ;
end ;
end;

╩αΩ Φ√ 1τΦΣΦ≥σ, ΣΓΦµσφΦσ ∩≡σΩ≡α∙ασ≥±  ⁿ πε≡Φτεφ≥αδⁿφε∞ Φ Γσ≡≥ΦΩαδⁿφε∞ φα∩≡αΓδσφΦ ⌡, σ±δΦ ΩδαΓΦ°α ≤∩≡αΓδσφΦ
Ω≤≡±ε≡ε∞ ε≥∩≤∙σφα, Φ ±Ωε≡ε±≥ⁿ ≤ΓσδΦ≈ΦΓασ≥±  Γ ≈σ≥√≡σ ≡ατα, σ±δΦ ε≥∩≤±Ωασ≥±  ΩδαΓΦ°α Shift.

┬⌡εµΣσφΦσ Γ ÷ΦΩδ ±εεß∙σφΦΘ

╥σ∩σ≡ⁿ, ΩεπΣα πδαΓφ√Θ ΩεΣ ≤ Γα± Γ ±ßε≡σ, Γ√ Σεδµφ√ φαΘ≥Φ ∞σ±≥ε Σδ  Γ√τεΓα UpdateDisplay. ╘αΩ≥Φ≈σ±ΩΦ, Γ√ ∞εµσ≥σ
Γ√τ√Γα≥ⁿ σσ ΩαΩ ∞εµφε ≈α∙σ Σδ  ≥επε, ≈≥εß√ ∩εδ≤≈Φ≥ⁿ ∞αΩ±Φ∞αδⁿφε Γετ∞εµφ≤■ ±Ωε≡ε±≥ⁿ ±∞σφ√ ΩαΣ≡εΓ. ═α  τ√Ωσ ╤ ΦδΦ
Σαµσ Pascal, Γα∞ φσεß⌡εΣΦ∞ε ß√δε ΓεΘ≥Φ Γ ÷ΦΩδ ±εεß∙σφΦ  Φ Γ√τ√Γα≥ⁿ UpdateDisplay Γ± ΩΦΘ ≡ατ ∩≡Φ ∩εΓ≥ε≡φε∞ ∩≡ε⌡εµΣσφΦΦ
÷ΦΩδα. ▌≥ε ∞εµφε ±Σσδα≥ⁿ Φ Γ Delphi, φε ²≥ε φσ±ΩεδⁿΩε τα∞√±δεΓα≥ε, ΓΓΦΣ≤ ≥επε, ≈≥ε Delphi εßδαΣασ≥ ±ΓεΦ∞ ±εß±≥Γσφφ√∞ ÷ΦΩδε∞
±εεß∙σφΦΘ. ┬√ ∩≡ε±≥ε Σεδµφ√ ε∩≡σΣσδσφφ√∞ εß≡ατε∞ ∩σ≡σφσ±≥Φ ²δσ∞σφ≥ ≤∩≡αΓδσφΦ  Γ ±ΓεΘ ±εß±≥Γσφφ√Θ ÷ΦΩδ.

┬∞σ±≥ε ²≥επε ∞εµφε ΣεßαΓΦ≥ⁿ ΩεΣ Γ ±εß√≥Φ  Onidle Φ OnMessage ∩σ≡σ∞σφφεΘ Application. ┬√ ∞εµσ≥σ Γτπδ φ≤≥ⁿ φα εß· Γ-
δσφΦ  εß≡αßε≥≈ΦΩεΓ ²≥Φ⌡ ±εß√≥ΦΘ Γ ΣΦαδεπεΓεΘ ±∩≡αΓΩσ Delphi Φ ΣεßαΓΦ≥ⁿ Φ⌡ Γ Ωα≈σ±≥Γσ ∞σ≥εΣεΓ Γ ±Γε■ ⌠ε≡∞≤. ┬ε≥ ΩαΩ
Γ√πδ Σ ≥ ²≥Φ εß· ΓδσφΦ :

procedure HandleMessage( var Msg     : TMsg ;

var Handled : boolean ) ;

procedure ldleHandler( Sender   : TObject ;
var Done : boolean ) ;

╬φΦ, ΩαΩ Φ δ■ßεΘ Σ≡≤πεΘ ∞σ≥εΣ, ΣεßαΓδ ■≥±  Γ ±σΩ÷Φ■ private εß· ΓδσφΦ  ⌠ε≡∞√. ╧≡Φ∞σφ ≥ⁿ Φ⌡ δσπΩε, πδαΓφ√∞ εß≡α-
τε∞ φ≤µφε ∩≡ε±≥ε Γ√τΓα≥ⁿ UpdateDisplay. ═≤µφε ≥εδⁿΩε ≤≈σ±≥ⁿ εΣΦφ ±≤∙σ±≥Γσφφ√Θ ∞ε∞σφ≥ - φσεß⌡εΣΦ∞ε ≤±≥αφεΓΦ≥ⁿ Done
Γ False Γ IdleHandler, ≈≥εß√ ≤ßσΣΦ≥ⁿ± , ≈≥ε VCL φσ ε≥Σασ≥ ≤∩≡αΓδσφΦσ Γ εµΦΣαφΦΦ ±εεß∙σφΦ  Windows, ≈≥ε ∩≡Φε±≥αφεΓΦδε
ß√ εßφεΓδσφΦσ ²Ω≡αφα. ▌≥ε ∩εΩαταφε Γ δΦ±≥Φφπσ 32.27.

╦Φ±≥Φφπ 32.27 ╬ßφεΓδσφΦσ ²Ω≡αφα ± ∞αΩ±Φ∞αδⁿφε Γετ∞εµφεΘ ±Ωε≡ε±≥ⁿ■.

procedure TForml.HandleMessage( var Msg : TMsg ; var Handled : boolean )       ;

begin
UpdateDisplay ;

end ;
procedure TFormI .ldleHandler( Sender : TObject ; var Done : boolean ) ;

begin
UpdateDisplay ;
Done := false ;
end ;

┬ Ωεφσ≈φε∞ Φ≥επσ ΣεßαΓⁿ≥σ ⁿ ⌠ε≡∞≤ ±ΓεΘ±≥Γε FlippingEnabled, εß· ΓΦΓ σπε, ΩαΩ ∩εΩαταφε Γ δΦ±≥Φφπσ 32.28.

╦Φ±≥Φφπ 32.28 ─εßαΓδσφΦσ Γ ⌠ε≡∞≤ ±ΓεΘ±≥Γα FlippingEnabled.

type TFormI == class( TForm )

*   *

FFlippingEnabled : boolean ;
public

property  FlippingEnabied : boolean read FFlippingEnabled write SetFlippingEnabled ;
end ;