zoukankan      html  css  js  c++  java
  • 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:=1;
                     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:=14;
                     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[0].Bitmap)
                     else
                     item.Icon.Assign(Image1.MultiResBitmap.Items[1].Bitmap);
                     ListBoxPatient.AddObject(item);
                     Next;
                 end;
             finally
              EnableControls;
             end;
        end;
  • 相关阅读:
    Redis来啦~~
    高性能mysql——高性能索引策略
    LeetCode 刷题笔记 (树)
    Java 多线程高并发编程 笔记(二)
    Java 多线程高并发编程 笔记(一)
    SVM支持向量机
    决策树
    梯度下降&随机梯度下降&批梯度下降
    统计学习方法读书笔记(1)
    HiBench学习笔记
  • 原文地址:https://www.cnblogs.com/nywh2008/p/3345721.html
Copyright © 2011-2022 走看看