Delphi与DirectX之DelphiX（18）：TDXDraw中描绘图片的命令

2016年07月27日 47 阅读

Delphi与DirectX之DelphiX（18）：TDXDraw中描绘图片的命令2010-01-27 博客园 万一前面的绘图命令都是来自TDXImageList,准确地说是来自TDXImageList.Items 所包含的TPictureCollectionItem对象.那TDXDraw本身有没有绘图命令呢？TDXDraw本身没有绘图命令, 但它的有绘图表面（TDirectDrawSurface）, 譬如: Surface、Primary;TDXDra...

Delphi与 DirectX之DelphiX（19）：绘图表面（TDirectDrawSurface）如何加载图片

2016年07月27日 49 阅读

Delphi与 DirectX之DelphiX（19）：绘图表面（TDirectDrawSurface）如何加载图片2010-01-27 博客园 万一上个例子中TDirectDrawSurface是从TDXImageList中获取的图片,其实TDirectDrawSurface自己获取图片的方法有很多:TDirectDrawSurface.LoadFromFile（）;TDirectDrawSurface.LoadFromStream（）;TDirectD...

Delphi与DirectX之DelphiX（20）：TDirectDrawSurface.FillRect...

2016年07月27日 45 阅读

Delphi与DirectX之DelphiX（20）：TDirectDrawSurface.FillRect...2010-01-27 博客园 万一TDirectDrawSurface.Fill（）;TDirectDrawSurface.FillRect（）;TDirectDrawSurface.FillRectAlpha（）;TDirectDrawSurface.FillRectAdd（）;TDirectDrawSurface.FillRectSub（）...

Delphi与DirectX之DelphiX（21）：TDirectDrawSurface的绘图命令

2016年07月27日 49 阅读

Delphi与DirectX之DelphiX（21）：TDirectDrawSurface的绘图命令2010-01-27 博客园 万一TDirectDrawSurface.PokeLine（）;TDirectDrawSurface.PokeLinePolar（）;TDirectDrawSurface.PokeBox（）;TDirectDrawSurface.PokeBlendPixel（）;TDirectDrawSurface.PokeCircle（）;T...

Delphi与DirectX之DelphiX（22）：TDirectDrawSurface.Noise（）

2016年07月27日 43 阅读

Delphi与DirectX之DelphiX（22）：TDirectDrawSurface.Noise（）2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DXClass, DXDraws, ComCtrls;typeTForm1 = cl...

Delphi与DirectX之DelphiX（23）：TDirectDrawSurface.Blur;

2016年07月27日 50 阅读

Delphi与DirectX之DelphiX（23）：TDirectDrawSurface.Blur;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DXDraws, StdCtrls;typeTForm1 = class（TForm）D...

Delphi与DirectX之DelphiX（24）：TDirectDrawSurface.Blt（）、BltFast（）;

2016年07月27日 44 阅读

Delphi与DirectX之DelphiX（24）：TDirectDrawSurface.Blt（）、BltFast（）;2010-01-27 博客园 万一这两个函数可不是一般的麻烦, 特别是Blt（）; 暂时搞不彻底, 这是初步尝试的例子:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialo...

Delphi与DirectX之DelphiX（25）：TDIB.Blur（）;

2016年07月27日 45 阅读

Delphi与DirectX之DelphiX（25）：TDIB.Blur（）;2010-01-27 博客园 万一DelphiX的组件面板上, 第二个就是TDXDIB;TDXDIB.DIB是TDXDIB的唯一属性（其他是TComponent 固有的）;TDXDIB.DIB属性是一个TDIB对象;TDIB和TBitmap一样都直接继承自TGraphic, 是一个图片容器, 它还有个别名: TDIBitmap;TDIB和TDXDraw.Surface还有 TDX...

Delphi与DirectX之DelphiX（26）：TDIB的主要载体 - TDXPaintBox

2016年07月27日 48 阅读

