hedgewars/uRenderUtils.pas
changeset 10040 4ac87acbaed9
parent 10015 4feced261c68
child 10104 cb0b750bd8a3
equal deleted inserted replaced
10019:c00db97a668f 10040:4ac87acbaed9
   300 
   300 
   301 function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture;
   301 function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture;
   302 var textWidth, textHeight, x, y, w, h, i, j, pos, prevpos, line, numLines, edgeWidth, edgeHeight, cornerWidth, cornerHeight: LongInt;
   302 var textWidth, textHeight, x, y, w, h, i, j, pos, prevpos, line, numLines, edgeWidth, edgeHeight, cornerWidth, cornerHeight: LongInt;
   303     finalSurface, tmpsurf, rotatedEdge: PSDL_Surface;
   303     finalSurface, tmpsurf, rotatedEdge: PSDL_Surface;
   304     rect: TSDL_Rect;
   304     rect: TSDL_Rect;
   305     //chars: set of char = [#9,' ',';',':','?','!',','];
   305     chars: set of char = [#9,' ',';',':','?','!',','];
   306     substr: shortstring;
   306     substr: shortstring;
   307     edge, corner, tail: TSPrite;
   307     edge, corner, tail: TSPrite;
   308 begin
   308 begin
   309       case SpeechType of
   309       case SpeechType of
   310         1: begin;
   310         1: begin;