知识大全 Delphi字符串列表及应用（四）

Posted 2022-07-22 项目

篇首语：喜欢读书，就等于把生活中寂寞的辰光换成巨大享受的时刻。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi字符串列表及应用（四）相关的知识，希望对你有一定的参考价值。

Delphi字符串列表及应用（四） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　把图像加入字符串列表　

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

　　procedure TForm FormCreate(Sender: TObject);　　var　　Bitmap: TBitMap;　　begin　　Listbox Items := Screen Fonts;　　Bitmap := TBitmap Create;　　Bitmap LoadFromFile( PHONE BMP );　　Tabset Tabs AddObject( phone Bitmap);　　Bitmap := TBitmap Create;　　Bitmap LoadFromFile( PRINTER BMP );　　Tabset Tabs AddObject( printer Bitmap);　　end;　　　绘制自画项目　

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

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

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

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

　　OnMeasureItem的声明如下

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

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

　　procedure TForm ListBox MeasureItem(Control: inControl; Index: Integer;　　var Height: Integer);　　begin　　with ListBox Canvas do　　begin　　Font Name := ListBox Items[Index];　　Height := TextHeight( A );　　end;　　end;　　　procedure TForm TabSetMeasureTab(Sender: TObject; Index: Integer;　　var TabWidth: Integer);　　var　　BitmapWidth: Integer;　　begin　　BitmapWidth := TBitmap( TabSet Tabs Objects[Index]) Width;　　Inc(TabWidth + BitmapWidth);　　end;

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

　　OnMeasureItem的声明如下

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

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

　　Index　是项目的索引号

　　Rect　是绘制的矩形

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

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

cha138/Article/program/Delphi/201311/24764