SDL学习笔记二 中文字体的显示

 曾今一段时间热心的想学习游戏编程，于是研究起了SDL，第一篇文章《SDL学习笔记一 图片和字体显示》是07年7月份写的，至此之后，就停了下来。

最近的一段时间有热心起来，拾起以前的代码，继续研究！写《SDL学习笔记一 图片和字体显示》一文时，我没有找到中文的显示方法，今天参照《SDL & Object Pascal (Delphi) [2] 显示中文字符》一文，做了个小鬼搬家，也算重新学习的开始吧！

下面是代码，同样使用Delphi7，配合JEDI-SDL：

 1program Project1;
 2
 3uses
 4    SysUtils,
 5    SDL,
 6    SDL_TTF;
 7
 8var
 9    screen:PSDL_Surface;
    event:TSDL_Event;
    font: PTTF_Font;
    outtxt: WideString;
procedure draw_unicode_text(word: WideString ; x_pos,y_pos : Integer; 
    color :Cardinal);
var
    text : PSDL_Surface;
    dest : TSDL_Rect;
    clr : TSDL_color;
begin
    clr.r := Color and $FF;
    clr.g := (Color shr 8) and $FF;
    clr.b := (Color shr 16) and $FF;
    // 用到了两个全局对象screen和font
    text:= TTF_RenderUNICODE_Blended(font,@word[1],clr);
    dest.x:=x_pos;
    dest.y:=y_pos;
    SDL_BlitSurface(text,nil,screen,@dest);
    SDL_FreeSurface(text);
end;
begin
    if SDL_Init(SDL_INIT_VIDEO)< 0 then Exit;
    if TTF_Init()<0 then Exit;
    SDL_WM_SetCaption('Delphi SDL Demo',nil);
    screen:=SDL_SetVideoMode(640,480,32,SDL_SWSURFACE);
    if (screen=nil) then
    begin
    SDL_Quit;
    exit;
    end;
    font:=TTF_OpenFont('msyh.ttf',24);
    outtxt:='JEDI-SDL 演示程序';
    draw_unicode_text(outtxt,220,160,$0000FF);
    draw_unicode_text('SDL中文输出测试',220,200,$336699);
    draw_unicode_text('Code By Shaoyun',220,240,$00FF00);
    SDL_Flip(screen);
    while SDL_PollEvent(@event)>=0 do
    begin
    case event.type_ of
        SDL_QUITEV: Break;
        SDL_KEYDOWN:
        case event.key.keysym.sym of
            SDLK_ESCAPE: Break;
        end;
    end;
    end;
    TTF_CloseFont(font);
    TTF_Quit;
    SDL_Quit;
    exit;
end.