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的问题一定要解决!!!!!!心都不安稳了,整个人都不好了
展开
 我来答
Sephil
推荐于2016-12-04 · 知道合伙人IT服务行家
Sephil
知道合伙人IT服务行家
采纳数:616 获赞数:1036
熟悉常用语言和数据库,爱写代码

向TA提问 私信TA
展开全部

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 广告
威孚(苏州)半导体技术有限公司是一家专注生产、研发、销售晶圆传输设备整机模块(EFEM/SORTER)及核心零部件的高科技半导体公司。公司核心团队均拥有多年半导体行业从业经验,其中技术团队成员博士、硕士学历占比80%以上,依托丰富的软件底层... 点击进入详情页
本回答由威孚半导体技术提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式