2009 年 1月随笔档案 - 万一

图解 CSS (8): 浮动、显示、隐藏

摘要：float clear display visibility float: none(不浮动)、left(浮在左边)、right(浮在右边). clear: none(允许浮动)、left(取消左浮动)、right(取消右浮动)、both(取消左右浮动). display: inline(并行)、block(分行)、none(隐藏) display: inline ... 阅读全文

posted @ 2009-01-31 23:11 万一阅读(3407) 评论(2) 推荐(0) 编辑

图解 CSS (7): 大小、定位、剪切、滚动条

摘要：width height max-width max-height min-width min-height position - top、right 、bottom 、left z-index clip overflow(overflow-x、overflow-y) scrollbar-base-color scrollbar-face-color scrollbar-track-col... 阅读全文

posted @ 2009-01-31 13:34 万一阅读(2834) 评论(0) 推荐(0) 编辑

图解 CSS (6): text - 文本格式

摘要：line-height word-spacing letter-spacing text-align vertical-align text-indent white-space word-wrap word-break text-transform direction unicode-bidi writing-mode text-decoration text-underline-positi... 阅读全文

posted @ 2009-01-30 18:29 万一阅读(3527) 评论(0) 推荐(0) 编辑

分割图片的例子 - 回复 "小熊宝" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/01/30/1381263.html#1439476 这个例子是把一张图片平均分成了 4 份, 顺序是: 左、右、上、下; 没使用循环操作, 显得有点笨, 但容易理解. unit Unit1; interface uses Windows, Messages, SysUtils, Varian... 阅读全文

posted @ 2009-01-30 10:49 万一阅读(2844) 评论(12) 推荐(0) 编辑

图解 CSS (5): font - 字体

摘要：font font-family font-size font-weight font-style font-variant 另外 font-size-adjust 和 font-stretch 从 CSS 2.1 已废弃, 就不再学习了. font-family(指定字体): 如果字体名包含空格或其他特殊符号, 应使用引号(双引号或单引号): 可以同时指定多个字体(逗号分割),... 阅读全文

posted @ 2009-01-29 16:58 万一阅读(3808) 评论(5) 推荐(0) 编辑

图解 CSS (4): background - 背景

摘要：background background-color background-attachment background-image background-position background-position-x background-position-y background-repeat 设置背景色(譬如红色): background-color: red; 或者 backgrou... 阅读全文

posted @ 2009-01-28 17:38 万一阅读(4166) 评论(5) 推荐(0) 编辑

图解 CSS (3): padding(内边距)、margin(外边距)

摘要：padding padding-top padding-right padding-bottom padding-left margin margin-top margin-right margin-bottom margin-left padding: 上、右、下、左; {从上按顺时针转的} 可用 padding-top、padding-bottom、padding-le... 阅读全文

posted @ 2009-01-28 15:52 万一阅读(14345) 评论(0) 推荐(1) 编辑

图解 CSS (2): border - 边框

摘要：样式表可以是外部的、内联的、嵌入的、链接的, 譬如下面的内联样式将作用于所有 ID=Test 的标签: border border-width border-style border-color border-top border-top-width border-top-style border-top-color border-bottom border-bottom-width ... 阅读全文

posted @ 2009-01-28 12:55 万一阅读(4489) 评论(1) 推荐(0) 编辑

图解 CSS (1): 先做一个样式表测试工具

摘要：一直没有把样式表系统一下, 春节假期有空, 不能再等了. 为了方便学习, 先写了一个样式表测试工具: CssTest(点击下载) 工具非常简单, 写了 10 行左右的代码; 运行效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contr... 阅读全文

posted @ 2009-01-28 10:20 万一阅读(3759) 评论(5) 推荐(0) 编辑

常用字体符号列表

摘要：点击查看... 阅读全文

posted @ 2009-01-25 15:26 万一阅读(4809) 评论(0) 推荐(1) 编辑

Delphi 与 DirectX 之 DelphiX(95): TDIB.x

摘要：//让 TDIB 的这些特效烦透了: 多、还重复、又不完善; 还没有测试或测试失败的方法: procedure DrawShadow(SrcDIB: TDIB; X, Y, Width, Height, Frame: Integer; FilterMode: TFilterMode); procedure DrawShadows(SrcDIB: TDIB; X, Y, Width, Heigh... 阅读全文

