D7移植到Delphi2009，TStringGrid DrawCell使用DrawText时出现乱码，请教怎么回事？

代码在下面，在Delphi7里是完全没有问题的，但把代码移植到2009后，发现DrawText的中文会出现乱码，而如果没有中文只有英文和数字，则只显示第一个字符，请问这是怎么回事？如何解决？？

procedure TfrmSick.stringgridInfoDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
    r:TRect;
    a:TGridRect;
begin
    with  TStringGrid(Sender).Canvas   do
    begin
      if ((ARow=TStringGrid(Sender).Row)) then begin
        Brush.Color := $00FAE2C0;
        FillRect(rect);
        SetRect(r,Rect.Left+2,Rect.Top+4,Rect.Right,Rect.Bottom);
        Font.Color:=clBlack;
        DrawText(Handle,PAnsiChar(TStringGrid(Sender).Cols[acol][arow]),-1,R,DT_LEFT or DT_WORD_ELLIPSIS);
      end;
    end;  
end;

10 个解决方案

#1

应该不可能吧，你跟踪测试一下吧

#2

引用 1 楼  的回复:

应该不可能吧，你跟踪测试一下吧

drawtext是windowsapi呀，跟踪不进去

#3

发现DrawText的中文会出现乱码

那你的这个开发环境：ＤＥＬＰＨＩ7和ＤＥＬＰＨＩ2009都在一台电脑上吗
我只是说有可能是开发环境的问题的

#4

引用 3 楼  的回复:

发现DrawText的中文会出现乱码

那你的这个开发环境：ＤＥＬＰＨＩ7和ＤＥＬＰＨＩ2009都在一台电脑上吗
我只是说有可能是开发环境的问题的

我的系统是windows7 64位旗舰版，没有安装delphi7，只装了delphi2009。delphi7装在笔记本上的

#5

这个我就没有研究了，我只在３２位系统下学习并研究程序的
当然这个也可能是那个ＡＰＩ函数的问题了

#6

引用 5 楼  的回复:

这个我就没有研究了，我只在３２位系统下学习并研究程序的
当然这个也可能是那个ＡＰＩ函数的问题了

我本是32位win7 ,刚才试了也是一样，唉

#7

那就建议你还是在网上查找一下这个DrawText在ＤＥＬＰＨＩ中应该时的基本参数的

#8

你先要确定PAnsiChar(TStringGrid(Sender).Cols[acol][arow])得到的是正确的结果，D7是ansi D2009是 unicode，一般处理不对就是乱码。

#9

引用 8 楼  的回复:

你先要确定PAnsiChar(TStringGrid(Sender).Cols[acol][arow])得到的是正确的结果，D7是ansi D2009是 unicode，一般处理不对就是乱码。

是吗？我用showmessage(PAnsiChar(TStringGrid(Sender).Cols[acol][arow]));是能显示的，但draw出来的就不对了,请教如何处理？

#10

解决了
DrawText(Handle,PAnsiChar(AnsiString(TStringGrid(Sender).Cols[acol][arow])),-1,R,DT_LEFT or DT_WORD_ELLIPSIS);

多谢sailxia