hedgewars/uCaptions.pas
changeset 6580 6155187bf599
parent 6415 af2047bb4f70
child 6685 ef706fccfb0a
--- a/hedgewars/uCaptions.pas	Mon Jan 16 10:22:21 2012 +0100
+++ b/hedgewars/uCaptions.pas	Tue Jan 17 09:01:31 2012 -0500
@@ -34,11 +34,11 @@
 uses uTextures, uRenderUtils, uVariables, uRender;
 
 type TCaptionStr = record
-                   Tex: PTexture;
-                   EndTime: LongWord;
-                   Text: shortstring;
-                   Color: Longword
-                   end;
+    Tex: PTexture;
+    EndTime: LongWord;
+    Text: shortstring;
+    Color: Longword
+    end;
 var
     Captions: array[TCapGroup] of TCaptionStr;
 
@@ -69,7 +69,8 @@
 var Group: TCapGroup;
 begin
 for Group:= Low(TCapGroup) to High(TCapGroup) do
-    if unload then FreeTexture(Captions[Group].Tex)
+    if unload then
+        FreeTexture(Captions[Group].Tex)
     else if Captions[Group].Text <> '' then
         Captions[Group].Tex:= RenderStringTex(Captions[Group].Text, Captions[Group].Color, fntBig)
 end;