简单使用Delphi中的TO-DO List

Delphi是一款强大的编程工具,她的优点不仅仅是提供了一个非常强大的代码编译器,Delphi本身还是一个非常好用的编辑工具。TO-DO List就是一项非常好用的功能。采用她可以让我们很清楚的了解以前完成了那些任务,还有哪些任务需要做,由谁负责完成,是不是比较紧急的任务等。今天来不及完成的,明天上班就可以很快的找到任务所在的位置。

 

打开TODOLIST

点击菜单【View

选择菜单【To-Do List

显示窗口如下:

说明:

Action Item:任务项;

!:                优先级

Module       所属模块

Owner        所有者

Category     种类

 

有数据的时候显示样式为:

右键点击窗口的菜单为

说明:

Ø         Open   打开任务项;

Ø         Add     新增;

Ø         Edit     编辑;

Ø         Delete  删除;

Ø         Sort     分类(子菜单)

1.         Action Item:任务项

2.         Status:状态(已完成或未完成)

3.         Type:类别

4.         Priority:优先权

5.         Module:模块

6.         Owner:所有者

7.         Category:种类

Ø         Filter   过滤器(子菜单)

1.         Categories:按种类

2.         Owners:按所有者

3.         Item Types:按项目类型

Ø         Show Completed Items:显示已经完成的项目;取消则不显示所有已经完成的任务项。

Ø         Show ToolTips when Clipped:显示工具提示;

Ø         Copy As(子菜单)

Text:采用普通文本格式保存到剪贴板中;

HTML Table:采用超文本表格格式,保存到剪贴板中。

Ø         Table Properties:表设置;

Ø         Dockable:允许驻留;

 

如何使用:

双击主窗体,显示代码编辑器为FormCreate事件:

新建

右键菜单Add,或者快捷键:CtrlA,或者Ctrl+Shift+T

显示输入窗体:

输入相关的信息:

l         Text:内容

l         Pripority:优先级(05

l         Owner:所有者

l         Category:分类

其中后两项可以从原有的数据的下拉列表框中选择。按【OK】即新增了一条记录。同时,在代码编辑器中会自动添加对应的注释语句

TODO:表示未完成,如果完成会变成DONE

5:表示该任务的优先级

-o:表示该任务的所有者;

-c:表示该任务的类别:

冒号后面是任务的说明。

修改:

选择邮件菜单【Edit】,或者快捷键F2

方法和新建一样。

打开:

右键菜单【Open】,或者双击任务项。

编辑器的光标将会自动转移到该任务所在的代码位置。

说明:在不同模块中的任务项显示的时候是不同的:

粗体显示的为当前正在编辑模块中的任务项;

细体显示的为其他模块中的任务项;

过滤器:

上图显示的是安任务所有者过滤,只需要将不想显示该所有者的名字前的√取消,按OK返回,在显示列表中就仅仅显示你想要看的所有者的任务项。

状态:(已完成和未完成)

已完成任务,在任务项前面的CheckBox中会显示√,同时任务项的文本会有一条删除线,没有显示的表示为完成。

表格属性设置:

通过这样的方法就可以把,任务项用表格的形式打印出来。

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是使用 Delphi-OpenCV 库在 Delphi XE 将 IplImage 对象转换为Bitmap 对象的详细代码: ```delphiuses OpenCV_Core, OpenCV_ImageProc, // Delphi-OpenCV 库单元 Vcl.Graphics; // VCL 图形单元 function IplImageToBitmap(const Image: pIplImage): TBitmap; var Depth, Channels: Integer; LineSize: Integer; ImageData, SrcLine, DestLine: Pointer; Bitmap: TBitmap; Row, Col: Integer; Data: Byte; begin Depth := Image.depth; Channels := Image.nChannels; LineSize := Image.width * Channels; // 分配 Bitmap 对象 Bitmap := TBitmap.Create; Bitmap.PixelFormat := pf24bit; Bitmap.Width := Image.width; Bitmap.Height := Image.height; // 按行遍历 IplImage 数据并转换为 TBitmap 数据 ImageData := Image.imageData; for Row := 0 to Image.height - 1 do begin SrcLine := ImageData + Row * Image.widthStep; DestLine := Bitmap.ScanLine[Row]; case Depth of IPL_DEPTH_8U: begin for Col := 0 to Image.width - 1 do begin Data := PByte(SrcLine + Col * Channels)^; PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_8S: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PShortInt(SrcLine + Col * Channels)^); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_16U: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PWord(SrcLine + Col * Channels)^ shr 8); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_16S: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PShortInt(SrcLine + Col * Channels)^ shr 8 + 128); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_32S: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PInteger(SrcLine + Col * Channels)^ shr 24); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_32F: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PSingle(SrcLine + Col * Channels)^ * 255); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_64F: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PDouble(SrcLine + Col * Channels)^ * 255); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; end; end; Result := Bitmap; end; ``` 使用方法: ```delphi var Image: pIplImage; Bitmap: TBitmap; begin // 加载图像到 Image 变量 Image := cvLoadImage('image.jpg'); // 将 IplImage 对象转换为 TBitmap 对象 Bitmap := IplImageToBitmap(Image); // 将 TBitmap 对象显示在 TImage 组件上 Image1.Picture.Assign(Bitmap); // 释放 IplImage 对象内存 cvReleaseImage(@Image); end; ``` 需要注意的是,由于 Delphi-OpenCV 库的 IplImage 对象是指针类型的,因此需要传入指针的指针作为参数。在使用完毕后,需要手动释放 IplImage 对象的内存。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值