Delphi语言学习5-函数和方法

2017年02月06日 63 阅读

Delphi语言学习5-函数和方法2011-12-121.函数的定义//格式function functionName（parameterList）: returnType; directives;localDeclarations;beginstatementsend;//例1function WF: Integer;beginWF := 17;end;//例2function WF: Integer;beginResult := 17;end;//例3...

Delphi语言学习6-函数参数

2017年02月06日 61 阅读

Delphi语言学习6-函数参数2011-12-121.参数定义方式function Power（X: Real; Y: Integer）: Real;//（X, Y: Real）//（var S: string; X: Integer）//（HWnd: Integer; Text, Caption: PChar; Flags: Integer）//（const P; I: Integer）2.引用类型和值类型//DoubleByRef 的参数值会改变fu...

Delphi语言学习7-类和对象

2017年02月06日 65 阅读

Delphi语言学习7-类和对象2011-12-121.类的声明格式type className = class [abstract | sealed] （ancestorClass）memberList end;2.类的声明和使用//定义 type TMemoryStream = class（TCustomMemoryStream）privateFCapacity: Longint;procedure SetCapacity（NewCapacity: L...

Delphi语言学习8-类成员（字段和方法）

2017年02月06日 68 阅读

Delphi语言学习8-类成员（字段和方法）2011-12-121.Class Fields//例1 成员变量type TAncestor = classValue: Integer; end; TDescendant = class（TAncestor）Value: string;// hides the inherited Value field end;var MyObject: TAncestor;begin MyObject := TDescen...

Delphi语言学习9-函数的静态和动态加载

2017年02月06日 66 阅读

Delphi语言学习9-函数的静态和动态加载2011-12-121.静态加载procedure DoSomething; external "MYLIB.DLL";2.动态加载uses Windows, ;typeTTimeRec = recordSecond: Integer;Minute: Integer;Hour: Integer;end;TGetTime = procedure（var Time: TTimeRec）;THandle = Integ...

Delphi的绘图功能[1] - TCanvas的类成员

2017年02月06日 60 阅读

Delphi的绘图功能[1] - TCanvas的类成员2011-12-15 cnblogs 万一 //过程:ArcBrushCopyChordCopyRectDrawDrawFocusRectEllipseEllipseFillRectFloodFillFrameRectLineToLockMoveToPiePolygonPolylinePolyBezierPolyBezierToRectangleRectangleRefreshRoundRectStr...

Delphi的绘图功能[2] - 入门

2017年02月06日 61 阅读

Delphi的绘图功能[2] - 入门2011-12-15 cnblogs 万一绘图需要有纸、画笔、画刷; Delphi 有 Canvas、Pen、Brush.Canvas 就是画布, 譬如窗体的 Canvas 属性, 就是窗体的画布;Pen 是画笔, 可以设置笔色、笔宽等等;Brush 是画刷, 可以设置颜色等等.//举例:{绘制直线}procedure TForm1.Button1Click（Sender: TObject）;begin Canvas....

Delphi的绘图功能[3] - 矩形类图形

2017年02月06日 58 阅读

Delphi的绘图功能[3] - 矩形类图形2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton; But...

Delphi的绘图功能[4] - 圆弧类图形

2017年02月06日 59 阅读

Delphi的绘图功能[4] - 圆弧类图形2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton; But...

Delphi的绘图功能[5] - 获取Canvas对象

2017年02月06日 73 阅读

Delphi的绘图功能[5] - 获取Canvas对象2011-12-15 cnblogs 万一在窗体上添加 Panel1、PaintBox1 和 Button1, 代码如下:procedure TForm1.Button1Click（Sender: TObject）;var cvs: TCanvas;begin {PaintBox1 就像窗体一样, 也有 Canvas 属性} PaintBox1.Canvas.Brush.Color := clRed; ...

Delphi的绘图功能[6] - Polygon、Polyline

