equal
deleted
inserted
replaced
10 function RenderStringTex(s: ansistring; Color: Longword; font: THWFont): PTexture; |
10 function RenderStringTex(s: ansistring; Color: Longword; font: THWFont): PTexture; |
11 function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture; |
11 function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture; |
12 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
12 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
13 |
13 |
14 implementation |
14 implementation |
15 uses uIO, uUtils, uVariables, uConsts, uTextures, sysutils, uDebug; |
15 uses uUtils, uVariables, uConsts, uTextures, sysutils, uDebug; |
16 |
16 |
17 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
17 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
18 var r: TSDL_Rect; |
18 var r: TSDL_Rect; |
19 begin |
19 begin |
20 r:= rect^; |
20 r:= rect^; |