Delphi GDI+测量用指定的 Font 对象绘制的指定字符串

procedure DrawShadowString(const g: TGpGraphics; const str: WideString;    const font: TGpFont; const origin: TGpPointF;    ShadowSize, Distance: LongWord; Angle: Single = 60;    ShadowAlpha: Byte = 192; const format: TGpStringFormat = nil); overload;beginDrawShadowString(g, str, font, g.MeasureString(str, font, origin, format),                   ShadowSize, Distance, Angle, ShadowAlpha, format);end;