Delphi与DirectX之DelphiX（26）：TDIB的主要载体 - TDXPaintBox2010-01-27 博客园 万一TDXPaintBox和TPaintBox一样拥有重要的属性 Canvas;现在要关心的是TDXPaintBox另一个主要属性: DIB（TDIB 对象）;在下面学习TDIB时, 应该会大量用到这个TDXPaintBox.虽然叫它TDXPaintBox, 但我觉得它更像TImage, 只是把TImage.Picture换做了...

Delphi与DirectX之DelphiX（27）：TDIB.Spray（）;

2016年07月27日 42 阅读

Delphi与DirectX之DelphiX（27）：TDIB.Spray（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBox1: TDX...

Delphi与DirectX之DelphiX（28）：TDIB.Emboss;

2016年07月27日 43 阅读

Delphi与DirectX之DelphiX（28）：TDIB.Emboss;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBox1: TDXP...

Delphi与DirectX之DelphiX（29）：TDIB.AddMonoNoise（）;

2016年07月27日 47 阅读

Delphi与DirectX之DelphiX（29）：TDIB.AddMonoNoise（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBo...

Delphi与DirectX之DelphiX（30）：TDIB.AddGradiantNoise（）;

2016年07月27日 47 阅读

Delphi与DirectX之DelphiX（30）：TDIB.AddGradiantNoise（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPai...

Delphi与DirectX之DelphiX（31）：TDIB.Twist（）;

2016年07月27日 48 阅读

Delphi与DirectX之DelphiX（31）：TDIB.Twist（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBox1: TDX...

Delphi与DirectX之DelphiX（32）：TDIB.FishEye（）;

2016年07月27日 45 阅读

Delphi与DirectX之DelphiX（32）：TDIB.FishEye（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPaintBox1: T...

Delphi与DirectX之DelphiX（33）：TDIB.SmoothRotateWrap（）;

2016年07月27日 49 阅读

Delphi与DirectX之DelphiX（33）：TDIB.SmoothRotateWrap（）;2010-01-27 博客园 万一本例效果图:代码文件:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DIB, StdCtrls;typeTForm1 = class（TForm）DXPai...

怎样建立简单的任务栏应用程序

2016年07月27日 46 阅读

怎样建立简单的任务栏应用程序2010-01-27Windows 95和Windows NT 4.0包含一个令人兴奋的特性：任务栏。这个通常位于区域任务条右面的区域能包含小的图标，这些图标能引出大的应用程序或者菜单。本篇文章主要讨论如何使用Delphi建立这样的应用程序。在开始之前，请看下面的需要的接口方面的内容：从技术方面来说，一个任务栏应用程序非常象普通的应用程序，它有一个消息循环，相应Windows的消息来完成相应的功能。Procedure RunTr...

隐藏当前进程

2016年07月27日 46 阅读

隐藏当前进程2010-01-27恢复当前窗口的程序，由于当前进程有可能在全屏模式下运行，所以需要通过指定特定的热键使程序窗口消失，且不出现在任务栏上。下面介绍如何用Delphi实现。主要需要解决两个问题，即隐藏窗口和设定热键。一.隐藏窗口通过API函数GETACTIVEWINDOW获取当前窗口；函数ShowWindow（HWND,nCmdShow）的参数nCmdShow取SW_HIDE时将之隐藏，取SW_SHOW时将之显示。例如：showwindow（ge...

全部窗体可使用鼠标中移动

2016年07月27日 51 阅读

全部窗体可使用鼠标中移动2010-01-27最简单的办法就是"欺骗"系统,让他认为点中的是窗体的标题行unit Dragmain;interfaceusesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls;typeTForm1 = class（TForm）Button1: TButton;procedu...

限制FORM的大小

2016年07月27日 45 阅读

限制FORM的大小2010-01-27使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口，当它极大时只占屏幕的一小部分，它是如何实现的呢，请看下面的说明：1）在FORM私有声明部分加上如下一行：procedureMessage :TWMGetMinMaxInfo ）; message WM_GETMINMAXINFO;WMGetMinMaxInfo（ var2）在声明部分加上如下几行:procedure TForm1.WMGetMinMaxIn...