Delphi 图形处理 技巧

1。得到输出字符串在 屏幕上的象素数。

BOOL GetTextExtentPoint32(    HDC hdc, // handle of device context 
    LPCTSTR lpString, // address of text string
    int cbString, // number of characters in string
    LPSIZE lpSize  // address of structure for string size 
   );

利用该函数 我们可以得到 字符串在屏幕上的 象素数。

应用举例：使不同长度字符串 输出时 右 对齐。

var
    Str:String;
    sizeFont:Size;
    ndata:integer;
begin
    str:='13456';
    with Image1.Canvas do
    begin
        GetTextExtentPoint32(Image1.Canvas.Handle, PChar(str), Length(str), sizeFont);
        TextOut(100 - sizeFont.cx,10,str);
        str:='13456789';
        GetTextExtentPoint32(Image1.Canvas.Handle, PChar(str), Length(str), sizeFont);
        TextOut(100 - sizeFont.cx,30,str);
        ndata:=-13456;
        str:=Inttostr(ndata);
        GetTextExtentPoint32(Image1.Canvas.Handle, PChar(str), Length(str), sizeFont);
        TextOut(100 - sizeFont.cx,60,str);   

end;