摘要:在delphi中,编程人员利用quick report控件可以方便地设计和实现静态报表,但对动态报表的制作仍有不便之处。如制作一个列表式报表时,如何动态调节每一列的宽度?由于报表在预览情况下不能修改,只能在预览前将宽度设定好,因此,如何比较方便地预先设定宽度,就成了一个需要解决的问题。
分析问题
首先可想到一种笨办法,就是在确定报表中需要显示的字段后,对每一个字段的宽度赋予一个初始值(比如80......
摘要:上海中鲁通信技术有限公司 张世富
一、 前言
由于目前在windows环境下(指windows9.x,windows 2000,windows nt等环境,以下同)的一些程序的数据文件需要经常备份,但是操作系统或应用系统却没有提供比较方便的备份程序。因此,需要人工进行周期性的备份,有时会因为工作人员的疏忽忘记备份当天数据,或者不能对数据文件进行完整的备份,从而对系统数据备份的利用造成一定的影......
Delphi编程的图形显示技巧上一页 ...
newbmp.width:=image1.width;
newbmp.height:=image1.height; 【程序编程相关:
Delphi开发Web Server程序】 【推荐阅读:
DELPHI在局域网中的一则应用】
bmpheight:=image1.height; 【扩展信息:
Delphi开发中Windows API】
bmpwidth:=image1.width;
for i:=0 to bmpheight do
begin
newbmp.canvas.copyrect(rect(0,bmpheight-i,bmpwidth,bmpheight),image1.canvas,rect(0,0,bmpwidth,i));
form1.canvas.draw(120,100,newbmp);
end;
newbmp.free;
end;
2.垂直交错效果
>原理:
将要显示的图形分成两部分,奇数条扫描线由上往下搬移,偶数条扫描线的部分则由下往上搬移,而且两者同时进行.从屏幕上便可看到分别由上下两端出现的较淡图形向屏幕中央移动,直到完全清楚为止.
>程序算法如下:
procedure tform1.button4click(sender: tobject);
var
newbmp:tbitmap;
i,j,bmpheight,bmpwidth:integer;
begin
newbmp:= tbitmap.create;
newbmp.width:=image1.width;
newbmp.height:=image1.height;
bmpheight:=image1.height;
bmpwidth:=image1.width;
i:=0;
while i<=bmpheight do
begin
j:=i;
while j >0 do
begin
newbmp.canvas.copyrect(rect(0,j-1,bmpwidth,j),image1.canvas,rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));
newbmp.canvas.copyrect(rect(0,bmpheight-j,bmpwidth,bmpheight-j+1), image1.canvas,rect(0,i-j,bmpwidth,i-j+1)); ...
下一页 摘要: 摘要:本文阐述了windows环境下动态链接库的概念和特点,对静态调用和动态调用两种调用方式作出了比较,并给出了delphi中应用动态链接库的实例。
一、动态链接库的概念
动态链接库(dynamic link library,缩写为dll)是一个可以被其它应用程序共享的程序模块,其中封装了一些可以被共享的例程和资源。动态链接库文件的扩展名一般是dll,也有可能是drv、sys和fo......