消隐效果
摘要：
unit Bmp-Disaper;interfaceusesSysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls;typeTForm1=class(TForm)I 阅读全文
posted @ 2017-02-07 15:38 游子日月长 阅读(156) 评论(0) 推荐(0) 编辑
2017年2月7日 #
界面色彩渐变效果的实现
摘要：
界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。下面列举实例说明: 1.新建一个表单,假设其Width为500,设置一个按钮Button1,按此按钮将把表单置为由左向右由黄变白的渐变效果。 2.Button1按钮的代码如下: procedure TForm1.Button1Click( 阅读全文
posted @ 2017-02-07 15:36 游子日月长 阅读(173) 评论(0) 推荐(0) 编辑
改变图片效果
摘要：
想不想另图片有另一番效果，使用下列语句实现吧，增加两个Timage图片框，分别为Image1、Image2，用Image1引入一张图片，按下按钮就可以在Image2上出现惊人的效果procedure TForm1.Button1Click(Sender: Tobject);beginImage2.C 阅读全文
posted @ 2017-02-07 15:35 游子日月长 阅读(107) 评论(0) 推荐(0) 编辑
色彩的灰度转化
摘要：
function RgbToGray(RGBColor : TColor) : TColor;var Gray : byte;begin Gray := Round((0.30 * GetRValue(RGBColor)) + (0.59 * GetGValue(RGBColor)) + (0.11 阅读全文
posted @ 2017-02-07 15:33 游子日月长 阅读(142) 评论(0) 推荐(0) 编辑
添加字体
摘要：
uses Registry; procedure TForm1.Button1Click(Sender: TObject);var reg: TRegistry; b : bool;begin CopyFile('C:\DOWNLOAD\FP000100.TTF', 'C:\WINDOWS\FONT 阅读全文
posted @ 2017-02-07 15:27 游子日月长 阅读(116) 评论(0) 推荐(0) 编辑
如何获得以像素计算的字体宽度
摘要：
BOOL GetTextExtentPoint32( HDC hdc, // handle of device context LPCTSTR lpString, // address of text string int cbString, // number of characters in s 阅读全文
posted @ 2017-02-07 15:25 游子日月长 阅读(249) 评论(0) 推荐(0) 编辑
枚举当前字体
摘要：
function EnumFontFamilyProc(var lf : TLogFont; var tm : TNewTextMetric; FontType : integer; var Memo : TMemo) : integer{$IFDEF WIN32} stdcall; {$ELSE} 阅读全文
posted @ 2017-02-07 15:24 游子日月长 阅读(143) 评论(0) 推荐(0) 编辑
如何生成旋转字体
摘要：
procedure TForm1.Button1Click(Sender: TObject);var lf:tlogfont;tf:tfont;begin tf:=tfont.Create; tf.Assign(button1.font); getobject(tf.handle,sizeof(lf 阅读全文
posted @ 2017-02-07 15:24 游子日月长 阅读(172) 评论(0) 推荐(0) 编辑
判断TrueType字体
摘要：
function IsTrueTypeFont(FontName : string) : boolean;const PITCH_MASK: byte = $0F; var TxMetric: TTextMetric; TempCanvas : TCanvas; PitchTest : byte;b 阅读全文
posted @ 2017-02-07 15:22 游子日月长 阅读(169) 评论(0) 推荐(0) 编辑
判断是否有TrueType字体
摘要：
function IsTrueTypeAvailable : bool;var {$IFDEF WIN32} rs : TRasterizerStatus; {$ELSE} rs : TRasterizer_Status; {$ENDIF}begin result := false; if not 阅读全文
posted @ 2017-02-07 15:22 游子日月长 阅读(182) 评论(0) 推荐(0) 编辑