Delphi下的GDI+编程[6] 绘制矩形-DrawRectangle[转]
摘要：本例效果图：//在GDI+中，绘制矩形是通过TGPGraphics类的DrawRectangle方法实现的unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...
阅读全文
Delphi下的GDI+编程[4] 绘制直线-虚线样式[转]
摘要：本例效果图：//虚线样式varg: TGPGraphics;p: TGPPen;beging := TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);p := TGPPen.Create(MakeColor(255,255,0,0),3);g.D...
阅读全文
Delphi下的GDI+编程[5] 绘制直线-自定义虚线[转]
摘要：本例效果图：//自定义虚线样式varg: TGPGraphics;p: TGPPen;constdash: array[0..3] ofSingle= (5,2,15,10); {虚线样式数组, 数组维数大小任意}beging := TGPGraphics.Create(Canvas.Handle)...
阅读全文
Delphi下的GDI+编程[3] 绘制直线-线帽[转]
摘要：本例效果图：//线帽varg: TGPGraphics;p: TGPPen;beging := TGPGraphics.Create(Canvas.Handle);p:= TGPPen.Create(aclBlue, 5);p.SetStartCap(LineCapArrowAnchor); {起点...
阅读全文
Delphi下的GDI+编程[2] DrawLine - 绘制直线
摘要：例一效果图：在GDI+中，绘制直线是通过TGPGraphics类的DrawLine方法实现的，此类的一些方法如下：DrawLine(线条)DrawRectangle(矩形)DrawEllipse(椭圆)DrawPolygon(多边形)DrawArc(弧形)DrawCurve(基数样条)DrawBez...
阅读全文
Delphi下的GDI+编程[1] 准备工作 [转]
摘要：GDI+（GraphicsDeviceInterfacePlus图形设备接口加）是WindowsXP和WindowsServer2003操作系统的子系统，也是.NET框架的重要组成部分，负责在屏幕和打印机上绘制图形图像和显示信息。顾名思义，GDI+是Windows早期版本所提供的图形设备接口GDI的...
阅读全文
Delphi 与 C/C++ 数据类型对照表[转]
摘要：Delphi数据类型C/C++ShorInt8位有符号整数charByte8位无符号整数BYTE,unsigned shortSmallInt16位有符号整数shortWord16位无符号整数unsigned shortInteger,LongInt32位有符号整数int,longCardinal,...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》---行为模式之责任链模式
摘要：模式解说 责任链模式是一种对象的行为模式，它将处理客户端请求的那些对象联成一条链，并沿着这条链传递请求，直到有一个对象处理它为止。通常使用在以下场合 1 有多个对象可以处理一个请求，哪个对象处理该请求事先并不知道，而是在运行时自动确定； 2 希望在不明确制定接收者的情况下，向多个对象中的一个提...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi代码---模式小结之一个叫声接口和几只鸭子[转]
摘要：一、一个叫声接口和几只鸭子从一个叫声接口开始。{《HeadFirst设计模式》Delphi代码之模式小结}{一个叫声接口}{编译工具：Delphi2010forwin32}{E-Mail：guzh-0417@163.com}unituQuackable;interfacetype IQuackabl...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi代码---工厂模式之抽象工厂[转]
摘要：12{《HeadFirst设计模式》工厂模式之抽象工厂}3{抽象工厂的产品}4{编译工具：Delphi7.0}5{E-Mail：guzh-0417@163.com}67unituPizzaIngredient;89interface1011type12TDough=class(TObject)13e...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi2007代码---组合模式之Menus[转]
摘要：12{《HeadFirst设计模式》之组合模式}3{组合与单项的抽象父类}4{编译工具：Delphi2007forwin32}5{E-Mail：guzh-0417@163.com}67unituMenuComponent;89interface1011uses12SysUtils;1314type1...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi2007代码---工厂模式之工厂方法[转]
摘要：12{《HeadFirst设计模式》工厂模式之工厂方法}3{产品类}4{编译工具：Delphi2007forwin32}5{联系方式：guzh-0417@163.com}67unituProducts;89interface1011type12{abstractPizza}1314TPizza=cl...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi2007代码---单例模式之ChocolateBoiler[转]
摘要：12{《HeadFirst设计模式》之单例模式}3{编译工具:Delphi2007forwin32}4{E-Mail:guzh-0417@163.com}56unituChocolateBoiler;78interface910type11TChocolateBoiler=class(TObject...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---工厂模式之简单工厂[转]
摘要：简单工厂：工厂依据传进的参数创建相应的产品。12{《HeadFirst设计模式》工厂模式之简单工厂}3{产品类}4{编译工具：Delphi7.0}5{联系方式：guzh-0417@163.com}67unituProducts;89interface1011type12TPizza=class(...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---观察者模式之WeatherReport[转]
摘要：12{《HeadFirst设计模式》之观察者模式}3{主题与观察者}4{编译工具：Delphi7.0}5{联系方式：guzh-0417@163.com}67unituWeatherReport;89interface1011uses12Classes,SysUtils;1314type15TObse...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---模板方法模式之CoffeineBeverageWithHook[转]
摘要：模板方法模式定义了一个算法骨架，允许子类对算法的某个或某些步骤进行重写（override)。12{《HeadFirst设计模式》之模板方法模式}3{编译工具:Delphi7.0}4{E-Mail:guzh-0417@163.com}56unituCoffeineBeverageWithHook;7...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---迭代器模式之DinerMenu[转]
摘要：容器的主要职责有两个：存放元素和浏览元素。根据单一职责原则（SRP）要将二者分开，于是将浏览功能打包封装就有了迭代器。用迭代器封装对动态数组的遍历：12{《HeadFirst设计模式》之迭代器模式}3{容器中的元素类}4{编译工具：Delphi7.0}5{E-Mail：guzh-0417@163...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---适配器模式之TurkeyAdapter[转]
摘要：适配器模式的主要意图是对现有类的接口进行转换，以满足目标类的需求。其次，可以给目标类的接口添加新的行为（主要指方法）。这一点容易与装饰模式混淆。从意图方面来看，装饰模式不改变（通常指增加）接口中的行为（主要指方法），而是在原有行为（主要指方法）的基础上添加新的功能；从类结构方面来看，装饰模式中的...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---策略模式之MiniDuckSimulator[转]
摘要：12{《HeadFirst设计模式》之策略模式}3{本单元中的类为策略类}4{编译工具:Delphi7.0}5{E-Mail:guzh-0417@163.com}67unituStrategy;89interface1011type12{飞行接口，及其实现类}1314IFlyBehavior=Int...
阅读全文
Delphi 设计模式：《HeadFirst设计模式》Delphi7代码---装饰模式之StarBuzzCoffee[转]
摘要：12{《HeadFirst设计模式》之装饰模式}3{本单元中的类为被装饰者}4{编译工具:Delphi7.0}5{E-Mail:guzh-0417@163.com}67unituComponent;89interface1011type12TBeverage=class(TObject)//抽象饮料...
阅读全文
浙公网安备 33010602011771号