TImageList 和 TlistView 组件(C++Builder)

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    //加载图标到Imagelist
    Graphics::TBitmap *bmpPicture = NULL;
    bmpPicture = new Graphics::TBitmap;
    bmpPicture->LoadFromFile(L"File001.bmp");
    ImageList1->Add(bmpPicture,bmpPicture);

    bmpPicture = new Graphics::TBitmap;
    bmpPicture->LoadFromFile(L"File002.bmp");
    ImageList1->Add(bmpPicture,bmpPicture);

    bmpPicture = new Graphics::TBitmap;
    bmpPicture->LoadFromFile(L"File003.bmp");
    ImageList1->Add(bmpPicture,bmpPicture);

    bmpPicture = new Graphics::TBitmap;
    bmpPicture->LoadFromFile(L"File004.bmp");
    ImageList1->Add(bmpPicture,bmpPicture);

    bmpPicture = new Graphics::TBitmap;
    bmpPicture->LoadFromFile(L"File005.bmp");
    ImageList1->Add(bmpPicture,bmpPicture);

    bmpPicture = new Graphics::TBitmap;
    bmpPicture->LoadFromFile(L"File006.bmp");
    ImageList1->Add(bmpPicture,bmpPicture);

    TListColumn *ListColumn;
    TListItem *ListItem;
    ListView1->Width =  504;
    //建立表头信息
    ListColumn = ListView1->Columns->Add();
    ListColumn->Caption = "姓名";
    ListColumn->Width = 100;

    ListColumn = ListView1->Columns->Add();
    ListColumn->Caption = "性别";
    ListColumn->Width = 100;

    ListColumn = ListView1->Columns->Add();
    ListColumn->Caption = "年龄";
    ListColumn->Width = 100;

    ListColumn = ListView1->Columns->Add();
    ListColumn->Caption = "出生年月";
    ListColumn->Width = 100;

    ListColumn = ListView1->Columns->Add();
    ListColumn->Caption = "联系方式";
    ListColumn->Width = 100;

    const char *sex[4]={"男","女"};
    //添加信息
    ListItem = ListView1->Items->Add();
    ListItem->Caption = "李明";
    ListItem->ImageIndex = 0;
    ListItem->SubItems->Add(sex[0]);
    ListItem->SubItems->Add("23");
    ListItem->SubItems->Add("1993-04-11");
    ListItem->SubItems->Add("13435987873");

    ListItem = ListView1->Items->Add();
    ListItem->Caption = "张静";
    ListItem->ImageIndex = 1;
    ListItem->SubItems->Add(sex[1]);
    ListItem->SubItems->Add("21");
    ListItem->SubItems->Add("1991-06-71");
    ListItem->SubItems->Add("12345666434");

    ListItem = ListView1->Items->Add();
    ListItem->Caption = "王红";
    ListItem->ImageIndex = 2;
    ListItem->SubItems->Add(sex[1]);
    ListItem->SubItems->Add("23");
    ListItem->SubItems->Add("1995-01-10");
    ListItem->SubItems->Add("13655941178");

    ListItem = ListView1->Items->Add();
    ListItem->Caption = "孙智铭";
    ListItem->ImageIndex = 3;
    ListItem->SubItems->Add(sex[0]);
    ListItem->SubItems->Add("24");
    ListItem->SubItems->Add("1991-06-11");
    ListItem->SubItems->Add("13859878172");

    ListItem = ListView1->Items->Add();
    ListItem->Caption = "林夕";
    ListItem->ImageIndex = 4;
    ListItem->SubItems->Add(sex[0]);
    ListItem->SubItems->Add("20");
    ListItem->SubItems->Add("1992-02-21");
    ListItem->SubItems->Add("13882123378");

    ListView1->ViewStyle = vsReport;
    //ListView1->ViewStyle = vsIcon;
    //ListView1->ViewStyle = vsList;
    //ListView1->ViewStyle = vsSmallIcon;
    ListView1->LargeImages = ImageList1;
    ListView1->SmallImages = ImageList1;
}

效果图:

ViewStyle属性改成csIcon的效果:

时间: 2024-10-14 14:08:38

TImageList 和 TlistView 组件(C++Builder)的相关文章

[转]Delphi 常用控件之TlistView总结

