关于TlistView的两个问题

發文回覆瀏覽次數：1256

推到 Plurk!

推到 Facebook!

尚未結案

huhuc
一般會員

發表：2
回覆：0
積分：0
註冊：2007-01-15

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-10-25 23:27:01

IP:220.166.xxx.xxx 訂閱

TlistView在Report视图的时候两个问题，
1】.我想在某些行显示checkbox，某些行不显示。
2】我想缩进某些行
用的这个办法
[code delphi]
procedure TfmMain.lvCustomDrawItem(Sender:TCustomListView;
Item:TListItem;State:TCustomDrawState;var DefaultDraw:Boolean);
begin
if PChar(Item.Data)='RunType' then
begin
Sender.Canvas.Brush.Color:=clBtnFace;
SetWindowOrgEx(Sender.Canvas.Handle,18,0,nil);
end
else
SetWindowOrgEx(Sender.Canvas.Handle,-16,0,nil); //*
end;

[/code]
但是*行控制的行的字体改变了。
为什么？

系統時間：2024-05-07 0:03:43

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！