O
onedot
Unregistered / Unconfirmed
GUEST, unregistred user!
下载地址：
http://www.playicq.com/dispdoc.php?t=19&id=1462
抱歉！由于大意，导致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本身冲突，我的命名都已经不同了，因此不用担心会有冲突
//*********************************************************************************/
//版权声明：本代码完全公开，你可以对其任意修改、发布。本人对该代码不保证负责永久维护
//
//*********************************************************************************/
http://www.playicq.com/dispdoc.php?t=19&id=1462
抱歉！由于大意，导致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本身冲突，我的命名都已经不同了，因此不用担心会有冲突
//*********************************************************************************/
//版权声明：本代码完全公开，你可以对其任意修改、发布。本人对该代码不保证负责永久维护
//
//*********************************************************************************/