TlistView组件功能: (1) TListView 控件可以用来显示各项带图标的列表,包括大图标和小图标的:也可以用来显示带有子项的列表,Windows操作系统的资源管理器中文件夹窗口就是最好的应用例子,就是我们打开"我的电脑"后能够看到各个盘符的界面 ( 2) TListView控件基本能实现和DBGrid控件一样的功能,很多时候根据程序需要可以完全用TListView来替换DBGrid:只要将TListView的ViewStyle属性设为vsReport,然后再配合其他几个属

Autofac怎样注册组件(Registering Components)

在上篇Autofac基本使用步骤中,我们知道Autofac通过创建一个ContainerBuilder对象来注册组件,这个builder是通过服务来暴露组件,后续我们只需要知道服务即可,得到具体组件实例. 在Autofac中的术语请点击此链接查看==>术语 什么是组件(components)? 分三类: 1. reflection(.NET 类型, 或者泛型) 2.现成的实例.(我们创建的类型的实例) 3.Lambda表达式(执行对象实例化的匿名函数) Auotfac 为ContainerBui

设计模式:构建器模式(Builder)

构建器模式有点类似于之前的抽象工厂模式,但比抽象工厂模式更强大,构建器模式可以看做由两部分组成,一是builder,二是director,builder的基本思想就是抽象工厂,而director的存在是为了使得对builder的使用更加灵活,下面是builder的代码示例: class A { public: int i; A() : i(1) {}; }; class B { public: char c; B() : c('a') {}; }; class AB { public: A a;

TListView使用方法1(转)

ListView1.Items 为标准 Tlistitems类 ListView1.Items (1)赋值 with ListView1.Items.Add do begin Caption:=caption; //加入第一项 SubItems.add(aaaaa); //加入后面数据 SubItems.add(1234); SubItems.add(1234); end; //一定要使用WITH结构. (2)取值 listview1.Items.Item[i].Caption 取得某条数据标题

delphi 各新版本特性收集

delphi 各新版本特性收集 Delphi XE6新增了一些特性并增强了原有的功能,主要有以下几个方面: IDE(整合开发环境) Internet XML(扩展标记语言) Compiler(编译器) COM/Active X Database support(数据库支持) CORBA Actions(动作) Custom Variants(可定义的可变类型) VCL 单元和特性 RTL单元和特性 Cross-platform development(跨平台开发) Translation too

java/android 设计模式学习笔记(10)---建造者模式

这篇博客我们来介绍一下建造者模式(Builder Pattern),建造者模式又被称为生成器模式,是创造性模式之一,与工厂方法模式和抽象工厂模式不同,后两者的目的是为了实现多态性,而 Builder 模式的目的则是为了将对象的构建与展示分离.Builder 模式是一步一步创建一个复杂对象的创建型模式,它允许用户在不知道内部构建细节的情况下,可以更精细地控制对象的构造流程.一个复杂的对象有大量的组成部分,比如汽车它有车轮.方向盘.发动机.以及各种各样的小零件,要将这些部件装配成一辆汽车,这个装配过

Dagger 2从浅到深(七)

在使用Dagger 2开发时,一般都是在Application中生成一个AppComponent,然后其他的功能模块的Component依赖于AppComponent,作为AppComponent的子组件.可是,对于将自组建添加到父组件有两种方式: 通过@Component的dependencies属性依赖父组件 @Component(modules = OrangeModule.class, dependencies = FruitComponent.class) public interfa

Delphi ListView基本用法大全[delphi]

Delphi ListView基本用法大全 本文出处:http://hi.baidu.com/python120/item/4ea85f61af94e55b6895e6ac //增加项或列(字段) ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:='id';List

【IOS 开发】IOS 开发 简介 (IOS项目文件 | MVC 模式 | 事件响应机制 | Storyboard 控制界面 | 代码控制界面 | Retina 屏幕图片适配)

一. IOS 项目简介 1. IOS 文件简介 创建一个 HelloWorld 项目, 在这个 IOS 项目中有四个目录 : 如下图; -- HelloWorldTests 目录 : 单元测试相关的类和资源; (1) HelloWorld 目录 HelloWorld 目录介绍 : -- 命名规则 : 该目录名称与 IOS 项目名称相同, 是主目录; -- 存放内容 : IOS 项目的 源码文件, 界面设计文件, 资源文件都存放在该目录下; -- 源文件 : Objective C 的 .m 和