摘要:
xpmenu是大名鼎鼎的dephi第三方界面控件,最近在使用中发现了几个bug,并对其中的两个进行修正。1、首先,是绘制菜单和工具栏图标时,会将图像白色部分作为透明色,导致图像缺损非常难看,如下图所示: 查看xpmenu的源代码,图标是通过txpmenu.drawicon函数绘制的,函数内计算了图标显示的位置、调用graybitmap、dimbitmap、drawbitmapshado......
摘要:
可视化控件(visual component)实际上就是一个类(class),要编写一个类,可以直接在*.pas文件中编写。但是要编写控件,则必须使用包(package)。从file菜单中选择new,新建一个package,这就是存放和安装控件用的包。然后单击package窗口中的add按钮,添加一个元件(unit)。
在弹出的对话框最上方选择new component。因为一个控件的所......
delphi实现批量缩略图生成工具开发代码
主要功能:
【程序编程相关:
将应用程序11M内存占用,降至500K!】
1 生成指定图片的缩略图 【推荐阅读:NT服务程序中对注册表中HKey_Cur】
【扩展信息:
如何在delphi下和.net建立的we】2 批量生成某一目录内所有图片缩略图3 提供5中缩略图尺寸定义模式 4 目前只支持.jpg格式 测试版下载:http://image.myfaq.com.cn/files/20041220/13065.rar 核心代码: //保存jpeg的缩略图 procedure savepic(sourcefilename,descfilename: string); const maxwidth = 200 ; maxhigth = 200 ; var jpg: tjpegimage; bmp: tbitmap; sourcejpg: tjpegimage; width, height,tmpint: integer; begin try bmp := tbitmap.create; ...
下一页 摘要:
function getkbstatus():string;//返回当前键盘状态,包括numloce、caps lock、insert//每个状态信息占两个字符,顺序为:numloce、caps lock、insert//copy right 549@11:29 2003-7-22var status:string; keystates:tkeyboardst......