lovelymelon-CSDN博客

原创 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 1861

原创 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 904

原创 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 478

原创 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 1330

原创 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 413

天气预报在线查询系统

在线查询全国主要城市未来7天的天气预报。

2010-07-20

列车时刻表在线查询系统

通过出发站-到达站在线查询火车车次，列车类型，里程，用时，出发时间和到达时间等信息，选择车次后，按照站次顺序列出本次列车所有站名，到达时间，开车时间，里程，票价等详细信息

2010-04-02

IP、DNS一键修改

一键修改IP、DNS、网管、子网掩码等信息。方便经常在多网段或不同地点上网。

2010-04-02

delphi操作Aceess数据库的相关知识

2009-02-27

小写金额转换成大写金额源代码

将输入的小写金额自动转换成财务所需的大写金额

2009-02-27

乘法口诀背诵小帮手（为小朋友制作的一个有趣的乘法口诀测试小软件）

为小朋友制作的一个有趣的乘法口诀测试小软件，随机抽取口诀，并要求随机填写乘数、被乘数或积，高分有奖励奥。

2009-02-25

班级成绩统计软件（生成Excel报表，得出各分数段人数和百分比，计算平均成绩）

为高校教师制作的一个简单的班级成绩上报统计系统，可以按照学号顺序录入平时成绩和考试成绩，根据系数计算出总评成绩，生成Excel报表，并能够统计出各分数段的人数、百分比和班级平均成绩（上传的软件可能只能试用3次，如果想继续使用，可以申请注册号，邮箱：[email protected]）

2009-02-24

隐藏指定程序或界面的小软件

以前写的一个小程序，可以注册系统快捷键，并通过该快捷键隐藏指定程序或界面。使用说明：每个窗口在任务栏中都有标题，将标题中部分连续内容添加到软件中，通过快捷键就可以隐藏或重现窗口。如：游戏“英雄无敌”在任务栏中的标题内容为“Heroes of Might and Magic III”，只要输入其中任意一部分内容例如“Heroes”，通过快捷键即可以隐藏或重现其窗口，隐藏时，任务栏中不会有此标题，alt+table切换时，也不会出现此窗口该程序已经更新，但不知道如何在csdn中更新，如果有需要的，可以直接E-mail联系，E-mail：[email protected]。

2009-02-23

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人