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

Text File | 1998-12-05 | 2.7 KB | 90 lines

╠≤δⁿ≥Φ∞σΣΦα Φ Φπ≡√
UKtlù╫α±≥ⁿ VIIù

═σ∩≡ΦπεΣφε±≥ⁿ ε±φεΓφεΘ ⌠ε≡∞√

┬ ∩≡σΣ√Σ≤∙Φ⌡ ∩≡Φ∞σ≡α⌡ ⌠ε≡∞α ß√δα  Γφε ΓΦΣΦ∞α, τα∩εδφ   ±εßεΘ ε±φεΓφ≤■ ∩εΓσ≡⌡φε±≥ⁿ. ╬ΣφαΩε, Γ√ φσ ⌡ε≥Φ≥σ, ≈≥εß√
∩εδⁿτεΓα≥σδⁿ ΓΦΣσδ ⌠ε≡∞≤. ▌≥ε ∩≡ΦδεµσφΦσ ±∞σφ√ ±≥≡αφΦ÷ Φ εφε ≡Φ±≤σ≥ ∩ε Γ±σ∞≤ ²Ω≡αφ≤. ╧ε²≥ε∞≤ Γ√ Σεδµφ√ ∩≡σΣε≥Γ≡α-
≥Φ≥ⁿ ε≥εß≡αµσφΦσ ⌠ε≡∞√ φα ²Ω≡αφσ. ╥αΩµσ φσεß⌡εΣΦ∞ε ΦτßαΓΦ≥ⁿ±  ε≥ ±Φ±≥σ∞φεπε ∞σφ■ Φ φσΩδΦσφ≥±ΩΦ⌡ ΩδαΓΦ°. ┬±σ ²≥ε
∞εµφε Σε±≥Φ≈ⁿ ∩≡ε±≥ε ≤±≥αφεΓΩεΘ BorderStyle ⌠ε≡∞√ Γ bsNone Γ ∞σ≥εΣσ Foi-rnCreate. ┬α∞ ≥αΩµσ φσ φ≤µσφ Φ Ω≤≡±ε≡, ∩ε²≥ε∞≤
≤±≥αφεΓΦ≥σ σπε Γ crNone. ─εßαΓⁿ≥σ ²≥Φ ≥≡Φ ±≥≡εΩΦ Ω FormCreate:

BorderStyle ;= bsNone;
Color := clBlack;
Cursor := crNone;

┼ΣΦφ±≥Γσφφε, ≈≥ε ε±≥ασ≥±  ±Σσδα≥ⁿ, ù ≤ßσΣΦ≥ⁿ±  ÷ ≥ε∞, ≈≥ε ∩εΓσ≡⌡φε±≥Φ ≡Φ±≤■≥±  ∩≡αΓΦδⁿφε Φ ±α∞ε∞ φα≈αδσ. ╤ΣσδαΘ≥σ
∩≡εΓσ≡Ω≤, Γ√τΓαΓ DrawSurfaces Γ εß≡αßε≥≈ΦΩσ ±εß√≥Φ  OnPaint ⌠ε≡∞√. ┼±δΦ Γ√ ²≥επε φσ ±Σσδασ≥σ, ε±φεΓφα  ∩εΓσ≡⌡φε±≥ⁿ
Φτφα≈αδⁿφε ε≥εß≡ατΦ≥ ⌠ε≡∞≤; ≥ε σ±≥ⁿ, ²Ω≡αφ ß≤Σσ≥ ∩εδφε±≥ⁿ■ ≈σ≡φ√∞. ╦Φ±≥Φφπ 32.14 ∩≡σΣ±≥αΓδ σ≥ εß≡αßε≥≈ΦΩ ±εß√≥Φ
OnPaint ⌠ε≡∞√.

╦Φ±≥Φφπ 32.14 ╬ß≡αßε≥≈ΦΩ ±εß√≥Φ  OnPaint ∩≡ε±≥ε Γ√τ√Γασ≥ DrawSurfaces.

procedure TForml.FormPaint (Sender: TObject);
begin

// ≡Φ±εΓα≥ⁿ ≈≥ε-φΦß≤Σⁿ φα ε±φεΓφεΘ ∩εΓσ≡⌡φε±≥Φ Φ φα ⌠εφεΓε∞ ß≤⌠σ≡σ
DrawSurfaces ;
end;

═≤, Γ±σ! ┬√ ∞εµσ≥σ φαΘ≥Φ Φτ∞σφσφφ√Θ ΩεΣ Γ DDDemo4.

╠ε∙ⁿ Delphi: ∩εδⁿτεΓα≥σδⁿ±ΩΦΘ Ωδα±± ∩εδε≥φα (Canvas)

─ε ²≥επε Γ√ φαßδ■ΣαδΦ, ΩαΩ Φ±∩εδⁿτεΓα≥ⁿ ∩≡σΩ≡α±φεσ ±≡σΣ±≥Γε Delphi TCanvas Σδ  ∩εδ≤≈σφΦ  Σε±≥≤∩α Ω Ωεφ≥σΩ±≥≤ ≤±-
≥≡εΘ±≥Γα, Ωε≥ε≡√Θ ∩ετΓεδ σ≥ ≡Φ±εΓα≥ⁿ φα ∩εΓσ≡⌡φε±≥Φ DirectDraw. ╬ΣφαΩε, ∞√ ∞εµσ∞ τφα≈Φ≥σδⁿφε Γ±σ ≤∩≡ε±≥Φ≥ⁿ ßδαπεΣα≡
∩≡Φ∞σφσφΦ■ εß·σΩ≥φεΘ ε≡Φσφ≥α÷ΦΦ. ╤σΘ≈α± Γ√ ±ετΣαΣΦ≥σ ±∩σ÷ΦαδΦτΦ≡εΓαφφ√Θ (∩εδⁿτεΓα≥σδⁿ±ΩΦΘ) ∩εΣΩδα±± TCanvas Σδ  ≥επε,
≈≥εß√ Φ∞σ≥ⁿ Γετ∞εµφε±≥ⁿ ≡Φ±εΓα≥ⁿ φα ∩εΓσ≡⌡φε±≥Φ Σαµσ φα∞φεπε ∩≡ε∙σ. ▌≥ε ε≈σφⁿ ∩≡ε±≥ε; ΩεΣ ∩≡σΣ±≥αΓδσφ ÷ δΦ±≥Φφπσ 32.15.

╦Φ±≥Φφπ 32.15 ╬ß·σΩ≥ ∩εδε≥φα DirectDraw Γ Delphi.

unit DDCanvas ;
interface

uses Windows, SysUtils, Graphics, DDraw ;
type

TDDCanvas = class ( TCanvas )
private

FSurface       : IDirectDrawSurface ;
FDeviceContext : HDC ;
protected

procedure CreateHandle ; override ;
public

constructor Create ( Asurface : IDirectDrawSurface ) ;
destructor Destroy ; override ;
procedure Release ;
end;
implementation

constructor TDDCanvas. Create ( Asurface : IDirectDrawSurface ) ;
begin
inherited Create ;
if Asurface = NIL then

Raise Exception. Create ( 'Cannot create canvas for NIL surface' )
FSurface ;= Asurface ;
end ;

destructor TDDCanvas. Destroy ;
begin
Release ;
inherited Destroy ;
end ;

procedure TDDCanvas . CreateHandle ;
begin

if FDeviceContext = 0 then begin
FSurface. GetDC ( FDeviceContext ) ;
Handle := FDeviceContext ;
end ;
end ;

procedure TDDCanvas . Release ;
begin