- 博客(5)
- 资源 (8)
- 收藏
- 关注
原创 listview行背景颜色设置
<br />procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin if item.Selected then (sender as TListView).Canvas.Brush.Color:=clTeal else begin if i
2011-04-07 16:04:00 1900
原创 listview指定列字体设置
<br />procedure Tw_kzqzt.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); begin if SubItem<>3 then Exit; if Item.SubItems[2]='通讯失败' then self.L
2011-04-07 16:02:00 932
原创 listview定位行
<br />var x,y:integer; begin x:=self.listview.items[j].Position.X; y:=self.listview.items[j].Position.Y-18; self.ListView1.Scroll(0,y); end;
2011-04-07 15:57:00 485
原创 SetTextCharacterExtra用法
procedure TForm1.Button1Click(Sender: TObject); var text: string; textsize: SIZE; spacing,i: Integer; rect: TRect; begin text:= 'lovelymelon'; {设置文本间距:(矩形宽度-文本宽度)/文本个数} SetRect(rect, 50, 50, 300, 100); Rectangle(Form1.Canvas.Handl
2011-04-07 15:53:00 1357
原创 listbox相关操作
1.同一行多种字体格式 首先listbox的Style设置为lbOwnerDrawVariable,然后在OnDrwItem中添加如下代码 procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);var s,s1,s2
2009-04-02 16:24:00 426
列车时刻表在线查询系统
2010-04-02
班级成绩统计软件(生成Excel报表,得出各分数段人数和百分比,计算平均成绩)
2009-02-24
隐藏指定程序或界面的小软件
2009-02-23
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人