equal
deleted
inserted
replaced
37 function RenderStringTex(s: ansistring; Color: Longword; font: THWFont): PTexture; |
37 function RenderStringTex(s: ansistring; Color: Longword; font: THWFont): PTexture; |
38 function RenderStringTexLim(s: ansistring; Color: Longword; font: THWFont; maxLength: LongWord): PTexture; |
38 function RenderStringTexLim(s: ansistring; Color: Longword; font: THWFont; maxLength: LongWord): PTexture; |
39 function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture; |
39 function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture; |
40 |
40 |
41 implementation |
41 implementation |
42 uses uUtils, uVariables, uConsts, uTextures, sysutils, uDebug; |
42 uses uUtils, uVariables, uConsts, uTextures, SysUtils, uDebug; |
43 |
43 |
44 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
44 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
45 var r: TSDL_Rect; |
45 var r: TSDL_Rect; |
46 begin |
46 begin |
47 r:= rect^; |
47 r:= rect^; |