当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: 一、概述 在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。
 

 

 ·用delphi实现无边界窗体的移动    »显示摘要«
    摘要:  在用delphi制作windows程序的窗体时,窗体的边界有四种选择:对话框式(bsdialog), 单边固定式(bssingle),双边可变式(bssizeable),无边界式(bsnone)。当设置为 bsnone时,窗体也就没有标题条,很显然,程序运行以后就无法移动窗体了。事实上,无边界 窗体是很有用的,例如,象word里面的浮动式工具箱其实就是无边界窗体,它可以大大节约屏 幕空......
 ·用delphi 3.0编制mp3音乐点歌台    »显示摘要«
    摘要:  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;


...   下一页
 ·基于delphi的图像漫游    »显示摘要«
    摘要:  在开发多媒体应用中,经常会遇到需要在有限区域内显示大图像 的情况,有不少文章对此提出过解决方法,如通过调用windows的api函 数,直接读写内存等。这些方法有某些优点,但实现起来较为复杂,且 易出错。笔者在实践中通过仔细摸索,利用delphi的强大的面向对象 可视化开发环境开发了一种交互式图像漫游方法。 delphi中,鼠标的消息响应是通过元件的onmousedown、onmou......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE