home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Delphi.5 / Doc / Other / DX_DELPH.exe / L9.TXT < prev    next >
Encoding:
Text File  |  1998-12-05  |  2.5 KB  |  94 lines
  1. ╚π≡εΓεΘ SDK
  2. ├δαΓα 32
  3.  
  4.  
  5.  
  6. if FDeviceContext <> 0 then begin
  7. Handle := 0 ;
  8.  
  9. FSurface. ReleaseDC ( FDeviceContext )
  10. FDeviceContext := 0 ;
  11. i         end ;
  12. end ;
  13. end.
  14.  
  15. ─δ  ≥επε, ≈≥εß√ Φ±∩εδⁿτε∩α≥ⁿ ²≥ε≥ Ωδα±±, ±δσΣ≤σ≥ ±Ωε∩Φ≡εΓα≥ⁿ ∞εΣ≤δⁿ DDCaiivas.pas ÷ Ωα≥├δεπ Lib, Ωε≥ε≡√Θ φα⌡εΣΦ≥±  ÷
  16. Ωα≥αδεπσ Delphi 2.0, ΦδΦ Φ Σ≡≤πεΘ Ωα≥αδεπ, εßετφα≈σφφ√Θ ÷ ∩≤≥Φ ∩εΦ±Ωα ßΦßδΦε≥σΩΦ.
  17.  
  18. ╧ε∞φΦ≥σ δΦ Γ√ τδε∩εδ≤≈φεσ ΓταΦ∞φεσ Φ±Ωδ■≈σφΦσ Win 1 ß, Ωε≥ε≡εσ ∩≡Φε±≥αφαΦδΦ∩ασ≥ ∞φεπεταΣα≈φ≤■ ≡αßε≥≤? ╒ε≡ε°ε,  
  19. σ∙σ ≡ατ ∩εΣ≈σ≡Ωφ≤ φσεß⌡εΣΦ∞ε±≥ⁿ ε±ΓεßεµΣσφΦ  DC. ╩δα±± TDDCanvas Φ∞σσ≥ Φ Φ±∩εδⁿτ≤σ≥ Γ ±ΓεΦ⌡ ÷σδ ⌡ ∞σ≥εΣ Release.
  20. ┬±σπΣα ταΓε≡α≈ΦΓαΘ≥σ δ■ßεΘ Σε±≥≤∩ Ω ∩εδε≥φ≤ Γ ßδεΩ try..finally, φα∩≡Φ∞σ≡:
  21.  
  22. try
  23.  
  24. DDCanvas.TextOut( 0, 0, 'Hello Flipping World!' ) ;
  25. ( Φ ≥.Σ. )
  26. finally
  27.  
  28. DDCanvas. Release ;
  29. end ;
  30.  
  31. ╚δΦ, ΩαΩ   ≈α±≥ε Σσδα■, Φ±∩εδⁿτ≤Θ≥σ Ωεφ±≥≡≤Ω÷Φ■ with Σδ  ≥επε, ≈≥εß√ ±²Ωεφε∞Φ≥ⁿ Γ≡σ∞  φαßε≡α:
  32.  
  33. with DDCanvas do try
  34.  
  35. TextOuK 0, 0, 'Hello Withering World!' ) ;
  36. ( Φ ≥.Σ. }
  37. finally
  38.  
  39. Release ;
  40. end ;
  41.  
  42. ╚≥αΩ, ≥σ∩σ≡ⁿ Γ√ ∞εµσ≥σ ΣεßαΓΦ≥ⁿ ∩α≡≤ ≥αΩΦ⌡ ∩εδε≥σφ Γ εß· ΓδσφΦ  ⌠ε≡∞√, ±ετΣαΓα  Φ⌡ Γ FormShow, φα∩≡Φ∞σ≡:
  43.  
  44. { ±ετΣα≥ⁿ ΣΓα TDDCanvas Σδ  φα°Φ⌡ ΣΓ≤⌡ ∩εΓσ≡⌡φε±≥σΘ }
  45. PrimaryCanvas : = TDDCanvas . Create ( PrimarySurface ) ;
  46. BackCanvas : = TDDCanvas , Create ( BackBuffer ) ;
  47.  
  48. ╬±ΓεßεΣΦ≥σ Φ⌡ Γ FormDestroy ∩σ≡σΣ ≥σ∞, ΩαΩ ε±ΓεßεΣΦ≥ⁿ ∩εΓσ≡⌡φε±≥Φ:
  49.  
  50. { ε±ΓεßεΣΦ≥ⁿ εß·σΩ≥√ TDDCanvas ∩σ≡σΣ ε±ΓεßεµΣσφΦσ∞ ∩εΓσ≡⌡φε±≥σΘ }
  51. PrimaryCanvas. Free ;
  52. BackCanvas. Free ;
  53.  
  54. ╥σ∩σ≡ⁿ ∞εµφε ε±≤∙σ±≥Γδ ≥ⁿ Γ√ΓεΣ δΦßε φα ε±φεΓφ≤■ ∩εΓσ≡⌡φε±≥ⁿ, δΦßε φα ⌠εφεΓ√Θ ß≤⌠σ≡, ∩≡ε±≥ε ∩≡Φ∞σφ   ²≥Φ ∩εδ-
  55. ε≥φα. ╥αΩΦ∞ εß≡ατε∞, Γ√ Φτ∞σφ σ≥σ DrawSurfacesΣδ  Φ⌡ Φ±∩εδⁿτεΓαφΦ , τφα≈Φ≥σδⁿφε ≤∩≡ε∙α  ΩεΣ, ≈≥ε ∩≡εΣσ∞εφ±≥≡Φ≡εΓαφε
  56. Γ δΦ±≥Φφπσ 32.16.
  57.  
  58. ╦Φ±≥Φφπ 32.16 DrawSurfaces Φ±∩εδⁿτ≤σ≥ εß·σΩ≥√ TDDCanvas.
  59.  
  60. procedure TFormI. DrawSurfaces ;
  61. var ARect : TRect ;
  62.  
  63. ATopPos : integer ;
  64. begin
  65.  
  66. // Γφα≈αδσ Γ√ΓεΣΦ≥ⁿ φα ε±φεΓφ≤■ ∩εΓσ≡⌡φε±≥ⁿ.
  67. ARect := Rect( 0, 0, 640, 480 ) ;
  68. with PrimaryCanvas do try
  69. Brush. Color ;= cIRed ;
  70. FillRect( ARect ) ;
  71. Brush. Style :<= bsClear ;
  72. Font. Name : = ' Arial ' ;
  73. Font. Size := 24 ;
  74. Font. Color := clWhite ;
  75.  
  76. ATopPos := ( 480 - TextHeight( 'A' ) ) div 2 ;
  77. Text0ut( 10, ATopPos, 'Primary surface' ) ;
  78. finally
  79.  
  80. // ≤ßσΣΦ≥ⁿ± , ≈≥ε ∞√ ±≡ατ≤ µσ ε±ΓεßεΣΦδΦ DC,
  81. // ∩ε±ΩεδⁿΩ≤ Windows τα∞ε≡αµΦΓασ≥± , ∩εΩα ∞√ ΓδαΣσσ∞ DC.
  82. Release ;
  83. end ;
  84.  
  85. // ≥σ∩σ≡ⁿ ≡αßε≥ασ∞ ± ⌠εφεΓ√∞ ß≤⌠σ≡ε∞
  86. with .BackCanvas do try
  87. Brush. Color : = clBlue ;
  88. FillRecK ARect ) ;
  89. Brush, Style := bsClear ;
  90. Font. Name := 'Arial' ;
  91. Font. Size ò.=ò 24 ;
  92. Font. Color := clWhite ;
  93.  
  94.