GDI在Delphi程序的应用-可调节的文字阴影特效.docxVIP

GDI+ 在 Delphi 程序的应用 -可调节的文字阴影特效 利用 GDI+ 输出文字阴影效果有多种方法，最简单的就 是第一次输出有偏移的灰色文字，第二次输出正常文字。下 面是仿 C# 文字输出例子里的代码片断，输出了这种带阴影 的文字： serifFontFamily := TGpFontFamily.GenericSerif; //Load the fonts we want to use titleFont := TGpFont.Create(serifFontFamily, 60); //Load the image to be used for the textured text from the exes resource fork textImage := TGpBitmap.Create( mediamarble.jpg); textTextureBrush := TGpTextureBrush.Create(textImage); //Set up shadow brush - make it translucent titleShadowBrush := TGpSolidBrush.Create(ARGB(70, kcBlack)); //Draw a textured string s := Graphics Samples; g.DrawString(s, titleFont, titleShadowBrush, 15, 25); g.DrawString(s, titleFont, textTextureBrush, 10, 20); 效果图如下（作了适当缩小） 显然，这种文字阴影效果不太令人满意，没有那种 半阴影的效果。 网上介绍了一种“借助 GDI+ 的反走样能力生成透明 的阴影与半阴影”的文字阴影方法， 其原理是将要输出的文字 输出按一定比例缩小，以某种半灰调输出到一个按同样比例 插值法，再将位图放大到实际画布大小输出，因为双三次插 值放大使文本的边缘产生 Alpha 模糊，这样就出现阴影与半 影效果，下面是这种方法的 Delphi 代码： 缩小的内存位图中，然后设置画布插值模式为高质量双三次 缩小的内存位图中 ，然后设置画布插值模式为高质量双三次 procedure PaintText(g: TGpGraphics); var brush: TGpLinearGradientBrush; font: TGpFont; fontFamily: TGpFontFamily; r: TGpRect; bmp: TGpBitmap; bg: TGpGraphics; m: TGpMatrix; begin fontFamily := TGpFontFamily.Create(Times New Roman); font := TGpFont.Create(fontFamily, 50, [fsBold], utPixel); r := GpRect(Form1.PaintBox1.ClientRect); brush := TGpLinearGradientBrush.Create(r, kcBlue, kcAliceBlue, 90); // 填充渐变背景 g.FillRectangle(brush, r); // 建立内存位图，其大小是画布的 1/4 bmp := TGpBitmap.Create(r.Width shr 2, r.Height shr 2, g); bg := TGpGraphics.Create(bmp); bg.TextRenderingHint := thAntiAlias; // 按 1/4 缩放输出阴影文字，并平移 (3, 3) m := TGpMatrix.Create(0.25, 0, 0, 0.25, 3, 3); bg.SetTransform(m); bg.DrawString( 文字阴影特效 , font, Brushs[ARGB(128, 0, 0, 0)], 10, r.Height / 3); // 设置插值模式为高质量双三次插值法 g.InterpolationMode := imHighQualityBicubic; g.TextRenderingHint := thAntiAlias; // 放大输出阴影位图到画布 g.DrawImage(bmp, r, 0, 0, bmp.Width, bmp.Height, utPixel); // 输出正常文字 g.DrawString( 文字阴影特效 , font, Brushs.White, 10, r.Height / 3); m.Free; bg.Free; bmp.Free; brush.Fr