导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

[置顶] {下载}本站提供delphi下载

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

Delphi 字体修改

代码如下:关于 Delphi 程序的字体,大概有三种情况:  一、RCData 格式。这种格式的字体字号的问题有很多工具,诸如 eXeScope 、ResHacker 等工具都可以非常方便的修改,而且这也是 Delphi 程序中的字体设置使用最多的方法,而且大多数 Delphi 程序都只使用这一种方式,而其修改方法相对成熟的多,所以我不讨论这种方式。 二、SDK 格式。有些 D

如何将字体转化为字符串

代码如下:function FontToStr(Font : TFont) : string;  var  s : string;begin  if Font=nil then    Exit;  s:=Font.Name;  s:=s+', '+IntToStr(Font.Size)+'pt';  if f

创建一个具有渐进色字体的标签

代码如下:unit MLabel;interfaceuses  Windows  Messages  SysUtils  Classes  Graphics  Controls  Forms  Dialogs  

改变标题栏的字体和色彩

代码如下:procedure WMNCPAint(var Mes : TWMNCPaint); message WM_NCPAINT;procedure TForm1.WMNCPAint(var Mes : TWMNCPaint);var  ACanvas : TCanvas;begin  ACanvas := TCanvas.Create;  try &n

改变提示的字体和色彩

Delphi中TApplication的属性有HintColor及HintPause。可以通过设置HintColor改变应用程序中的Hint的颜色、通过设置HintPause改变触发Hint的时间如下是改变字体代码:type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);&nb

光滑字体

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

获得系统字体信息

代码如下:function GetLargeFonts: boolean;var   fontsize : integer;   hdc : Thandle;begin   result := false;   hdc := GetDc(hwnd_desktop);   fontsize := GetDeviceCaps(hdc,logpixels

获得字体可用字号

代码如下:以下的函数GetFontSizeList用来取得字体名为FontName的字体的所有可用尺寸,而EnumFontsSize是其中要用到的字体枚举回调函数:function EnumFontsSize(var LogFont: TLogFont; var TextMetric: TTextMetric;  FontType: Integer; Data: Pointer): In

获取系统中所有的字体

代码如下:var  FontName:TComboBox;function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;    FontType: Integer; Data

具有不同字体的列表框

原代码如下:具有不同字体的列表框 ---- 一般情况下,列表框内所有项的字体、大小、颜色等属性都是一样的。但是我们可以通过编写简单的程序使得每一项都能有自己的字体、大小和颜色。为了对比,我们用了两个Listbox构件,Listbox1按一般情况显示,Listbox2显示的每一项都可以有自己的字体、大小、颜色。 ---- 首先把Listbox2的style属性改为lbOwnerDrawVariabl

临时使用字体文件

代码如下:initialization  AddFontResource('x-files.ttf');finalization  RemoveFontResource('x-files.ttf');  

枚举当前字体

代码如下:function EnumFontFamilyProc(var lf : TLogFont;                         

分页:[«]1[2][3][»]

日历

<< 2013-4 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

站内搜索

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved