![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
surpaimb
这个作者很懒,什么都没留下…
展开
-
delphi根据不同图片生成不规则窗口的实现(仅限于BMP格式)
unit CreateImageForm; interface uses Windows, SysUtils, Variants, Classes, Graphics; procedure CreatRgnForm( Bmap: TBitMap; WColor: TColor; hand:THandle); implementation procedure CreatRgnForm( Bmap:原创 2009-12-17 17:02:00 · 3249 阅读 · 1 评论 -
delphi LPT1端口打印与开钱箱
{设置打印机}Assignfile(RPrinter,'LPT1');{准备写文件}Rewrite(RPrinter);{向后倒纸}//Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40)); {打印}Writeln(RPrinter,'测试:****'+(Edit1.text));{向前进纸}Wr转载 2013-05-18 16:08:08 · 4652 阅读 · 0 评论