With Fruits do Objects[Indexof('apple')]:=AppleBitmap;　

另一种方法是调用列表的AddObject方法，AddObject有两个参数：字符串和对象，如下：　

　　Fruits AddObject('Apple',AppleBitmap);　

3.2 字符串列表应用　

          Delphi应用程序经常要用到字符串列表，我们编写的strlist. dpr是应用字符串列表的简单程序。程序运行状态如图3.2所示。列表框列出了屏幕支持的各种字体名称，并且以名称所代表的字体显示在列表中；Tabs的标签不只以字符串来表示，而且附有位图。这就是所谓的自画式控制。下面介绍字符串列表在自画式控制中的应用。

         列表框、组合框、Tabset部件中有一个叫“自画(Ownerdraw)”的风格，它能替代Windows的文本输出，部件的自画式控制在运行状态对每个项目进行重新绘制。最常用的是用图像代替文本输出。

　　自画式控制有一个共同特点：它们都包含有项目列表，缺省情况下这些列表就是字符串列表，Windows把它们当成文本显示。Delphi可以把字符串列表与某一对象相联系，这就使得应用程序能用对象来绘制项目。

　　通常，创建自画式控制有以下三个步骤：

　　1. 设置自画风格；

　　2. 把图像对象加入字符串列表中；

　　3. 绘制自画项目。　

3.2.1 设置自画风格　

　　每个能进行自画式控制的部件都有一个叫Style的属性，Style决定部件是以缺省方式还是以自画方式绘制项目。

　　对于列表框和组合框，也有自画式风格选项，表3.2列出了Style的取值及含义。　

表3.2 Style的取值及含义

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　

　Style              含　　义　　　　　　　　 举　　　例

─────────────────────────────────

　

　Fixed          每个项目有相同的高度 　　   1bOwnerDrawFixed

　

　　　　　　　 高度由ItenHeight属性决定　　 csOwnerDrawFixed

Varible          每个项目有不同的高度 　　　 1bOwnweDrawVarible

　

　　　　　　　 由运行数据决定　　                    csOwnerDrawVarible

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　

　　tab-set与字符串网格的Style属性通常是Varible.

在Strlist程序中，列表框与tab-set取值如表3.3：　

表3.3 列表框与tab-set的取值

━━━━━━━━━━━━━━━━━━━━━━━━━━

　　　　名称　　　　　　　　　style

──────────────────────────

ListBox1                              lbOwnerDrawVariable

Tabset1                                tsOwnerDrawVariable

━━━━━━━━━━━━━━━━━━━━━━━━━━━

3.2.2 把图像加入字符串列表　

　　上节已介绍如何把对象加入字符串列表，例程把位图对象加入Tabset1的Tabs中：　

procedure TForm1.FormCreate(Sender: TObject);

var

Bitmap: TBitMap;

begin

Listbox1.Items := Screen.Fonts;

Bitmap := TBitmap.Create;

Bitmap.LoadFromFile('PHONE.BMP');

Tabset1.Tabs.AddObject('phone',Bitmap);

Bitmap := TBitmap.Create;

Bitmap.LoadFromFile('PRINTER.BMP');

Tabset1.Tabs.AddObject('printer ',Bitmap);

end;　

3.2.3 绘制自画项目　

　　当部件的Style属性是自画式时，Windows不再绘制部件，相反Windows为每个可视项目产生事件，而应用程序必须在事件中绘制项目。

　　在应用程序绘制自画控制之前，Windows产生测量项目事件，这个事件告诉程序项目显示的位置 。

　　通常由Windows决定项目显示的大小，但应用程序可以处理这个事件并自己选择显示区域。例如，程序要用位图代替文本显示，则需要把区域设置成位图的大小。测量项目事件的名称随部件的名称不同而不同，对于列表框和组合框，该事件叫OnMeasureItem。对于Tabset，该事件叫OnMeasureTab。

　　测量项目事件有两个重要参数: 项目索引号与项目的大小。这个大小是变化的。后继项目的输出位置由前面项目的大小决定。例如，在自画式列表框中，如果应用程序把第一个项目的高度设置成5个象素点，则第二个项目在第六个象素点开始输出。列表框和组合框中，应用程序只能设置成项目的高度，而项目的宽度就是部件的高度。在Tabset中，tabs的宽度是可变的，而高度则是固定的。自画式网格允许应用程序改变网格单元的高度和宽度。

　　OnMeasureItem的声明如下：

ListBox1 MeasureItem(Control: TwinControl;Index: Integer; var Height: Integer);

　　例程中响应OnMeasureItem事件的代码如下: 　

procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;

var Height: Integer);

begin

with ListBox1.Canvas do

begin

Font.Name := ListBox1.Items[Index];

Height := TextHeight('A');

end;

end;　

procedure TForm1.TabSetMeasureTab(Sender: TObject; Index: Integer;

var TabWidth: Integer);

var

BitmapWidth: Integer;

begin

BitmapWidth := TBitmap( TabSet1.Tabs.Objects[Index]).Width;

Inc(TabWidth, 2 + BitmapWidth);

end;　

　在OnMeasureItem事件发生后，Windows激发一个叫OnDrawItem的事件，这个事件也随部件名称不同而不同，常见的有OnDrawItem、OnDrawTab、OnDrawCell。

　　OnMeasureItem的声明如下：

　　DrawItem( Control: TWinControl; Index: integer; Rect: TRect; State: TOwnerDraw);