posted @ 2009-01-25 12:48 万一阅读(3435) 评论(4) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(94): TDIB.DrawAdditive();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-25 11:01 万一阅读(2138) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(93): TDIB.DrawDarken();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-25 10:30 万一阅读(1762) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(92): TDIB.Draw3x3Matrix();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-24 21:17 万一阅读(1924) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(91): TDIB.DrawMono();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-24 19:39 万一阅读(1732) 评论(5) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(90): TDIB.DrawMorphed();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-24 18:23 万一阅读(1683) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(89): TDIB.DrawAlphaMask();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls, ExtCtrls; type TForm1 = class(TForm) DXPaintB... 阅读全文

posted @ 2009-01-23 22:26 万一阅读(1830) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(88): TDIB.DrawQuickAlpha();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-23 20:40 万一阅读(1688) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(87): TDIB.DrawTransparent、DrawTranslucent、DrawAlpha();

摘要：TDIB.DrawTransparent: 按指定的透明色透明; TDIB.DrawTranslucent: 先按指定的透明色透明, 然后再半透明; DIB.DrawAlpha: 先按指定的透明色透明, 再按指定的透明度透明. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants... 阅读全文

posted @ 2009-01-23 19:43 万一阅读(2358) 评论(0) 推荐(0) 编辑

如何在 GDI+ 中指定旋转中心 - 回复 "wuheng66888" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/01/23/1017571.html#1437673 本来 wuheng66888 需要的是输出旋转的文本, 下面的例子只是转了一个矩形; 因为 GDI+ 的旋转理念是旋转画布, 所以都是一样的. 本例效果图: 代码文件: unit Unit1; interface uses Windo... 阅读全文

posted @ 2009-01-23 17:00 万一阅读(5226) 评论(2) 推荐(0) 编辑

如何让 TGPImage 直接从流中加载图片? - 回复 "datouxuke " 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/01/23/1232856.html#post 方法一: Delphi 的 TBitmap 类可以方便地操作流, 如果能让 TGPImage 和 TBitmap 沟通起来就好了; TGPImage 有一个子类 TGPBitmap 可以和 TBitmap 沟通... ok 了! 代码如下: uses G... 阅读全文

posted @ 2009-01-23 11:20 万一阅读(6495) 评论(17) 推荐(0) 编辑

让窗体接受拖放, 并获取拖过来的文件信息 - 回复 "海浪问" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/01/20/1353117.html#1435746 原理分析: 这需要用到 ShellAPI 单元的两个函数: DragAcceptFiles、DragQueryFile; 用 DragAcceptFiles(窗口句柄, True); 以让窗口能够接受拖放; 然后就等待 WM_DROPFILES... 阅读全文

posted @ 2009-01-20 21:14 万一阅读(4590) 评论(12) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(86): TDIB.DrawOn();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-20 18:28 万一阅读(2016) 评论(2) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(85): TDIB.DrawTo();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-20 17:59 万一阅读(1746) 评论(2) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(84): TDIB.InitLight()、DrawLights();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-20 16:25 万一阅读(1774) 评论(16) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(83): TDIB.FilterLine()、FilterRect();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-20 15:17 万一阅读(1493) 评论(2) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(82): TDIB.DrawMandelbrot();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-19 23:11 万一阅读(1457) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(81): TDIB.ColoredLine();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls, ExtCtrls; type TForm1 = class(TForm) DXPaintB... 阅读全文

