• SaveToFlie :把图像保存到指定的磁盘目录中
3. Stretch：当Stretch为True时，图像将根据组件的大
2020/12/10 小调整自身的大小
8
相关知识：对话框组件
9. OpenDialog打开文件对话框
主要属性 ➢ 属性 ：保存了用户选中的文件的文件名和路径信息 ➢ Filter属性:文件类型过滤器，用来设置哪些类型的文件
bvLowered2Fra bibliotek20/12/10
7
实验设计和步骤
8. Image图像组件位于组件面板的Additional选项卡上，用 来显示和处理图片（*.bmp和*.jpg）。
• 主要属性：
1. Center：设置图片是否位于组件的中间位置
2. Picture：调入图像文件
• LoadFromFlie:从磁盘目录打开图片文件
4. 在窗体上，设计出如下图所示的程序界面；
2020/12/10
2
简单图像浏览器界面设计
SpeedButton快捷 按钮（Additional）
ToolBar工具栏 组件（Win32）
OpenDialog和SaveDialog 对话框（Dialog）
Image图像组件 （ Additional ）
2020/12/10
Jpeg文件 (*.Jpeg)|*. Jpeg 11
实验设计和实现
1. 为了使得窗口一打开，图像处于窗体的中间，可在窗体的OnShow响应 事件过程中，编写代码：
2. 思考：当窗体的大小发生变化时（如最大化）如何使得图像仍然出于窗 体客户
3.
区的中间位置呢？
2020/12/10
简单图像浏览器的设计与实现
2020/12/10
1
实验设计和步骤
1. 运行Delphi7，利用File菜单下的“New－ Application”新建一个工程；
2. 在D盘下新建一个文件夹（以自己名字命名），把 工程文件 以“ImagesView.dpr”为文件名保存到该 文件夹中；
3. 把单元文件以“ImagesViewSource_Unit.pas”为文 件名也保存到该文件夹中；
主要属性：
1. Flat：flat属性为True时，按钮显示效果类似 WinXP风格鼠标放在按钮上方才会显示出按钮 边框 ;当flat属性为False时，按钮一直显示边框。
2. Glyph:设置上要显示的BMP小图片。
2020/12/10
5
实验设计和步骤
操作：按照下面图示的方法，为各按钮添加图片。
1.
方法：双击按钮，在按钮的OnClick响应事件过程中，编写代码：
2020/12/10
15
PPT教学课件
谢谢观看
Thank You For Watching
16
Panel面板组件 （Standard）
2020/12/10
3
实验设计和步骤
5. TToolBar工具栏组件位于组件面板的Win32选项 卡上可以实现工具栏的功能。
• 操作：从面板上拖放一个组件放到窗体上即可。
2020/12/10
4
实验设计和步骤
6. TSpeedButton快捷按钮组件位于组件面板的 Additional选项卡上，按钮可显示小图片和文字。
2020/12/10
10
实验设计和步骤
10. TSaveDialog保存文件对话框
主要属性
➢ ➢ ➢
操作
：用户指定存放文件的文件名和路径信息 Filter:文件类型过滤器，用来设置保存成哪类型的文件 Execute方法：打开对话框，如果用户选择“保存”按钮 则返回true，否则返回false;
➢ Filter属性添加2个：BMP文件 (*.Bmp)|*.Bmp
12
实验设计和实现
2. 快捷按钮 的功能实现：
3.
方法：双击按钮，在按钮的OnClick响应事件过程中，编写代码：
2020/12/10
13
实验设计和实现
3. 快捷按钮 的功能实现：
1.
方法：双击按钮，在按钮的OnClick响应事件过程中，编写代码：
2020/12/10
14
实验设计和实现
4. 快捷按钮 的功能实现：
可以在对话框中显示。 ➢ Execute方法：打开对话框，如果用户选择“打开”按钮
则返回true，否则返回false;
2020/12/10
9
实验设计和步骤
操 作： 把一个OpenDialog打开文件对话框组件放到窗体上，并在 对象观察器里设置它的属性： ➢ Filter属性:文件类型过滤器，用来设置哪些类型的文件 可以在对话框中显示。 添加2个：BMP文件 (*.Bmp)|*.Bmp Jpeg文件 (*.Jpeg)|*. Jpeg
2020/12/10
6
实验设计和步骤
7. Panel容器面板组件位于组件面板的Standard选项卡上 相当于一个容器，设计界面经常用。
• 主要属性：
1. Align：设置组件在窗体中的排列方式
2. BevelInner和BevelOuter：设置组件内、外边框斜面
• 操 作：从面板上拖放一个组件放到窗体上，设置 Align 为alClient。 BevelInner和BevelOuter属性均为：