【图像处理高级编程】-Listbox中显示位图

最新推荐文章于 2026-06-22 16:20:53 发布

原创

最新推荐文章于 2026-06-22 16:20:53 发布 · 764 阅读

收录于

当前文章被以下社区和专栏收录：

本文介绍了如何在DELPHI的Listbox组件中显示位图，并提供了核心源码实现。通过ListBox1DrawItem和ListBox1MeasureItem事件处理函数，实现了位图的绘制和文字居中对齐。

文章目录

- Listbox中显示位图
- 核心源码

Listbox中显示位图

提示：这里可以添加技术概要

在这里插入图片描述

核心源码

procedure CenterText(Cnv: TCanvas; Rect: TRect; S: string);
var
X, Y: Integer;
begin
X := (Rect.Right + Rect.Left - Cnv.TextWidth(S)) div 2;
Y := (Rect.Bottom + Rect.Top - Cnv.TextHeight(S)) div 2;
Cnv.TextOut(X, Y, S);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with ListBox1.Items do
begin
Clear;
ListBox1.Style := lbOwnerDrawVariable;
AddObject(‘Bitmap1’, Image1.Picture.Bitmap);
Self.DoubleBuffered := true;
end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
Bitmap: TBitmap;
begin
with ListBox1 do
begin
Canvas.FillRect(Rect);
if Items.Objects[Index] <>