摘要: 在开发多媒体应用中,经常会遇到需要在有限区域内显示大图像
的情况,有不少文章对此提出过解决方法,如通过调用windows的api函
数,直接读写内存等。这些方法有某些优点,但实现起来较为复杂,且
易出错。笔者在实践中通过仔细摸索,利用delphi的强大的面向对象
可视化开发环境开发了一种交互式图像漫游方法。
delphi中,鼠标的消息响应是通过元件的onmousedown、onmou......
摘要: 使用winamp是有个easymove的功能,也就是不在标题栏上拖动鼠标就能移动窗体,虽然easymove功能很好实现,可还不如做个控件一劳永逸,另外这个控件还有一个更有用的功能,呆会儿就能见到。我们先看看如何实现它吧!
---- 建立一个空的unit,把以下代码copy进去,再把它添加到delphi的控件库里,这样movepanel控件就做好了。
unit movepanel;
i......
用Delphi 3.0编制MP3音乐点歌台上一页 ...
在unit1pas的use语句加入fmxutils,在var部分加入一行:
var filename:string,path;{filename为mp3文件的文件名,path为其路径} 【程序编程相关:
Delphi5的控件升级到Delphi6】 【推荐阅读:
Listview中实现点击栏目标题排序】
然后在form1窗体中,双击zj,加入以下程序: 【扩展信息:
Delphi利用Windows GDI实】
procedure tform1zjchange(sender:tobject);
begin
case zjitemindex of
08,1020:path:=′e:\c0′+inttostr(zjitemindex+1);
9:path:=′e:\c′+inttostr (zjitemindex+1);
{e为光驱的盘符,据实际情况而定}
end;
filename:=inttostr(zjitemindex)+ ′txt′;
gqitemsloadfromfile (filename);
gqtext:=gqitemsstrings [0];
end;
{双击caption属性为“播放”的按钮,加入以下内容}
procedure tform1button1click(sender:tobject);
begin
case gqitemindex of ...
下一页 摘要: 如何设计美观的程序一直是程序员的一大难题,很多程序员可以写出很好的程序,但往往困于拙劣的外观。其中如何使美观的程序能在不同的环境下一样美观也同样困扰着我们,我在一些程序的制作中掌握了一些使程序在不同环境同样美观的方法,希望给大家一点启示。
不同环境一般有不同的色彩数和不同的分辨率等等,我只对这两种环境进行说明。
一. 不同的色彩数
对于不同的色彩数我们可以用启动时加以判断并选择相应的配色......