Unicode控制delphi 2010

Question

我有一个使用Delphi 5的项目使用TntUnicode，  现在，我在delphi 2010中构建它;但我有一些Unicode问题  （delphi 2010支持Unicode，所以我不使用TntUnicode Control）;

首先：如何替换2个功能

    WideCanvasTextExtent(TextBitmap.Canvas, Caption) 
    ;WideCanvasTextOut(TextBitmap.Canvas,0,0,Caption); 

其他：

    GetText; SetText; IsCaptionStored ; 

in Controls单位未被声明;

Answer 1

WideCanvasTextExtent()和WideCanvasTextOut()是第三方函数，可能是TnT的一部分。只需使用Canvas.TextExtent和Canvas.TextOut()方法，因为它们现在是Unicode：

TextBitmap.Canvas.TextExtent(Caption);
TextBitmap.Canvas.TextOut(0,0,Caption);

GetText()和SetText()是TControl.Caption和TControl.Text属性的getter / setter方法。您不应该直接调用方法，而是使用属性。某些控件发布Caption属性，而某些控件则发布Text属性。

IsCaptionStored()属性使用

TControl.Caption来控制DFM流。再说一次，不应该直接打电话。