DynTexture.dpr 563 B

123456789101112131415161718192021222324
  1. (*
  2. GLDynamicTexture Demo.
  3. Use F2 and F3 to toggle between PBO and non-PBO updates,
  4. if your card supports it.
  5. Use F4 to toggle partial updates.
  6. Version history:
  7. 16/10/07 - LC - Updated to use DirtyRectangle property
  8. 12/07/07 - DaStr - Restored FPC compatibility
  9. 29/06/07 - DaStr - Initial version (by LordCrc)
  10. *)
  11. program DynTexture;
  12. uses
  13. Forms,
  14. fDynTexture in 'fDynTexture.pas' {FormDynamicTexture};
  15. {$R *.res}
  16. begin
  17. Application.Initialize;
  18. Application.CreateForm(TFormDynamicTexture, FormDynamicTexture);
  19. Application.Run;
  20. end.