代码如下:
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的问题一定要解决!!!!!!心都不安稳了,整个人都不好了
æ©å·²è®¾ç½®ï¼ä¸è¿æ¯lbOwnerDrawVariableå§ï¼è¿æ¯ä¸è¡
追çåè´´äºä»£ç åæªå¾ï¼ä½ æ¿åå»è¯è¯ç
追é®åé®ä¸ä¸ï¼æ»å¨æ¡å¦ä½ç¾åï¼
追çæ»å¨æ¡æ²¡é£ä¹å®¹æï¼è¦HookAPI
追é®è¯è¿äºï¼è¿æ¯ä¸è¡ï¼æ°å»ºä¸ä¸ªæ件就å¯ä»¥ãããçæ¥æç¨åºæ个å°æ¹æé®é¢
formcreateæè¿å¥self.prov.Style:=lbOwnerDrawVariable;
å
ä¸è°drawitem
è¿ä¸¤ä¸ªæ¯å®å
¨ä¸æ ·çï¼ä½æ¯å°±æ¯ä¸è¡ï¼ä½ ç¥éåªéæé®é¢ä¹
è¿åºæ¬ä¸å¤§å¯è½ï¼é¤éä½ å ¶ä»å°æ¹ä¿®æ¹äºStyleå±æ§æMeasureItemäºä»¶
追é®è·è¸ªåç°ProvMeasureItem没æ被æ§è¡ï¼ä½æ¯DrawItemæ§è¡äºï¼å¯è½æ¯ä»ä¹åå å¢
追çççä½ çListBoxçOnMeasureItemäºä»¶æ¯å¦æ£ç¡®ææ¥å°äºProvMeasureItemä¸