--- 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;