- 博客(3)
- 收藏
- 关注
RSS订阅转载 有预览的颜色选择下拉框
从网上找到的，原来的代码画框(Rectangle)，改进为画块(FillRect)，并保持画块前的画布属性。function GetSelectedColor(const AIndex: Integer): TColor;begin case AIndex of 0: Result := clYellow; 1: Result := clRed; 2: Result :=
2008-01-29 18:36:00
1234
原创 针式打印机进纸，退纸
EPSON的进纸退纸指令在它的说明文档里有：ESC J n 进纸 n/180 inchESC j n 退纸 n/180 inch0 我们常遇到的问题是要退一页或者几页！例如我通过驱动程序操作打印机，即不直接写端口（如LPT1），自定义纸张打标签，标签高才3.83cm，如果在代码里设置自定义页为15*3.83cm，打印机绝对按A4走纸，那就浪费不只一两个标签，想不浪费就要手动进纸，退纸。
2008-01-22 15:17:00
8997
转载 精确缩放图片 Resize Picture
这个方法比 Canvas.StretchDraw 要精确，故名。经整理更具可读性。源：http://www.andyz.go.ro/ (andyz@go.ro)procedure ResizeBitmap(AInImg, AOutImg: TBitmap; const ATgtWid, ATgtHgt: Integer);const n_MaxPixCnt = 32768;type PR
2008-01-16 14:40:00
1684
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人