Update demo13.lpr

Seenkao · Jun 11, 2023 · 4d434b0 · 4d434b0
1 parent 1eeff2b
commit 4d434b0
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/Zengl_SRC/demos/Android/13-Particles/jni/demo13.lpr b/Zengl_SRC/demos/Android/13-Particles/jni/demo13.lpr
@@ -21,7 +21,10 @@
   zgl_text,
   zgl_types,
   zgl_log,
-  zgl_utils;
+  zgl_utils,
+  zgl_types,
+  {$IfNDef OLD_METHODS}
+  , gegl_color{$EndIf};
 
 var
   dirRes         : UTF8String = 'assets/';
@@ -91,7 +94,7 @@ procedure Draw;
   if debug Then
     for i := 0 to particles.Count.Emitters - 1 do
       with particles.List[i]^.BBox do
-        pr2d_Rect( MinX, MinY, MaxX - MinX, MaxY - MinY, $FF0000, 255 );
+        pr2d_Rect( MinX, MinY, MaxX - MinX, MaxY - MinY, {$IfNDef OLD_METHODS}cl_Red{$Else}$FF0000, 255{$EndIf} );
 
   text_Draw( fntMain, 0, 0, 'FPS: ' + u_IntToStr( zgl_Get( RENDER_FPS ) ) );
   text_Draw( fntMain, 0, 20, 'Particles: ' + u_IntToStr( particles.Count.Particles ) );