2017年02月06日 62 阅读

Delphi的绘图功能[6] - Polygon、Polyline2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TB...

Delphi的绘图功能[7] - PolyBezier、PolyBezierTo

2017年02月06日 62 阅读

Delphi的绘图功能[7] - PolyBezier、PolyBezierTo2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Butt...

Delphi的绘图功能[8] - TextOut、TextWidth、TextHeight

2017年02月06日 59 阅读

Delphi的绘图功能[8] - TextOut、TextWidth、TextHeight2011-12-15 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; ...

Delphi的绘图功能[9] - TextRect

2017年02月06日 60 阅读

Delphi的绘图功能[9] - TextRect2011-12-15 cnblogs 万一//第一种重载的声明:TextRect（Rect: TRect; {矩形}X, Y: Integer; {相对于窗体的位置}const Text: string {文本}）;{如果要输出的文本超出指定的矩形将不被显示}---------------------------------------------------------------------------...

Delphi的绘图功能[10] - TFONT类

2017年02月06日 58 阅读

Delphi的绘图功能[10] - TFONT类2011-12-15 cnblogs 万一//先来个例子:procedure TForm1.FormPaint（Sender: TObject）;const S = "万一的 Delphi 博客";var font: TFont;begin font := TFont.Create; font.Name := "微软雅黑"; font.Style := [fsBold, fsItalic]; font.Col...

Delphi的绘图功能[11] - TPen类（上）

2017年02月06日 63 阅读

Delphi的绘图功能[11] - TPen类（上）2011-12-15 cnblogs 万一//TPen 的主要属性有四:Color、Width、Style、Mode{Color: 颜色}{Width: 宽度; 默认是 1; 如果 赋予 <= 0 的值, 会使用默认值}{Style: 样式; Delphi 定义了笔样式枚举 TPenStyle, 包含以下样式:}psSolid = 0; {实线}psDash = 1; {段线; 要求笔宽...

Delphi的绘图功能[12] - TPen类（下） : 学习橡皮线

2017年02月06日 75 阅读

Delphi的绘图功能[12] - TPen类（下） : 学习橡皮线2011-12-15 cnblogs 万一//奇妙的异或运算, 就这些简单的代码, 反复点击按钮...procedure TForm1.Button1Click（Sender: TObject）;begin Canvas.Pen.Color := clYellow; {指定笔颜色为黄色} Canvas.Pen.Width := 20; {笔宽 20} Canvas.Pen.Mode ...

Delphi的绘图功能[13] - TBrush类

2017年02月06日 64 阅读

Delphi的绘图功能[13] - TBrush类2011-12-15 cnblogs 万一//画刷类 TBrush 有三个重要属性:Color、Style、Bitmap.{Style: 样式; Delphi 为画刷定义了样式枚举 TBrushStyle, 包含以下样式:}bsSolidbsClearbsHorizontalbsVerticalbsFDiagonalbsBDiagonalbsCrossbsDiagCross//下面小程序展示了上面的其中填充...

Delphi的绘图功能[14] - 图像类

2017年02月06日 63 阅读

Delphi的绘图功能[14] - 图像类2011-12-15 cnblogs 万一Delphi 的 Graphic 单元有五个重要的图像类: TGraphic、TBitmap、TMetafile、TIcon、TPicture.TBitmap 用来操作位图;TMetafile 用来操作图元文件;TIcon 用来操作图标（包括鼠标指针）文件;TBitmap、TMetafile、TIcon 都是 TGraphic 的子类, 由于TCanvas.Draw（X, ...

Delphi的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExt

2017年02月06日 64 阅读

Delphi的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExt2011-12-15 cnblogs 万一procedure TForm1.Button1Click（Sender: TObject）;varstr: string;wh: TSize;w,h: Integer;begin{前面用过 Canvas.TextWidth、Canvas.TextHeight}str := "万";w := Canvas.TextWidth（s...