hedgewars/uRender.pas
changeset 15844 4ede5e84278a
parent 15384 c5934cdeecb6
child 15924 3de00d203178
child 15929 128ace913837
--- a/hedgewars/uRender.pas	Sat Oct 16 02:20:15 2021 +0300
+++ b/hedgewars/uRender.pas	Sat Oct 16 02:39:22 2021 +0300
@@ -50,6 +50,7 @@
 
 procedure DrawCircle            (X, Y, Radius, Width: LongInt);
 procedure DrawCircle            (X, Y, Radius, Width: LongInt; r, g, b, a: Byte);
+procedure DrawCircle            (X, Y, Radius, Width: LongInt; color: LongWord);
 procedure DrawCircleFilled      (X, Y, Radius: LongInt; r, g, b, a: Byte);
 
 procedure DrawLine              (X0, Y0, X1, Y1, Width: Single; color: LongWord); inline;
@@ -1566,6 +1567,13 @@
     untint;
 end;
 
+procedure DrawCircle(X, Y, Radius, Width: LongInt; color: LongWord);
+begin
+    Tint(color);
+    DrawCircle(X, Y, Radius, Width);
+    untint;
+end;
+
 procedure DrawCircle(X, Y, Radius, Width: LongInt);
 var
     i: LongInt;