myamanda

摘要： 目前在许多学习软件、游戏光盘中，经常会看到各种图形显示技巧，凭着图形的移动、交错、雨滴状、百页窗、积木堆叠等显现方式，使画面变得更为生动活泼，更 能吸引观众。本文将探讨如何在Delphi中实现各种图形显示技巧。 　　基本原理 　　----在Delphi中，实现一副图象的显示是非常简单的，只要在Form中定义一个TImage组件，设置其picture属性，然后选 择任何有效的.ICO、.BMP... 阅读全文

摘要： ---- 大量的图标显示是Windows中的一大特色，丰富多彩的图标不仅美化了Windows的桌面，而且便于直观的操作，给用户带来了极大的方便。可以说在某种程度上，图标的地位已经超过了文件名的作用。 但是，当我们用可视化编程工具进行Windows编程时，却很少有方便的方法来加载和显示图标。一般来说，在我们的应用程序中使用到图标资源时都是我们自己亲自绘制出来的。因此，在我们编的程序中使用到的图标... 阅读全文

摘要： 动画光标是以ANI为扩展名的文件,它的作用就是让你的鼠标外形变成动画,而不只是一个斜三角形，具体方法如下： 新建一个工程,在FORM1上放一个BUTTON1,再找一个动画光标文件＊.ANI,你可以到网上下载一个,也可从一些光盘中找一个(如：查找＊.ANI文件),然后输入以下代码： unit CURSOR; interface uses Windows, Messages, S... 阅读全文

摘要： procedure TextOutAngle(x,y,aAngle,aSize: integer; txt: string); var hFont, Fontold: integer;DC: hdc;Fontname: string; beginif length(txt)= 0 thenEXIT;DC:= Screen.ActiveForm.Canvas.handle;SetBkMode(... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); varlo:tbitmap;i,j:integer;kl:longint;rr,gg,bb:byte;res:byte; beginlo:=tbitmap.create;lo.Width:=image1.Width;lo.height:=image1.height;ProgressBar1.Max:... 阅读全文

摘要： 逐个像素转换。function RgbToGray(Source: TColor) : TColor; var Target: Byte; beginTarget := Round((0.30 * GetRValue(Source)) + (0.59 * GetGValue(Source)) + (0.11 * GetBValue(Source)));Result := RGB(Target,... 阅读全文

摘要： var Color : TColor; R,G,B : Integer;R := Color and $ff;G := (Color and $ff00) shr 8;B := (Color and $ff0000) shr 16; 阅读全文

摘要： 在窗体中添加一个button和一个image，选择一幅大约100x100的bitmap。unit drawunit; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ExtCtrls; typeTForm1 = class(TForm)Image1... 阅读全文

摘要： 在你的窗体中添加一个Timage和一个Button，Button用于调用过程，此过程把文本和gif文件的名字作为参数。 procedureTxtToGif(txt,FileName:String);vartemp:TBitmap;GIF:TGIFImage;begintemp:=TBitmap.Create;trytemp.Height:=400;temp.Width:=60;temp.Trans... 阅读全文

摘要： procedureTextOutAngled(iCoordX,iCoordY:integer;constsString:string;iAngle,iSize:integer);varoLogFont:TLogFont;SaveFont:TFont;beginSaveFont:=TFont.Create;SaveFont.Assign(GlobalCanvas.Font);GetObject(Sa... 阅读全文

摘要： 语法:-------myTcolor:=rgbtocolor(redvalue,greenvalue,bluevalue);例子:--------form1.color:=rgbtocolor(255,0,0);函数:---------functionRGBToColor(R,G,B:Byte):TColor;beginResult:=BShl16OrGShl8OrR;end; 阅读全文