posted @ 2009-01-19 22:55 万一阅读(1818) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(80): TDIB.BlendPixel();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-19 21:50 万一阅读(1524) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(79): TDIB.LinePolar();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-19 12:35 万一阅读(1864) 评论(7) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(78): TDIB.AntialiasedLine();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-19 12:02 万一阅读(1385) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(77): TDIB.Distort();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-19 00:33 万一阅读(1383) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(76): TDIB.Ink();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-19 00:15 万一阅读(1559) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(75): TDIB.FadeOut()、FadeIn();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-19 00:04 万一阅读(1562) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(74): TDIB.EncryptDecrypt();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-18 23:37 万一阅读(1413) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(73): TDIB.Darker()、Lighter();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-18 23:32 万一阅读(1415) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(72): TDIB.SephiaEffect();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-18 23:11 万一阅读(1319) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(71): TDIB.Negative;

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-18 22:18 万一阅读(1399) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(70): TDIB.Mirror();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-18 21:46 万一阅读(1672) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(69): TDIB.Greyscale();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-18 21:36 万一阅读(1344) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(68): TDIB.DoNovaEffect();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-17 18:32 万一阅读(1360) 评论(2) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(67): TDIB.DoSmoothRotate();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-17 18:19 万一阅读(1462) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(66): TDIB.DoResample();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 22:46 万一阅读(1393) 评论(2) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(65): TDIB.DoBrightness();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 22:30 万一阅读(1304) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(64): TDIB.DoColorize();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 22:26 万一阅读(1436) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(63): TDIB.DoPosterize();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 22:19 万一阅读(1365) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(62): TDIB.DoSolorize();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 22:11 万一阅读(1232) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(61): TDIB.DoEmboss;

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 22:08 万一阅读(1271) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(60): TDIB.DoTrace();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 22:05 万一阅读(1296) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(59): TDIB.DoSpotLight();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 22:01 万一阅读(1307) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(58): TDIB.DoTile();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 21:31 万一阅读(1351) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(57): TDIB.DoSplitlight();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 21:28 万一阅读(1304) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(56): TDIB.DoTwist();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 21:25 万一阅读(1443) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(55): TDIB.DoMosaic();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 21:22 万一阅读(1233) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(54): TDIB.DoGaussianBlur();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 19:58 万一阅读(1218) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(53): TDIB.DoSplitBlur();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 19:51 万一阅读(1185) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(52): TDIB.DoSaturation();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 19:48 万一阅读(1165) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(51): TDIB.DoDarkness();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 19:17 万一阅读(1273) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(50): TDIB.DoLightness();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 19:14 万一阅读(1192) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(49): TDIB.DoGrayScale;

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 19:11 万一阅读(1209) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(48): TDIB.DoFishEye();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 18:33 万一阅读(1270) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(47): TDIB.DoContrast();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 18:30 万一阅读(1170) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(46): TDIB.DoAntiAlias;

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 18:25 万一阅读(1240) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(45): TDIB.DoAddMonoNoise();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 18:24 万一阅读(1135) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(44): TDIB.DoAddColorNoise();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 18:20 万一阅读(1281) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(43): TDIB.DoInvert;

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 16:43 万一阅读(1375) 评论(5) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(42): TDIB.GaussianBlur();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 16:40 万一阅读(1400) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(41): TDIB.SplitBlur();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 16:34 万一阅读(1436) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(40): TDIB.Rotate();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 16:23 万一阅读(1581) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(39): TDIB.Sharpen();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 16:17 万一阅读(1383) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(38): TDIB.Filter();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 16:08 万一阅读(1448) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(37): TDIB.AddRGB();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 15:50 万一阅读(1452) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(36): TDIB.Contrast();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 15:21 万一阅读(1288) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(35): TDIB.Saturation();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 15:19 万一阅读(1292) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(34): TDIB.Lightness();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 15:12 万一阅读(1450) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(33): TDIB.SmoothRotateWrap();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 15:07 万一阅读(1441) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(32): TDIB.FishEye();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 15:00 万一阅读(1497) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(31): TDIB.Twist();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 14:56 万一阅读(1379) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(30): TDIB.AddGradiantNoise();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 14:38 万一阅读(1356) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(29): TDIB.AddMonoNoise();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 14:31 万一阅读(1351) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(28): TDIB.Emboss;

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 14:27 万一阅读(1491) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(27): TDIB.Spray();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文

posted @ 2009-01-16 14:23 万一阅读(1589) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(26): TDIB 的主要载体 - TDXPaintBox

摘要：TDXPaintBox 和 TPaintBox 一样拥有重要的属性 Canvas; 现在要关心的是 TDXPaintBox 另一个主要属性: DIB(TDIB 对象); 在下面学习 TDIB 时, 应该会大量用到这个 TDXPaintBox. 虽然叫它 TDXPaintBox, 但我觉得它更像 TImage, 只是把 TImage.Picture 换做了 TDXPaintBox.DIB. ... 阅读全文

posted @ 2009-01-16 12:52 万一阅读(2216) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();

