delphi xe5 android listbox的 TMetropolisUIListBoxItem
listbox实现以下效果:
\
关键代码,采用数据集的方式
type
PpatientData=^RpatientData;
RpatientData= record
patient_id:string;
admiss_times:Integer;
inpatient_no:string;
name:string;
sex:string;
bed_no:string;
nurse_level:string;
diag:string;
end; var
item:TMetropolisUIListBoxItem;
p:PpatientData;
begin
with cdspatientlist do
begin
DisableControls;
try
First;
while not Eof do
begin
New(p);
p.patient_id:=FieldByName('inpatient_no').AsString;
p.admiss_times:=;
p.inpatient_no:=FieldByName('inpatient_no').AsString;
p.bed_no:=FieldByName('inpatient_no').AsString+'床';
p.nurse_level:=FieldByName('nurse_level').AsString;
p.diag:=FieldByName('diag').AsString;
p.name:= FieldByName('name').AsString;
p.sex:=FieldByName('sex').AsString;
item:=TMetropolisUIListBoxItem.Create(ListBoxPatient);
item.Font.Size:=;
item.Title:='姓名:'+p.name+'-'+' 性别:'+p.sex;
item.SubTitle:=p.bed_no+' 护理:'+p.nurse_level;
item.Description:='诊断:'+p.diag ;
if p.sex='女' then
item.Icon.Assign(Image1.MultiResBitmap.Items[].Bitmap)
else
item.Icon.Assign(Image1.MultiResBitmap.Items[].Bitmap);
ListBoxPatient.AddObject(item);
Next;
end;
finally
EnableControls;
end;
end;
delphi xe5 android listbox的 TMetropolisUIListBoxItem的更多相关文章
- xe5 android listbox的 TMetropolisUIListBoxItem
listbox实现以下效果: 关键代码,采用数据集的方式 type PpatientData=^RpatientData; RpatientData= record patient_id:string ...
- delphi xe5 android iny绿色版+最新SDK/NDK安装方法
转自: http://bbs.2ccc.com/topic.asp?topicid=438595 首先感谢iny的绿色版,因为我的精简Win7 32位安装原版镜像4.63G过程正常,但是编译出错,后来 ...
- delphi xe5 android 调用照相机获取拍的照片
本篇文章我们来看一下delphi xe5 在android程序里怎样启动照相机并获取所拍的照片,本代码取自xe自带打sample,路径为: C:\Users\Public\Documents\RAD ...
- Delphi XE5 Android 调用 Google ZXing
{ Google ZXing Call demo Delphi Version: Delphi XE5 Version 19.0.13476.4176 By: flcop(zylove619@hotm ...
- Delphi XE5 Android 运行黑屏卡死的解决方法
1. 确保正确安装Android SDK: 开始菜单 > 所有程序 > Embarcadero RAD Studio XE5 > > Android Tools > 打开 ...
- delphi xe5 android 服务端和手机端的源码下载
xe5 android的服务端和手机客户端的源代码下载地址 http://files.cnblogs.com/nywh2008/AndroidTest.rar
- delphi xe5 android tts(Text To Speech)
TTS是Text To Speech的缩写,即“从文本到语音”,是人机对话的一部分,让机器能够说话. 以下代码实现xe5 开发的文本转语音的方法 和访问蓝牙一样,这里用javaclass的接口实现 接 ...
- delphi xe5 android 关于文件大小的几个问答O(∩_∩)O~
摘自:http://blogs.embarcadero.com/vsevolodleonov/2013/09/19/are-you-asking-about-app-size-by-delphi-fo ...
- delphi xe5 android 开发实现手机打电话和发短信
转载自 http://www.raysoftware.cn/ 其实都可以通过intent和URI调用系统功能.Windows程序员可以理解成是ShellExecute.这个是万金油.可以有调用各种功 ...
随机推荐
- bootstrap在iis中发布后无法看到图标,字体样式
因为框架使用了字体文件来显示矢量的图标,为了能在IIS上正常显示图标,可以通过增加iis的MIME-TYPE来支持图标字体文件:
- We~ˇsay~~ˇ
拂弹每一个音符 与心相印 行走每一段风景 和路缠绵 花开的声音 只能用心倾听 无论曾经如何艰难 我依然在最初的起点 默念歌唱 等你 携手
- 【转】MyBatis学习总结(二)——使用MyBatis对表执行CRUD操作
[转]MyBatis学习总结(二)——使用MyBatis对表执行CRUD操作 上一篇博文MyBatis学习总结(一)——MyBatis快速入门中我们讲了如何使用Mybatis查询users表中的数据, ...
- ASP保存远程图片文件到本地代码
<% Function SaveRemoteFile(LocalFileName,RemoteFileUrl) SaveRemoteFile=True dim Ads,Retrieval,Get ...
- 对象创建型模式------Abstract Factory(抽象工厂)
1. 意图 提供一个创建一系列相关或相互依赖对象的接口,而无需指定它们具体的类.2. 别名 Kit3. 动机 假设我们要开发一款游戏,当然为了吸引更多的人玩,游戏难度不能太大 ...
- JS基本类型和引用类型的值
JS中可以把变量分成两部分,基本类型和引用类型. 基本类型比较简单,包括:Undefined.Null.Boolean.Number和String,基本类型值就是简单的数据段:引用类型值可能由多个值构 ...
- Hibernate3.3 小记
//----------------事务(修改.删除.保存) Session s=getSession(); Transaction t=s.beginTransaction(); getSessio ...
- SQLite学习第03天:环境搭建
相比于其他数据库而言,SQLite的环境搭建十分简单,简单几步就可以完成: (1) 首先,从http://www.sqlite.org/download.html的网站上下载预编译的shell二进制文 ...
- sharepoint 2013 suitbar
参考链接:http://academy.bindtuning.com/customize-sharepoint-2013-and-office-365-suite-bar/
- python正则实例
# -*- coding: cp936 -*-import reidcardregex=r"^[1-9]\d{14}(\d{2}[0-9x])?$"print re.search( ...