989 if s[pos] <> #1 then inc(pos); |
989 if s[pos] <> #1 then inc(pos); |
990 while s[prevpos+1] = ' 'do inc(prevpos); |
990 while s[prevpos+1] = ' 'do inc(prevpos); |
991 substr:= copy(s, prevpos+1, pos-prevpos-1); |
991 substr:= copy(s, prevpos+1, pos-prevpos-1); |
992 if Length(substr) <> 0 then |
992 if Length(substr) <> 0 then |
993 begin |
993 begin |
994 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(substr), cNearBlackColor); |
994 tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, Str2PChar(substr), |
|
995 {$IFDEF ENDIAN_LITTLE} |
|
996 cNearBlackColor |
|
997 {$ELSE} |
|
998 $100000FF |
|
999 {$ENDIF} |
|
1000 ); // do not remove me |
995 tmpsurf:= doSurfaceConversion(tmpsurf); |
1001 tmpsurf:= doSurfaceConversion(tmpsurf); |
996 rect.x:= edgeHeight + 1 + ((i - w) div 2); |
1002 rect.x:= edgeHeight + 1 + ((i - w) div 2); |
997 // trying to more evenly position the text, vertically |
1003 // trying to more evenly position the text, vertically |
998 rect.y:= edgeHeight + ((j-(numLines*h)) div 2) + line * h; |
1004 rect.y:= edgeHeight + ((j-(numLines*h)) div 2) + line * h; |
999 SDLTry(tmpsurf <> nil, true); |
1005 SDLTry(tmpsurf <> nil, true); |