- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
和我一起学.doc
和我一起学
Asphyre Sphinx Framework v1.0.0
China Yang
Http:///bbs/ : ID:Installxp
前言少序
当我准备用业余时间开始写这段文字,当你准备在Library Path里添上Asphyre的Source文件夹。那么我们一起学习的旅程就开始了,我会把我学习的过程写在这里,希望有一天,你也把你的学习过程形成文字,和其他人一起分享。
这些文字是面向初学者的,所以文字拖沓是必然的,请各路Delphi大仙们绕行。
我们的运行环境是:Delphi 2006。请将你的Asp Sphinx FrameWord v1.0.0 目录下的 Source文件夹添加到:
菜单 - Tools - Options - library-Win32 – Library Path。
第一个目标
我们要在屏幕上用Asphyre 画点。
在此之前你需要了解的基础知识:基本控件的“过程,方法和事件”。这些是必备的知识,如果你不清楚这些,请找一本DELPHI 基础书参照学习。
下面我们开始正式进入ASPHYRE学习,从现在开始我和你一样,一步一步探索。
在程序的开始,我们需要一个事件过程。
请使用Design,我们可以看到设计期的窗口。
我们在空窗口上鼠标左键连续点击两次,DELPHI将智能的帮我们建立下面这个事件:
procedure TForm1.FormCreate(Sender: TObject);
FormCreate 是窗口建立时必然运行的一个过程,你在这个过程所写的代码,将随着窗口的建立而被执行。我们将在这里Create我们程序需要的类和其他一些相关的东西。
FormCreate内的第一句代码:
ReportMemoryLeaksOnShutdown:= DebugHook 0;
{ 以下关于第一句代码的相关知识: }
DELPHI引入了FastMM替换掉早期的内存管理器。FastMM是一个开源的项目,你可以在互联网上找到它,在很长一段时间里有经验的程序员使用它来检测程序的内存泄漏。它可以帮助DELPHI IDE更快,更稳定的运行。当然,即使你不将ReportMemoryLeaksOnShutdown开关打开,FastMM也是在工作的,只是当你的程序出现内存问题时,DELPHI 将不会提示你。所以一个好的习惯就是将它打开,它只会帮助你更好的工作。也可以像下面这样:
ReportMemoryLeaksOnShutdown := True;
当程序是在IDE里运行时 DebugHook = 1 ;当程序在IDE外独立运行时 DebugHook = 0;
如果你是一个刚刚开始学习编程的爱好者,??面的方式可能会让你迷惑,不过不要紧。
? ReportMemoryLeaksOnShutdown:= DebugHook 0;
( DebugHook 0 ) 是一个表达式,当DebugHook是1的时候。( DebugHook 0 )将返回一个False (假值)给ReportMemoryLeaksOnShutdown。如果DebugHook 的值是0的时候,( DebugHook 0 )将返回一个真值。
言归正传,我们要开始在FormCreate里定义一个DisplaySize看起来像下面这样
Procedure TForm1.FormCreate (Sender: TObject);
Var
DisplaySize: TPoint2px; { 我们定义的地方 }
Begin
为了我们能正常的使用TPoint2px,我们要引入Vectors2px单元。所以我们要在Implementation 关键字下面添加第一个引入单元,看起来像下面这样
… …
Implementation
Uses
Vectors2px;
… …
当我们按住Ctrl键用鼠标去点击Vectors2px的时候,我们就会追踪到某个类和某个类型定义的起始处。
DisplaySize被定义成TPoint2px记录(Record);我们可以追踪到 Vectors2px单元第四十五行。
PPoint2px = ^TPoint2px;
TPoint2px = record
x, y: Integer;
关于 Record 请参看你手头的工具书,记录(Record);
当然DisplaySize:= Point2px(ClientWidth, ClientHeight);也可以换一个写法,例如下面这样:
DisplaySize.x := ClientWidth; { ClientWidth 窗口的宽 }
您可能关注的文档
最近下载
- 瓷砖胶品牌、瓷砖胶缺点、瓷砖胶禁忌.doc VIP
- 《杜邦分析法下公司盈利能力分析—以海澜之家为例》7500字.docx VIP
- 2025年高中数学奥林匹克竞赛试卷试题及答案解析.docx VIP
- 住房公积金政策知识竞赛题库附答案(150题).docx VIP
- EN 50618-2014 光伏系统用电缆.pdf VIP
- 边坡治理工程(抗滑桩、锚杆、锚索、挡板、冠梁)专项施工组织设计.doc VIP
- 畜牧兽医法律法规和职业道德(第二版)PPT课件(全).pptx VIP
- 人教版(新教材)七年级上册音乐第一单元《生活中的音乐》全单元教学课件课件.pptx
- 苏教版五年级上册《科学》全套教学课件(共486页PPT).pptx
- 欧洲知识点PPT课件.pptx
文档评论(0)