delphi canvas使用
在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的
CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以
在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制
作一些屏幕特技都有着非凡的作用,下面举例说明几种特殊屏幕
效果的形成过程。
一、CANVAS必备基本知识:
1.具有CANVAS属性的控件:
TBitmap,TComboBox,TDBComboBox,TDBGrid,TDBListBox,TDirectoryListBox,
TDrawGrid,TFileListBox,TForm,THeaderControl,TImage,TListBox,TOutline,
TPaintBox,TPrinter,TStatusBar,TStringGrid等,
2.CANVAS属性及命令:篇幅所限,省略参数及格式说明,具体请参考文后程序及DELPHI帮助文件:
canvas.rectangle():画矩形pen.color:定义画笔颜色
roundrect():画圆角矩形pen.width:定义画笔宽度
arc():画弧线(不填充) brush.color:定义填充颜色
chord():画弧线(填充) textout():在固定位置输出字符串
pie:画扇形 textwidth:取字符串高度
polygon():画多边形填充textheight:取字符串宽度
polyline():多点连线(不填充)font.color:指定字体颜色
Pixels():指定固定象素点颜色值font.size:指定字体大小
moveto():指明画线起点 Ellipse():画圆或椭圆
lineto():指明画线终点
3.使用CANVAS注意事项:当窗口进行重画时,画布上的图像将消
失,比如当窗口进行最小化又重新恢复时,就会引起画布上图像
的消失,另外当刚刚运行程序时,窗口也是属于重新绘制,所以
如果在绘制窗口之前在画布上绘图,弹出窗口后将不能显示出图
像,比如在TForm1.FormCreate()事件中进行画布绘图操作将是
徒劳的,但可以在此事件中进行画布操作的准备工作,比如设置
画笔的颜色和宽度等。
二、CANC
相关文档:
一般我们在Delphi中进行图像处理时采用Pixels像素点赋值的方法,Delphi代码如下:
var
x,y:Integer;
cColor:TColor;
begin
for y:=0 to Image1.Height-1 do
for x:=0 to Image1.Width-1 do
cColor:=Image1.Canvas.Pixels[i,j];
end;
但是这种方法有个缺 ......
function ValidatePID(const APID: string): string;
{内部函数,取身份证号校验位,最后一位,对18位有效}
function GetVerifyBit(sIdentityNum: string): Char;
var
nNum: Integer;
begin
Result := #0;
nNum := StrToInt(sIdentityNum[1]) * 7 +
  ......
我一开始以为,将表单设置为隐藏,可以在表单创建事件中即FormCreate(Sender:TObject)去设置
因此, 我在这个procedure TForm.FormCreate(Sender:TObject)中,
想用一下两种方式实现
即:
调用 from.Hi ......
savetime2k@yahoo.com 2004.1.28
http://savetime.delphibbs.com
今天开始学习元件编辑器,感觉比属性编辑器简单许多,但还是遇到了一些疑问。如果你能解答文中记录的问题,请告诉我答案,谢谢!
目 录
===============================================================================
⊙ TBaseComponentEdit ......