Delphi XE 5 中 TListBox的OnMeasureItem 中 改变高度Height 运行结果还是设定的ItemHeight,高分求解决
代码如下:procedureTForm1.provMeasureItem(Control:TWinControl;Index:Integer;varHeight:Inte...
代码如下:
procedure TForm1.provMeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
if Index mod 2=0 then height:=36 else height:=24;
end;
希望做一个Listbox,偶数行的高度大一些,奇数行的高度小一些
已选lbOwnerDrawVariable
设定初始ItemHeight为10
运行结果如下:
显然这是每一个都是初始设定的ItemHeight=10
难道OnMeasureItem事件没有发挥作用?还是我哪里写错?求解答
另外我在Delphi 7 上做过同样的尝试也是得到同样的错误结果
解决再追加20!!!
这个磨了我很久!!!!5个小时!!!!!!求速度解答!!!!!!!!
另外怎么设定某一个Item的背景色,比如选中的那个Item背景色变红色,其他背景还是白色的?这个再加15分!!!!!!!!!
或者选中的那个很丑的蓝色可以改成其他颜色么??
再不行有谁直接提供一个美化的ListBox组件????要Delphi XE 5 的就是****190.bpl版本
我就是想改掉TListBox原本很丑的面貌!!!!!ScrollBar也是!!!!!!选中框也是!!!!!!太难看了!!!!我要美化!!!!!!不过上面OnMeasureItem的问题一定要解决!!!!!!心都不安稳了,整个人都不好了 展开
procedure TForm1.provMeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
if Index mod 2=0 then height:=36 else height:=24;
end;
希望做一个Listbox,偶数行的高度大一些,奇数行的高度小一些
已选lbOwnerDrawVariable
设定初始ItemHeight为10
运行结果如下:
显然这是每一个都是初始设定的ItemHeight=10
难道OnMeasureItem事件没有发挥作用?还是我哪里写错?求解答
另外我在Delphi 7 上做过同样的尝试也是得到同样的错误结果
解决再追加20!!!
这个磨了我很久!!!!5个小时!!!!!!求速度解答!!!!!!!!
另外怎么设定某一个Item的背景色,比如选中的那个Item背景色变红色,其他背景还是白色的?这个再加15分!!!!!!!!!
或者选中的那个很丑的蓝色可以改成其他颜色么??
再不行有谁直接提供一个美化的ListBox组件????要Delphi XE 5 的就是****190.bpl版本
我就是想改掉TListBox原本很丑的面貌!!!!!ScrollBar也是!!!!!!选中框也是!!!!!!太难看了!!!!我要美化!!!!!!不过上面OnMeasureItem的问题一定要解决!!!!!!心都不安稳了,整个人都不好了 展开
1个回答
展开全部
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
ListBox1.Style := lbOwnerDrawVariable;
for I := 1 to 50 do
ListBox1.Items.Add(Format('Item %d', [I]));
end;
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
if Index mod 2 = 0 then
Height := 36
else
Height := 24;
end;
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
R: TRect;
begin
with ListBox1.Canvas do
begin
// 背景色
if State * [odSelected, odFocused] <> [] then
Brush.Color := clRed
else
Brush.Color := ListBox1.Color;
FillRect(Rect);
// 文字
if State * [odSelected, odFocused] <> [] then
Brush.Color := clHighlightText
else
Brush.Color := ListBox1.Font.Color;
R := Rect;
InflateRect(R, -4, 0);
SetBkMode(Handle, TRANSPARENT);
DrawText(Handle, ListBox1.Items[Index], -1, R,
DT_SINGLELINE or DT_VCENTER);
// 如果有焦点,则再绘制一次焦点框,达到擦除的目的
if odFocused in State then
DrawFocusRect(Rect);
end;
end;
更多追问追答
追问
早已设置,不过是lbOwnerDrawVariable吧,还是不行
追答
刚贴了代码和截图,你拿回去试试看
威孚半导体技术
2024-08-19 广告
2024-08-19 广告
威孚(苏州)半导体技术有限公司是一家专注生产、研发、销售晶圆传输设备整机模块(EFEM/SORTER)及核心零部件的高科技半导体公司。公司核心团队均拥有多年半导体行业从业经验,其中技术团队成员博士、硕士学历占比80%以上,依托丰富的软件底层...
点击进入详情页
本回答由威孚半导体技术提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询