游子日月长

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Registry; type TForm1 = class(TForm) Bu 阅读全文

摘要： StretchBlt 函数从源矩形中复制一个位图到目标矩形，必要时按目前目标设备设置的模式进行图像的拉伸或压缩以满足目标矩形的尺寸。 原型： BOOL StretchBlt( HDC hdcDest, int nXOriginDest, int nYOriginDest, int nWidthDes 阅读全文

摘要： PatBlt 该函数使用当前选入指定设备环境中的刷子绘制给定的矩形区域。通过使用给出的光栅操作来对该刷子的像素和表面像素进行组合。 原型： BOOL PatBlt( HDC hdc, int nXLeft, int nYLeft, int nWidth, int nHeight, DWORD dwR 阅读全文

摘要： 我有两个位图，一个前景图，一个背景图（mask用途）。请问如何用MaskBlt实现两个位图的合并，从而实现背景透明！ 核心代码：dcImage.SetBkColor(crColour);dcMask.BitBlt(0, 0, nWidth, nHeight, &dcImage, 0, 0, SRCC 阅读全文

摘要： procedure AngleTextOut(CV: TCanvas; const sText: String; x, y, angle:integer);var LogFont: TLogFont; SaveFont: TFont; begin SaveFont := TFont.Create; 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);begin canvas.Font.Name := 'Times New Roman'; canvas.Font.size := 72; canvas.Font.style := [fsItalic,fsB 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);begin Canvas.Font.Name := 'Times New Roman'; //这里的字体一定要是TrueType Font Canvas.Font.size := 72; Canvas.Fo 阅读全文

摘要： 先将文字放大一倍字号画到临时内存中, 再用AntiAlias算法缩小, 绝对光滑.而且速度很快.我这有个AntiAlias算法的例子, 很简单但很说明问题:其中核心代码如下:procedure TAntiAliasForm.SeparateColor(color : TColor; var r, g 阅读全文

摘要： 在Delph下调用PolyBezier();procedure TForm1.Button1Click(Sender: TObject);var point:array[0..6] of Tpoint; h:HDC;beginh:=getdc(form1.handle);point[0].x:=25 阅读全文

摘要： Several Points (2D and 3D) routinesFrom: "Verstraelen" <vsta@innet.be> unit Functs; interface uses WinTypes, Classes, Graphics, SysUtils; type TPoint2 阅读全文