第三章-字符串列表及应用（二）（2）

第三章-字符串列表及应用（二）（2）2007-05-083.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;

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）;

其中Control是包含项目的部件引用

Index 是项目的索引号

Rect 是绘制的矩形

State 是项目的状态，如选中，得到焦点等。

在例程的列表框中，所列项目是屏幕支持的各种字体名称，当列表框发生OnDrawItem事件时，程序把输出字体设置成该项目所代表的字体，因而列表框的项目呈现出不同的字体，其代码如下：

procedure TForm1.DrawItem（Control: TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState）;

begin

with ListBox1.Canvas do

begin

FillRect（Rect）;

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

TextOut（Rect.Left, Rect.Top, ListBox1.Items[Index]）;

end;

在Tabset部件中，则把位图与文本同时输出，其代码如下：

procedure TForm1.TabSet1DrawTab（Sender: TObject; TabCanvas: TCanvas;

R: TRect; Index: Integer; Selected: Boolean）;

var

Bitmap: TBitmap;

begin

Bitmap := TBitmap（TabSet1.Tabs.Objects[Index]）;

with TabCanvas do

begin

Draw（R.Left, R.Top + 4, Bitmap）;

TextOut（R.Left + 2 + Bitmap.Width,

R.Top + 2, TabSet1.Tabs[Index]）;

end;