所见所得、可数据感知、可旋转、支持20多种规范、完全开放免费的条形码控件（带DEMO及说明） (1分)

下载地址：
http://www.playicq.com/dispdoc.php?t=19&id=1462
或
http://www.playicq.com/databack/HSBarCode 1.1.zip

抱歉！由于大意，导致1.0显示EN13时重复显示第7位而少显示最后一位。此版本就是改动此处。

可不需下载此版本，而对1.0版本做以下改动
请将hsbarcode.dpk打开，在uHSBarCodeImage.pas的第2322行的
bmp.Canvas.TextOut(10+(((fbc.CanvasWidth div 2)-Floor(fbc.FRatio*3/2)-bmp.Canvas.TextWidth(‘000000‘)) div 2)+(fbc.CanvasWidth div 2),fbc.CanvasHeight+5,copy(fbc.FText,7,6)); --------原来是7，要改成8
改成

bmp.Canvas.TextOut(10+(((fbc.CanvasWidth div 2)-Floor(fbc.FRatio*3/2)-bmp.Canvas.TextWidth(‘000000‘)) div 2)+(fbc.CanvasWidth div 2),fbc.CanvasHeight+5,copy(fbc.FText,8,6));

然后重新编译DPK包！

//*********************************************************************************/
//1.本控件完全免费并且代码开放 /
//2.算法参考FR有关条形码算法 /
//3.完全所见即所得；支持DB和非DB操作；从TImage继承方便显示位置、区域控制 ； /
// 支持在QReport和其他任何可接收可视化控件得报表中使用 /
// 以基本VCL为基础不需要任何额外文件；安装方便 /
//4.主要属性及方法如下 /
//Barcode:如果非DB显示时为指定需要显示的条形码字符串 /
//BarCodeType:需要显示的条形码规格 /
//BarCodeWidth:条形码的宽度（标准为16，普通为32，会自动扩大，但会有极限） /
//BarcodeHeight：条形码区的高度 /
//BarcodeAngle：条形码的旋转 /
//BarLabel:条形码的显示注释（注释部分为该值自动加上BarCode的值显示） /
//BarShowLabel:是否显示条形码的注释 /
//DataSource,DataField:同其他DB控件，指定后将显示对应数据的值，BarCode则失效 /
//5.主要方法 /
//ShowBarCode:显示当前得条形码图形 /
//Print:打印当前条形码图形 /
//*********************************************************************************/
//v1.0支持条形码规格清单：
// bcCode_2_5_interleaved, bcCode_2_5_industrial,
// bcCode_2_5_matrix,bcCode39,bcCode39Extended,bcCode128A,bcCode128B,
// bcCode128C,bcCode93,bcCode93Extended,bcCodeMSI,bcCodePostNet,
// bcCodeCodabar,bcCodeEAN8,bcCodeEAN13,bcCodeUPC_A,bcCodeUPC_E0,
// bcCodeUPC_E1,bcCodeUPC_Supp2{ UPC 2 digit supplemental },
// bcCodeUPC_Supp5{ UPC 5 digit supplemental } bcCodeEAN128A,bcCodeEAN128B,
// bcCodeEAN128C
//
//*********************************************************************************/
//v1.1更新记录
//应网友要求，对最常用的EAN13做了修改，使其完全符合EAN13要求
//BarLabel默认值为空，如果为空不显示冒号
//增加了BARCODEANGLE属性，即旋转角度的显示,但不是和FR的旋转一个原理，因时间紧张没太多求更好算法
//HSBARCODE本身还有一些属性在HSBARCODEIMAGE中未提供设置和访问，但都不是常用的，故省
//
//*********************************************************************************/
//附加说明：
//熬了个晚上，我没有精力再为该控件做更多工作，希望有人可以将它改成也可以加入到FastReport中
//为不和FR本身冲突，我的命名都已经不同了，因此不用担心会有冲突
//*********************************************************************************/
//版权声明：本代码完全公开，你可以对其任意修改、发布。本人对该代码不保证负责永久维护
//
//*********************************************************************************/

有网友反应设计期没有问题，而运行台有问题
那是因为你没有加入控件路径的原因
要么你加到LIBRARY路径中，要么你加入到PROJECT的查找路径

不能下载

原来在Delphi开发者资源交流社区也有下载，可惜现在这个网站关闭了。
而共享社区是需要用户注册的，然后才可下载//我没有申请个人主页
不过谢谢WHF，他告诉用这个地址下载
http://www.playicq.com/databack/HSBarCode 1.1.zip

还是不能自由调整宽度，只能是按倍数调整，和FR是一样的。如果能够做到像CorelDraw中的条码那样可以自由调整宽度就算最好的，支持多种格式的条码实现并不难。

接受答案了.