hedgewars/uVisualGears.pas
changeset 2587 0dfa56a8513c
parent 2428 6800f8aa0184
child 2599 c7153d2348f3
--- a/hedgewars/uVisualGears.pas	Sun Oct 25 15:55:49 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Sun Oct 25 16:35:09 2009 +0000
@@ -16,6 +16,8 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  *)
 
+{$INCLUDE options.inc}
+
 unit uVisualGears;
 interface
 uses SDLh, uConsts,
@@ -25,7 +27,6 @@
 	GL,
 {$ENDIF}
 	uFloat;
-{$INCLUDE options.inc}
 
 type PVisualGear = ^TVisualGear;
 	TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);