koda, can we try to keep unC0Rr's code formatting, and not just change it when we feel like it?
authornemo
Sat, 14 Nov 2009 05:26:26 +0000
changeset 2620 796269129c47
parent 2619 bc2786a00fb8
child 2621 956ff066f3a5
koda, can we try to keep unC0Rr's code formatting, and not just change it when we feel like it?
hedgewars/uStore.pas
--- a/hedgewars/uStore.pas	Sat Nov 14 02:53:04 2009 +0000
+++ b/hedgewars/uStore.pas	Sat Nov 14 05:26:26 2009 +0000
@@ -117,27 +117,27 @@
     clr: TSDL_Color;
     Result: TSDL_Rect;
 begin
-	TTF_SizeUTF8(Fontz[Font].Handle, Str2PChar(s), w, h);
-	Result.x:= X;
-	Result.y:= Y;
-	Result.w:= w + FontBorder * 2 + 4;
-	Result.h:= h + FontBorder * 2;
-	DrawRoundRect(@Result, cWhiteColor, cColorNearBlack, Surface, true);
-	clr.r:= Color shr 16;
-	clr.g:= (Color shr 8) and $FF;
-	clr.b:= Color and $FF;
-	tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(s), clr.value);
-	tmpsurf:= doSurfaceConversion(tmpsurf);
-	Result.x:= X + FontBorder + 2;
-	Result.y:= Y + FontBorder;
-	SDLTry(tmpsurf <> nil, true);
-	SDL_UpperBlit(tmpsurf, nil, Surface, @Result);
-	SDL_FreeSurface(tmpsurf);
-	Result.x:= X;
-	Result.y:= Y;
-	Result.w:= w + FontBorder * 2 + 4;
-	Result.h:= h + FontBorder * 2;
-	WriteInRoundRect:= Result
+TTF_SizeUTF8(Fontz[Font].Handle, Str2PChar(s), w, h);
+Result.x:= X;
+Result.y:= Y;
+Result.w:= w + FontBorder * 2 + 4;
+Result.h:= h + FontBorder * 2;
+DrawRoundRect(@Result, cWhiteColor, cColorNearBlack, Surface, true);
+clr.r:= Color shr 16;
+clr.g:= (Color shr 8) and $FF;
+clr.b:= Color and $FF;
+tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(s), clr.value);
+tmpsurf:= doSurfaceConversion(tmpsurf);
+Result.x:= X + FontBorder + 2;
+Result.y:= Y + FontBorder;
+SDLTry(tmpsurf <> nil, true);
+SDL_UpperBlit(tmpsurf, nil, Surface, @Result);
+SDL_FreeSurface(tmpsurf);
+Result.x:= X;
+Result.y:= Y;
+Result.w:= w + FontBorder * 2 + 4;
+Result.h:= h + FontBorder * 2;
+WriteInRoundRect:= Result
 end;
 
 procedure StoreLoad;