hedgewars/uVisualGears.pas
changeset 1812 3d4692e825e7
parent 1801 bc0c5c21376e
child 1869 490005509a7b
--- a/hedgewars/uVisualGears.pas	Fri Feb 20 11:58:58 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Fri Feb 20 14:12:16 2009 +0000
@@ -176,6 +176,12 @@
 		exit
 		end;
 
+if cReducedQuality then
+	begin
+	AddVisualGear:= nil;
+	exit
+	end;
+
 New(Result);
 FillChar(Result^, sizeof(TVisualGear), 0);
 Result^.X:= int2hwFloat(X);