引言: 一、概述
在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。
摘要: 在用delphi制作windows程序的窗体时,窗体的边界有四种选择:对话框式(bsdialog),
单边固定式(bssingle),双边可变式(bssizeable),无边界式(bsnone)。当设置为
bsnone时,窗体也就没有标题条,很显然,程序运行以后就无法移动窗体了。事实上,无边界
窗体是很有用的,例如,象word里面的浮动式工具箱其实就是无边界窗体,它可以大大节约屏
幕空......
摘要: delphi 3.0是一个非常优秀的软件,利用它可很快地制作出一个简单的mp3音乐点歌台。
原理:制作一个mp3播放程序(本文以winplay3为例)的外壳,建立中文歌曲名与mp3文件的关联,从而实现中文歌名的“点歌”。
步骤:
一、新建一个文件
创建一个新的工程(new project)和空白窗体(form1),将form1的caption属性改为“我的点歌台”,在f......
Delphi中票据凭证的精确打印上一页 ...
escape(printer.handle, getphyspagesize, 0,nil,@pagesize);
result := pagesize; 【程序编程相关:
在TNotebook组件的所有页面上显示】 【推荐阅读:
Delphi 4中TTreeView的b】
end; 【扩展信息:
RECT在Delphi中的灵活使用】
file://2.取得纸张的逻辑宽度--可打印区域
file://取得纸张的逻辑尺寸
function paperlogicsize: tpoint;
var
apoint: tpoint;
begin
apoint.x := printer.pagewidth;
apoint.y := printer.pageheight;
result := apoint;
end;
file://纸张水平对垂直方向的纵横比例
function hvlogincratio: extended;
var
ap: tpoint;
begin
ap := paperlogicsize;
result := ap.y/ap.x;
end;
file://取得纸张的横向偏移量-单位:点
function getoffsetx: integer;
begin
result := getdevicecaps(printer.handle, physicaloffsetx);
end;
file://取得纸张的纵向偏移量-单位:点
function getoffsety: integer;
begin
result := getdevicecaps(printer.handle, physicaloffsety);
end;
file://毫米单位转换为英寸单位
function mmtoinch(length: extended): extended;
begin
result := length/25.4;
end;
file://英寸单位转换为毫米单位
function inchtomm(length: extended): extended;
begin
result := length*25.4;
end;
...
下一页 摘要: 在开发多媒体应用中,经常会遇到需要在有限区域内显示大图像
的情况,有不少文章对此提出过解决方法,如通过调用windows的api函
数,直接读写内存等。这些方法有某些优点,但实现起来较为复杂,且
易出错。笔者在实践中通过仔细摸索,利用delphi的强大的面向对象
可视化开发环境开发了一种交互式图像漫游方法。
delphi中,鼠标的消息响应是通过元件的onmousedown、onmou......