摘要：DelphiX 的组件面板上, 第二个就是 TDXDIB; TDXDIB.DIB 是 TDXDIB 的唯一属性(其他是 TComponent 固有的); TDXDIB.DIB 属性是一个 TDIB 对象; TDIB 和 TBitmap 一样都直接继承自 TGraphic, 是一个图片容器, 它还有个别名: TDIBitmap; TDIB 和 TDXDraw.Surface 还有 TDX... 阅读全文

posted @ 2009-01-16 11:13 万一阅读(2138) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(24): TDirectDrawSurface.Blt()、BltFast();

摘要：这两个函数可不是一般的麻烦, 特别是 Blt(); 暂时搞不彻底, 这是初步尝试的例子: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DirectX; ... 阅读全文

posted @ 2009-01-15 23:00 万一阅读(2543) 评论(2) 推荐(1) 编辑

Delphi 与 DirectX 之 DelphiX(23): TDirectDrawSurface.Blur;

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls; type TForm1 = class(TForm) DXDraw1: TDXDr... 阅读全文

posted @ 2009-01-15 20:47 万一阅读(1974) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(22): TDirectDrawSurface.Noise();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXClass, DXDraws, ComCtrls; type TForm1 = class(TForm) DXDra... 阅读全文

posted @ 2009-01-15 18:26 万一阅读(1602) 评论(1) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(21): TDirectDrawSurface 的绘图命令

