滚动条问题(100分)

  • 主题发起人 主题发起人 试验
  • 开始时间 开始时间

试验

Unregistered / Unconfirmed
GUEST, unregistred user!
1。如何取得滚动条可视范围的大小?
GetScrollRange(listview1.handle,SB_VERT,Min,MaxPos);
返回值MaxPos为全部范围?!
2。ListView中SubItem当显示不下是显示“……”,可有办法
直接截去(能显是多少就多少)
3。如果您知道请马上回答,我正在屏幕前等着给您加分呢!
 
五分钟过去了……
 
35分钟过去了……
 
1.用ListView1.VisibleRowCount行不行?
2.把ListView的OwnerDraw设为True,在OnDrawItem里——
procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
I: Integer;
R: TRect;
begin
with ListView1, ListView1.Canvas do begin
FillRect(Rect);
R := Rect;
R.Right := Columns[0].Width;
TextRect(R, R.Left + 2, R.Top + 2, Item.Caption);
for I := 0 to Item.SubItems.Count - 1 do begin
OffSetRect(R, Columns.Width, 0);
R.Right := R.Left + Columns[I + 1].Width;
TextRect(R, R.Left + 2, R.Top, Item.SubItems);
end;
end;
end;
 
接受答案了.
 
后退
顶部