equal
deleted
inserted
replaced
63 var strSurface, resSurface: PSDL_Surface; |
63 var strSurface, resSurface: PSDL_Surface; |
64 w, h: LongInt; |
64 w, h: LongInt; |
65 color: TSDL_Color; |
65 color: TSDL_Color; |
66 font: THWFont; |
66 font: THWFont; |
67 begin |
67 begin |
68 if cl.Tex <> nil then |
68 // these two lines lines crash when run multiple times? |
69 FreeTexture(cl.Tex); |
69 //if cl.Tex <> nil then |
70 |
70 // FreeTexture(cl.Tex); |
71 |
71 |
72 cl.s:= str; |
72 cl.s:= str; |
73 |
73 |
74 if isInput then |
74 if isInput then |
75 begin |
75 begin |