iseekcode的专栏

 TSpeedButton是不支持自绘的，即使为它创建一个TControlCanvas，画上去的图也保持不了。于是想到了SpeedButton的Glyph属性。不错，Glyphi装的可不是TBitmap么？直接画它不就得了。赶紧Test一下，果然，OK。以下是测试代码： procedure TForm1.Button1Click(Sender: TObject);var 

 制作圆角矩形的窗体：01.procedure TPortForm.FormCreate(Sender: Tobject);02.var hr :thandle;03.begin04.hr:=createroundrectrgn(0,0,width,height,20,20);05.setwindowrgn(handle,hr,true); 06.end;如果不要窗体外框，则使用：

 用Delphi画圆角Panel的方法procedure TForm1.Button5Click(Sender: TObject);var fhr :Thandle;beginfhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4);setwindowrgn(panel1.handle,fhr,true);e

 在UDP即时通讯软件中实现类似于QQ的动画表情，在richEdit控件中插入gif动画表情。发送的时候将表情转为命令，接收之后，再将命令转换为相应的动画表情。需要引用一个QQ的DLL，文件在附件中。将此DLL导入到DELPHI中。unit URichEdit;interfaceuses  Windows, Messages, SysUtils, Classes, Controls, St

Question How do I resize a *.jpg or *.gif image from say 640 × 480 to 50 × 50 and then save the image as a new one?  procedure TForm1.Button1Click(Sender: TObject);var  bmp: TBitmap;  jpg: TJpeg

 How to use a TControlCanvas in a component type  TScrollingPaintBox = class(TScrollingWinControl)  private    FCanvas: TCanvas;  public    constructor Create(aOwner: TComponent); override;    des

GradientFill found in msimg32.dllThis Delphi source code shows how the GradientFill function can be used to add smooth shading to a triangle or rectangle. For a triangle call the GradientFill functi

IntroductionSometimes, you may want to store the contents of a rich edit control in a metafile.This article outlines an approach that stores this type of controls contents in enhanced metafiles, on