摘要：TDirectDrawSurface.PokeLine(); TDirectDrawSurface.PokeLinePolar(); TDirectDrawSurface.PokeBox(); TDirectDrawSurface.PokeBlendPixel(); TDirectDrawSurface.PokeCircle(); TDirectDrawSurface.PokeEllipse(... 阅读全文

posted @ 2009-01-15 18:10 万一阅读(3108) 评论(4) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(20): TDirectDrawSurface.FillRect...

摘要：TDirectDrawSurface.Fill(); TDirectDrawSurface.FillRect(); TDirectDrawSurface.FillRectAlpha(); TDirectDrawSurface.FillRectAdd(); TDirectDrawSurface.FillRectSub(); 其中 Fill 在前面每个例子中都有用到; 另外注意: 这几个函数中的... 阅读全文

posted @ 2009-01-15 10:07 万一阅读(2540) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(19): 绘图表面(TDirectDrawSurface)如何加载图片

摘要：上个例子中 TDirectDrawSurface 是从 TDXImageList 中获取的图片, 其实 TDirectDrawSurface 自己获取图片的方法有很多: TDirectDrawSurface.LoadFromFile(); TDirectDrawSurface.LoadFromStream(); TDirectDrawSurface.LoadFromGraphic(); TDi... 阅读全文

posted @ 2009-01-14 21:07 万一阅读(3426) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(18): TDXDraw 中描绘图片的命令

摘要：前面的绘图命令都是来自 TDXImageList, 准确地说是来自 TDXImageList.Items 所包含的 TPictureCollectionItem 对象. 那 TDXDraw 本身有没有绘图命令呢? TDXDraw 本身没有绘图命令, 但它的有绘图表面(TDirectDrawSurface), 譬如: Surface、Primary; TDXDraw 的绘图表面有更多的绘图命令,... 阅读全文

posted @ 2009-01-14 16:09 万一阅读(3389) 评论(5) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(17): TPictureCollectionItem.PatternWidth、PatternHeight

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls; type TForm1 = class(TForm) DXDraw1: TDXDr... 阅读全文

posted @ 2009-01-14 15:26 万一阅读(1727) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(16): DXImageList1.Items.Find();

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls; type TForm1 = class(TForm) DXDraw1: TDXDr... 阅读全文

posted @ 2009-01-14 13:59 万一阅读(2064) 评论(5) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(15): TPictureCollectionItem.DrawWaveX、DrawWaveY ...

摘要：此类函数有: TPictureCollectionItem.DrawWaveX(); TPictureCollectionItem.DrawWaveXAdd(); TPictureCollectionItem.DrawWaveXAlpha(); TPictureCollectionItem.DrawWaveXSub(); TPictureCollectionItem.DrawWaveY(); ... 阅读全文

posted @ 2009-01-14 12:21 万一阅读(2142) 评论(6) 推荐(1) 编辑

Delphi 与 DirectX 之 DelphiX(14): TPictureCollectionItem.DrawRotate...

摘要：TPictureCollectionItem.DrawRotate(); 的同类函数还有: TPictureCollectionItem.DrawRotateAdd(); TPictureCollectionItem.DrawRotateSub(); TPictureCollectionItem.DrawRotateAlpha(); TPictureCollectionItem.DrawRot... 阅读全文

posted @ 2009-01-13 22:46 万一阅读(2092) 评论(3) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(13): TPictureCollectionItem.DrawRotate

摘要：本例效果图(实际效果是相当流畅的, gif 只能说明个动作趋势): 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass, ComCtrls; t... 阅读全文

posted @ 2009-01-13 21:38 万一阅读(2195) 评论(7) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(12): TPictureCollectionItem.DrawAlpha

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass, ComCtrls; type TForm1 = class(TForm)... 阅读全文

posted @ 2009-01-13 18:35 万一阅读(2252) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(11): TPictureCollectionItem.DrawAdd、DrawSub

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass; type TForm1 = class(TForm) DXDra... 阅读全文

posted @ 2009-01-13 17:27 万一阅读(2451) 评论(7) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(10): TPictureCollectionItem.StretchDraw - 绘制到指定矩形

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass; type TForm1 = class(TForm) DXDra... 阅读全文

posted @ 2009-01-13 16:25 万一阅读(3053) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(9): 透明色与是否透明

摘要：TDXImageList.Items 中的每个 TPictureCollectionItem 的默认透明色是黑色, 并默认透明. 本例使用的测试图片: http://files.cnblogs.com/del/Transparent.rar 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils,... 阅读全文

posted @ 2009-01-13 15:24 万一阅读(3810) 评论(1) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(8): 第一个简单动画

摘要：本例效果图(用 gif 动画演示, 无论如何也出不来 DirectX 的流畅效果): 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls, DXClass; ty... 阅读全文

posted @ 2009-01-13 11:54 万一阅读(4240) 评论(4) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(7): 给 TDXImageList 加载图片的最后方案

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls; type TForm1 = class(TForm) DXDraw1: TDXDr... 阅读全文

posted @ 2009-01-13 09:38 万一阅读(3184) 评论(1) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(6): 让 TDXImageList 和常规 VCL 交互使用

摘要：本例测试了两个问题: 1、其他 VCL 加载的图片能否给 TDXImageList 使用; 2、TDXImageList 中的图片能否给其他 VCL 使用. 例子中先用 TPicture 加载了图片, 然后给 TDXImageList; 然后把图片绘制在了窗体上, 而非 TDXDraw 中. 继续了解点 TDXImageList: TDXImageList 控件只有两个属性: DXDraw ... 阅读全文

posted @ 2009-01-12 22:58 万一阅读(2852) 评论(0) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(5): 初识 TDXImageList

摘要：新建工程后, 在窗体上分别添加: DXDraw1、DXImageList1; 然后只需要下面四行代码即可在 DXDraw1 中显示 DelphiX.dxg 图像: procedure TForm1.Button1Click(Sender: TObject); begin DXImageList1.Items.LoadFromFile('C:\Temp\DelphiX.dxg'); D... 阅读全文

posted @ 2009-01-12 22:23 万一阅读(3284) 评论(1) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(4): 初识 TDXTimer

摘要：DelphiX 提供了高性能的计时器 TDXTimer, 使用方法和 Timer 基本一样. 我们在使用 Timer 时, 很少把 Interval 设为 50 以下(这应该是它精确度的极限); 使用 TDXTimer 可以把 Interval 置为 0, 表示尽可能地快! 本例效果图: 代码文件: unit Unit1; interface uses Windows, Mes... 阅读全文

posted @ 2009-01-12 17:15 万一阅读(3862) 评论(2) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(3): 初识 TDXDraw

摘要：在 DelphiX 中, 所能看到的一般都是画在 TDXDraw. TDXDraw 默认两个绘图表面: TDXDraw.Surface 和 TDXDraw.Primary; 一般先在后台(Surface)绘图, 然后再用 TDXDraw.Flip 命令切换前后台, 从而看到绘制效果. TDXDraw.Flip 会置换 Surface 和 Primary 两个对象, 所以我们尽可以只在 Sur... 阅读全文

posted @ 2009-01-12 16:52 万一阅读(5537) 评论(2) 推荐(0) 编辑

类型转换出现在赋值运算符左边的情况

摘要：下面是 Delphi 2009 VCL 源码的用到的: {ADODB.pas 第 4345 行:} Currency(Buffer^) := C; {ADODB.pas 第 4362 行:} SmallInt(Buffer^) := Byte(cVal) else {ADODB.pas 第 4363 行:} SmallInt(Buffer^) := iVal; {ADODB.pas 第... 阅读全文

posted @ 2009-01-11 10:35 万一阅读(3424) 评论(1) 推荐(0) 编辑

关于结构体与类型转换的一点小技巧

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto... 阅读全文

posted @ 2009-01-10 19:48 万一阅读(4466) 评论(12) 推荐(0) 编辑

TImage、TPaintBox、TPicture、TBitmap、TCanvas、TGraphic 的关系与区别

摘要：TGraphic 是 TBitmap 的父类, 很多绘图函数的参数是 TGraphic, 但我们经常给函数的是 TBitmap; TBitmap 的很多功能都是继承自 TGraphic, 譬如: Width、Height、LoadFromFile、SaveToFile、LoadFromStream、SaveToStream; 还有 Palette(调色板)、Transparent(是否透明) ... 阅读全文

posted @ 2009-01-09 23:01 万一阅读(16601) 评论(16) 推荐(1) 编辑

Delphi 与 DirectX 之 DelphiX(2): DelphiX 各单元概览

posted @ 2009-01-09 12:02 万一阅读(5334) 评论(1) 推荐(0) 编辑

绘制一个钢琴键盘

摘要：刚帮朋友解决了一个小问题, 这是其中的小片段: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) ... 阅读全文

posted @ 2009-01-09 00:26 万一阅读(7207) 评论(7) 推荐(0) 编辑

提取网页中的所有链接、点击第 n 个链接 - 回复 "刘丽" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/01/08/1370907.html#1425544 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2009-01-08 14:36 万一阅读(8661) 评论(22) 推荐(0) 编辑

Delphi 与 DirectX 之 DelphiX(1): 安装测试

摘要：测试 Demo 下载: http://files.cnblogs.com/del/DelphiX_1.rar (在 Delphi 2007 和 2009 下均编译通过) 其实按照这里的介绍, 比下载来的快, 也不需要下载. DirectX, 微软很久的技术了; 从 Windows Vista 开始, DirectX 已经是微软操作系统的界面基础了. 在 Delphi 下使用 Direc... 阅读全文

posted @ 2009-01-07 23:28 万一阅读(17184) 评论(41) 推荐(0) 编辑

求助! 谁有《inside delphiX》这本书？

摘要：大家帮忙, 谁有《inside delphiX》这本书？很早的一本书了, 应该是日文的. 准备开始学点 DirectX, 这本书应该是个好的起点; 希望你能帮助我! 阅读全文

posted @ 2009-01-07 11:27 万一阅读(2821) 评论(14) 推荐(0) 编辑

模拟点击网页中的按钮 - 回复 "starcraft_ly" 的问题

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebB... 阅读全文

posted @ 2009-01-07 11:08 万一阅读(16244) 评论(31) 推荐(1) 编辑

请教大家一个关于 jpeg.pas 单元的问题

摘要：请教大家一个关于 jpeg.pas 单元的问题: uses jpeg; 以后, 你那能编译成功吗? 我这里出错了(jpeg 单元 778 行). 问题已解决, 谢谢大家帮助! 阅读全文

posted @ 2009-01-04 22:12 万一阅读(3098) 评论(15) 推荐(0) 编辑

使用 TListView 控件(4)

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) ListView1: TL... 阅读全文

