通过注册表读取设置字体
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TForm1 = class(TForm) Bu 阅读全文
posted @ 2017-02-07 15:21 游子日月长 阅读(225) 评论(0) 推荐(0)
2017年2月7日 #
StretchBlt
摘要：
StretchBlt 函数从源矩形中复制一个位图到目标矩形，必要时按目前目标设备设置的模式进行图像的拉伸或压缩以满足目标矩形的尺寸。 原型： BOOL StretchBlt( HDC hdcDest, int nXOriginDest, int nYOriginDest, int nWidthDes 阅读全文
posted @ 2017-02-07 15:19 游子日月长 阅读(757) 评论(0) 推荐(0)
PatBlt
摘要：
PatBlt 该函数使用当前选入指定设备环境中的刷子绘制给定的矩形区域。通过使用给出的光栅操作来对该刷子的像素和表面像素进行组合。 原型： BOOL PatBlt( HDC hdc, int nXLeft, int nYLeft, int nWidth, int nHeight, DWORD dwR 阅读全文
posted @ 2017-02-07 15:18 游子日月长 阅读(417) 评论(0) 推荐(0)
如何用MaskBlt实现两个位图的合并，从而实现背景透明
摘要：
我有两个位图，一个前景图，一个背景图（mask用途）。请问如何用MaskBlt实现两个位图的合并，从而实现背景透明！ 核心代码：dcImage.SetBkColor(crColour);dcMask.BitBlt(0, 0, nWidth, nHeight, &dcImage, 0, 0, SRCC 阅读全文
posted @ 2017-02-07 15:16 游子日月长 阅读(339) 评论(0) 推荐(0)
输出旋转字体
摘要：
procedure AngleTextOut(CV: TCanvas; const sText: String; x, y, angle:integer);var LogFont: TLogFont; SaveFont: TFont; begin SaveFont := TFont.Create; 阅读全文
posted @ 2017-02-07 15:09 游子日月长 阅读(150) 评论(0) 推荐(0)
用字体开透明窟窿
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin canvas.Font.Name := 'Times New Roman'; canvas.Font.size := 72; canvas.Font.style := [fsItalic,fsB 阅读全文
posted @ 2017-02-07 15:07 游子日月长 阅读(149) 评论(0) 推荐(0)
输出空心字体
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin Canvas.Font.Name := 'Times New Roman'; //这里的字体一定要是TrueType Font Canvas.Font.size := 72; Canvas.Fo 阅读全文
posted @ 2017-02-07 15:06 游子日月长 阅读(172) 评论(0) 推荐(0)
光滑字体
摘要：
先将文字放大一倍字号画到临时内存中, 再用AntiAlias算法缩小, 绝对光滑.而且速度很快.我这有个AntiAlias算法的例子, 很简单但很说明问题:其中核心代码如下:procedure TAntiAliasForm.SeparateColor(color : TColor; var r, g 阅读全文
posted @ 2017-02-07 15:05 游子日月长 阅读(258) 评论(0) 推荐(0)
浙公网安备 33010602011771号