myamanda

摘要： 在DELPHI中的所有对象中都有提供了TOP、LEFT、HEIGHT、WIDTH四个属性，用以控制对象的位置和大小；另外在DELPHI中还提供了一个TIME的构件，利用他们可以方便地实现一些动画。 ---- 一． 拉幕 ---- 拉幕式即从中间往两边慢慢显示画面。在此把Dbimage1的CENTER属性设成true;把stretch属性设成false。把WIDTH属性设成0，适当设置LEFT的... 阅读全文

摘要： 一. 建立工程与一个资源档 1. File | New Project 2. File | Save Project, 将 unit1 与 project1 存起来 假定是 c:\temp 目录 3. Tools | Image Editor, 利用 Image Editor 新开一个 资源档( Fild | New | Resource File ) 4. 在这个资源档中新建一个 CURSOR_... 阅读全文

摘要： 目前在许多学习软件、游戏光盘中，经常会看到各种图形显示技巧，凭着图形的移动、交错、雨滴状、百页窗、积木堆叠等显现方式，使画面变得更为生动活泼，更 能吸引观众。本文将探讨如何在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... 阅读全文