posted @ 2009-01-04 20:55 万一阅读(13423) 评论(26) 推荐(0) 编辑

使用 TListView 控件(3)

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) ListView1: TL... 阅读全文

posted @ 2009-01-04 17:31 万一阅读(9577) 评论(6) 推荐(0) 编辑

使用 TListView 控件(2)

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) ListView1: T... 阅读全文

posted @ 2009-01-04 15:40 万一阅读(9965) 评论(11) 推荐(0) 编辑

使用 TListView 控件(1)

摘要：第一次使用 ListView 是最近两三天的事: http://www.cnblogs.com/del/archive/2008/12/31/1365745.html 当时我就想: 一定要理顺它, 这是个常用且复杂的控件! 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants,... 阅读全文

posted @ 2009-01-04 10:06 万一阅读(12396) 评论(5) 推荐(0) 编辑

C# 语法练习(15): 接口

摘要：接口只声明、无实现、不能实例化; 接口可包含方法、属性、事件、索引器, 但无字段; 接口成员都是隐式的 public, 不要使用访问修饰符; 类、结构和接口都可以继承多个接口; 继承接口的类必须实现接口成员, 除非是抽象类; 类实现的接口成员须是公共的、非静态的. 入门示例: using System; interface MyInterface { int Sqr(int x)... 阅读全文

posted @ 2009-01-03 21:06 万一阅读(3684) 评论(4) 推荐(1) 编辑

C# 语法练习(14): 类[六] - 事件

摘要：using System; class MyClass { private int FNum; public delegate void MyDelegate(int n); /* 委托是事件的前提 */ public event MyDelegate MyEvent; /* 用 event 关键字根据已有的委托声明事件 */ /* 假如是在... 阅读全文

posted @ 2009-01-03 17:18 万一阅读(2297) 评论(0) 推荐(0) 编辑

如何在 "万一的 Delphi 博客" 回复自动格式化的着色代码?

摘要：1、先提交回复, 第一次提交时先不要代码, 可有文字; 2、再修改回复, 修改时包其中的换行标记, 也可以用添加新的换行; 3、然后按下面方式提交回复: //Delphi 代码... //C/C++ 代码... //C# 代码... 注意: 重新开启才能看到效果; 建议把上面文本加入到输入法的自定义文本里面. 查看回复效果: http://www.cn... 阅读全文

posted @ 2009-01-03 15:28 万一阅读(3517) 评论(37) 推荐(0) 编辑

C# 语法练习(13): 类[五] - 索引器

摘要：通过索引器可以方便使用类中的数组(或集合)成员: using System; class MyClass { private float[] fs = new float[3] { 1.1f, 2.2f, 3.3f }; /* 属性 */ public int Length { get { return fs.Length; } ... 阅读全文

posted @ 2009-01-03 13:21 万一阅读(1824) 评论(0) 推荐(0) 编辑

C# 语法练习(12): 类[四] - 抽象类与抽象成员、密封类与密封成员

摘要：抽象类不能直接实例化: using System; abstract class MyClass { } class Program { static void Main() { /* 抽象类不能直接实例化, 下面这样会出错 */ MyClass obj = new MyClass(); Console.ReadKe... 阅读全文

posted @ 2009-01-02 23:40 万一阅读(2035) 评论(0) 推荐(0) 编辑

C# 语法练习(11): 类[三] - 构造函数、析构函数、base、this

摘要：构造函数与析构函数: using System; class MyClass { private int FNum; public int Num { get { return FNum; } } /* 构造函数没有返回值, 无参的构造函数是默认的 */ public MyClass() { this.FNum = 2009; ... 阅读全文

posted @ 2009-01-02 20:36 万一阅读(2689) 评论(0) 推荐(0) 编辑

C# 语法练习(10): 类[二] - 继承、覆盖、多态、隐藏

摘要：继承: using System; class Parent { public void Msg() { Console.WriteLine("Parent"); } } class Child : Parent { } class Program { static void Main() { Parent ObjParent = new Paren... 阅读全文

posted @ 2009-01-02 16:45 万一阅读(2435) 评论(1) 推荐(0) 编辑

C# 语法练习(9): 类[一] - 访问限制、方法、字段、属性

摘要：所有类默认继承于 System.Object(或叫 Object): using System; class MyClass1 { } class MyClass2 : Object { } class MyClass3 : System.Object { } class Program { static void Main() { MyClass1... 阅读全文

posted @ 2009-01-02 14:49 万一阅读(2765) 评论(0) 推荐(0) 编辑

C# 语法练习(8): 函数

摘要：无参、无返回值的函数: using System; class MyClass { static void Show() { Console.WriteLine("function"); } static void Main() { Show(); //function Console.ReadKey(... 阅读全文

posted @ 2009-01-01 21:00 万一阅读(2385) 评论(3) 推荐(0) 编辑

C# 语法练习(7): 数组

摘要：字符串数组: using System; class MyClass { static void Main() { string[] arr = new string[3] { "aa", "bb", "cc" }; foreach (string s in arr) Console.WriteLine(s); // aa/bb/cc ... 阅读全文

posted @ 2009-01-01 16:44 万一阅读(2769) 评论(2) 推荐(0) 编辑