开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > Static控件 > 查看源码
Unit1.pas
资源名称：Barcode.VCL.component.v1.8.6.48.Full.Source.Delphi　[点击查看]
上传用户：xdwang_66
上传日期：2016-04-26
资源大小：1726k
文件大小：20k
源码类别：

Static控件

开发平台：

Delphi

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, pBarCode, StdCtrls, Grids, ValEdit, HBarcode, Printers;
  9. type
  10.   TForm1 = class(TForm)
  11.     PropEdit: TValueListEditor;
  12.     SelColor: TColorDialog;
  13.     SelFont: TFontDialog;
  14.     panDraw: TPanel;
  15.     Panel2: TPanel;
  16.     BarCode1: TBarCode;
  17.     DrawEdit: TValueListEditor;
  18.     imgDraw: TImage;
  19.     btnDraw: TButton;
  20.     PrinEdit: TValueListEditor;
  21.     btnPrint: TButton;
  22.     procedure PropEditGetPickList(Sender: TObject;
  23.       const KeyName: String; Values: TStrings);
  24.     procedure PropEditStringsChange(Sender: TObject);
  25.     procedure FormShow(Sender: TObject);
  26.     procedure PropEditDrawCell(Sender: TObject; ACol, ARow: Integer;
  27.       Rect: TRect; State: TGridDrawState);
  28.     procedure PropEditSelectCell(Sender: TObject; ACol, ARow: Integer;
  29.       var CanSelect: Boolean);
  30.     procedure btnDrawClick(Sender: TObject);
  31.     procedure DrawEditStringsChange(Sender: TObject);
  32.     procedure btnPrintClick(Sender: TObject);
  33.     procedure PrinEditGetPickList(Sender: TObject;
  34.       const KeyName: String; Values: TStrings);
  35.     procedure PrinEditStringsChange(Sender: TObject);
  36.     procedure FormCreate(Sender: TObject);
  37.     procedure DrawEditGetPickList(Sender: TObject; const KeyName: String;
  38.       Values: TStrings);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  45. var
  46.   Form1: TForm1;
  47.   Setting: Boolean = False;
  48.   DrawEditing: Boolean = False;
  49.   PrinEditing: Boolean = False;
  50.   function iif(C: Boolean; A, B: Variant): Variant;
  52. implementation
  54. {$R *.dfm}
  56. function iif(C: Boolean; A, B: Variant): Variant;
  57. begin
  58.   if C then Result := A else Result := B;
  59. end;
  61. procedure TForm1.PropEditGetPickList(Sender: TObject;
  62.   const KeyName: String; Values: TStrings);
  63. begin
  64.   if KeyName = 'BarType' then
  65.   begin
  66.     Values.Append('bcCode_2_5_interleaved');
  67.     Values.Append('bcCode_2_5_industrial');
  68.     Values.Append('bcCode_2_5_matrix');
  69.     Values.Append('bcCode39');
  70.     Values.Append('bcCode39Extended');
  71.     Values.Append('bcCode128A');
  72.     Values.Append('bcCode128B');
  73.     Values.Append('bcCode128C');
  74.     Values.Append('bcCode93');
  75.     Values.Append('bcCode93Extended');
  76.     Values.Append('bcCodeMSI');
  77.     Values.Append('bcCodePostNet');
  78.     Values.Append('bcCodeCodabar');
  79.     Values.Append('bcCodeEAN8');
  80.     Values.Append('bcCodeEAN13');
  81.     Values.Append('bcCodeUPC_A');
  82.     Values.Append('bcCodeUPC_E0');
  83.     Values.Append('bcCodeUPC_E1');
  84.     Values.Append('bcCodeUPC_Supp2');
  85.     Values.Append('bcCodeUPC_Supp5');
  86.     Values.Append('bcCodeEAN128A');
  87.     Values.Append('bcCodeEAN128B');
  88.     Values.Append('bcCodeEAN128C');
  89.   end else
  90.   if KeyName = 'CheckSum' then
  91.   begin
  92.     Values.Append('csNone');
  93.     Values.Append('csModulo10');
  94.   end else
  95.   if KeyName = 'TextShow' then
  96.   begin
  97.     Values.Append('tsNone');
  98.     Values.Append('tsBarCode');
  99.     Values.Append('tsBarType');
  100.     Values.Append('tsBoth');
  101.   end else
  102.   if KeyName = 'TextPosition' then
  103.   begin
  104.     Values.Append('tpTopLeft');
  105.     Values.Append('tpTopRight');
  106.     Values.Append('tpTopCenter');
  107.     Values.Append('tpBottomLeft');
  108.     Values.Append('tpBottomRight');
  109.     Values.Append('tpBottomCenter');
  110.   end else
  111.   if KeyName = 'Orientation' then
  112.   begin
  113.     Values.Append('toLeftRight');
  114.     Values.Append('toRightLeft');
  115.     Values.Append('toTopBottom');
  116.     Values.Append('toBottomTop');
  117.   end else
  118.   if KeyName = 'Alignment' then
  119.   begin
  120.     Values.Append('taCenter');
  121.     Values.Append('taLeftJustify');
  122.     Values.Append('taRightJustify');
  123.   end else
  124.   if (KeyName = 'BevelInner') or (KeyName = 'BevelOuter')then
  125.   begin
  126.     Values.Append('bvLowered');
  127.     Values.Append('bvNone');
  128.     Values.Append('bvRaised');
  129.     Values.Append('bvSpace');
  130.   end else
  131.   if KeyName = 'BorderStyle' then
  132.   begin
  133.     Values.Append('bsNone');
  134.     Values.Append('bsSingle');
  135.   end else
  136.   if KeyName = 'Align' then
  137.   begin
  138.     Values.Append('alBottom');
  139.     Values.Append('alClient');
  140.     Values.Append('alCustom');
  141.     Values.Append('alLeft');
  142.     Values.Append('alNone');
  143.     Values.Append('alRight');
  144.     Values.Append('alTop');
  145.   end else
  146.   if (KeyName = 'AutoWidth') or (KeyName = 'Ctl3D') or (KeyName = 'Visible') then
  147.   begin
  148.     Values.Append('True');
  149.     Values.Append('False');
  150.   end;
  151. end;
  153. procedure TForm1.PropEditStringsChange(Sender: TObject);
  154. begin
  155.   if not Setting then
  156.   with Barcode1 do
  157.   begin
  158.     AutoWidth := iif(PropEdit.Values['AutoWidth']='True',True,False);
  159.     if PropEdit.Values['BarType'] = 'bcCode_2_5_interleaved' then BarType := bcCode_2_5_interleaved;
  160.     if PropEdit.Values['BarType'] = 'bcCode_2_5_industrial' then BarType := bcCode_2_5_industrial;
  161.     if PropEdit.Values['BarType'] = 'bcCode_2_5_matrix' then BarType := bcCode_2_5_matrix;
  162.     if PropEdit.Values['BarType'] = 'bcCode39' then BarType := bcCode39;
  163.     if PropEdit.Values['BarType'] = 'bcCode39Extended' then BarType := bcCode39Extended;
  164.     if PropEdit.Values['BarType'] = 'bcCode128A' then BarType := bcCode128A;
  165.     if PropEdit.Values['BarType'] = 'bcCode128B' then BarType := bcCode128B;
  166.     if PropEdit.Values['BarType'] = 'bcCode128C' then BarType := bcCode128C;
  167.     if PropEdit.Values['BarType'] = 'bcCode93' then BarType := bcCode93;
  168.     if PropEdit.Values['BarType'] = 'bcCode93Extended' then BarType := bcCode93Extended;
  169.     if PropEdit.Values['BarType'] = 'bcCodeMSI' then BarType := bcCodeMSI;
  170.     if PropEdit.Values['BarType'] = 'bcCodePostNet' then BarType :=bcCodePostNet;
  171.     if PropEdit.Values['BarType'] = 'bcCodeCodabar' then BarType := bcCodeCodabar;
  172.     if PropEdit.Values['BarType'] = 'bcCodeEAN8' then BarType := bcCodeEAN8;
  173.     if PropEdit.Values['BarType'] = 'bcCodeEAN13' then BarType := bcCodeEAN13;
  174.     if PropEdit.Values['BarType'] = 'bcCodeUPC_A' then BarType := bcCodeUPC_A;
  175.     if PropEdit.Values['BarType'] = 'bcCodeUPC_E0' then BarType := bcCodeUPC_E0;
  176.     if PropEdit.Values['BarType'] = 'bcCodeUPC_E1' then BarType := bcCodeUPC_E1;
  177.     if PropEdit.Values['BarType'] = 'bcCodeUPC_Supp2' then BarType := bcCodeUPC_Supp2;
  178.     if PropEdit.Values['BarType'] = 'bcCodeUPC_Supp5' then BarType := bcCodeUPC_Supp5;
  179.     if PropEdit.Values['BarType'] = 'bcCodeEAN128A' then BarType := bcCodeEAN128A;
  180.     if PropEdit.Values['BarType'] = 'bcCodeEAN128B' then BarType := bcCodeEAN128B;
  181.     if PropEdit.Values['BarType'] = 'bcCodeEAN128C' then BarType := bcCodeEAN128C;
  182.     Barcode := PropEdit.Values['Barcode'];
  183.     BarHeight := StrToIntDef(PropEdit.Values['BarHeight'],0);
  184.     if PropEdit.Values['CheckSum'] = 'csNone' then CheckSum := csNone;
  185.     if PropEdit.Values['CheckSum'] = 'csModulo10' then CheckSum := csModulo10;
  186.     Modul := StrToIntDef(PropEdit.Values['Modul'],1);
  187.     Ratio := StrToFloatDef(PropEdit.Values['Ratio'],2);
  188.     if PropEdit.Values['TextShow'] = 'tsNone' then TextShow := tsNone;
  189.     if PropEdit.Values['TextShow'] = 'tsBarCode' then TextShow := tsBarCode;
  190.     if PropEdit.Values['TextShow'] = 'tsBarType' then TextShow := tsBarType;
  191.     if PropEdit.Values['TextShow'] = 'tsBoth' then TextShow := tsBoth;
  192.     if PropEdit.Values['TextPosition'] = 'tpTopLeft' then TextPosition := tpTopLeft;
  193.     if PropEdit.Values['TextPosition'] = 'tpTopRight' then TextPosition := tpTopRight;
  194.     if PropEdit.Values['TextPosition'] = 'tpTopCenter' then TextPosition := tpTopCenter;
  195.     if PropEdit.Values['TextPosition'] = 'tpBottomLeft' then TextPosition := tpBottomLeft;
  196.     if PropEdit.Values['TextPosition'] = 'tpBottomRight' then TextPosition := tpBottomRight;
  197.     if PropEdit.Values['TextPosition'] = 'tpBottomCenter' then TextPosition := tpBottomCenter;
  198.     if PropEdit.Values['Orientation'] = 'toRightLeft' then Orientation := toRightLeft;
  199.     if PropEdit.Values['Orientation'] = 'toTopBottom' then Orientation := toTopBottom;
  200.     if PropEdit.Values['Orientation'] = 'toBottomTop' then Orientation := toBottomTop;
  201.     if PropEdit.Values['Orientation'] = 'toLeftRight' then Orientation := toLeftRight;
  202.     if PropEdit.Values['Alignment'] = 'taLeftJustify' then Alignment := taLeftJustify;
  203.     if PropEdit.Values['Alignment'] = 'taRightJustify' then Alignment := taRightJustify;
  204.     if PropEdit.Values['Alignment'] = 'taCenter' then Alignment := taCenter;
  205.     HMargin := StrToIntDef(PropEdit.Values['HMargin'],0);
  206.     Left := StrToIntDef(PropEdit.Values['Left'],0);
  207.     Top  := StrToIntDef(PropEdit.Values['Top'],0);
  208.     Height  := StrToIntDef(PropEdit.Values['Height'],0);
  209.     Width  := StrToIntDef(PropEdit.Values['Width'],0);
  210.     if PropEdit.Values['BevelInner'] = 'bvNone' then BevelInner := bvNone;
  211.     if PropEdit.Values['BevelInner'] = 'bvRaised' then BevelInner := bvRaised;
  212.     if PropEdit.Values['BevelInner'] = 'bvSpace' then BevelInner := bvSpace;
  213.     if PropEdit.Values['BevelInner'] = 'bvLowered' then BevelInner := bvLowered;
  214.     if PropEdit.Values['BevelOuter'] = 'bvNone' then BevelOuter := bvNone;
  215.     if PropEdit.Values['BevelOuter'] = 'bvRaised' then BevelOuter := bvRaised;
  216.     if PropEdit.Values['BevelOuter'] = 'bvSpace' then BevelOuter := bvSpace;
  217.     if PropEdit.Values['BevelOuter'] = 'bvLowered' then BevelOuter := bvLowered;
  218.     BevelWidth := StrToIntDef(PropEdit.Values['BevelWidth'],1);
  219.     BorderStyle := iif(PropEdit.Values['BorderStyle']='bsNone',bsNone,bsSingle);
  220.     BorderWidth := StrToIntDef(PropEdit.Values['BorderWidth'],1);
  221.     Ctl3D := iif(PropEdit.Values['Ctl3D']='True',True,False);
  222.     Visible := iif(PropEdit.Values['Visible']='True',True,False);
  223.     Paint;
  224.     btnDrawClick(Sender);
  225.     FormShow(Sender);
  226.   end;
  227. end;
  229. procedure TForm1.FormShow(Sender: TObject);
  230. begin
  231.   Setting := True;
  232.   with Barcode1 do
  233.   begin
  234.     PropEdit.Values['Width'] := IntToStr(Width);
  235.     PropEdit.Values['Left'] := IntToStr(Left);
  236.     PropEdit.Values['Top'] := IntToStr(Top);
  237.     PropEdit.Values['Height'] := IntToStr(Height);
  238.     if BarType = bcCode_2_5_interleaved then PropEdit.Values['BarType'] := 'bcCode_2_5_interleaved';
  239.     if BarType = bcCode_2_5_industrial then  PropEdit.Values['BarType'] := 'bcCode_2_5_industrial';
  240.     if BarType = bcCode_2_5_matrix then  PropEdit.Values['BarType'] := 'bcCode_2_5_matrix';
  241.     if BarType = bcCode39 then  PropEdit.Values['BarType'] := 'bcCode39';
  242.     if BarType = bcCode39Extended then  PropEdit.Values['BarType'] := 'bcCode39Extended';
  243.     if BarType = bcCode128A then  PropEdit.Values['BarType'] := 'bcCode128A' ;
  244.     if BarType = bcCode128B then  PropEdit.Values['BarType'] := 'bcCode128B' ;
  245.     if BarType = bcCode128C then  PropEdit.Values['BarType'] := 'bcCode128C' ;
  246.     if BarType = bcCode93 then  PropEdit.Values['BarType'] := 'bcCode93' ;
  247.     if BarType = bcCode93Extended then  PropEdit.Values['BarType'] := 'bcCode93Extended' ;
  248.     if BarType = bcCodeMSI then  PropEdit.Values['BarType'] := 'bcCodeMSI';
  249.     if BarType = bcCodePostNet then  PropEdit.Values['BarType'] := 'bcCodePostNet' ;
  250.     if BarType = bcCodeCodabar then  PropEdit.Values['BarType'] := 'bcCodeCodabar' ;
  251.     if BarType = bcCodeEAN8 then  PropEdit.Values['BarType'] := 'bcCodeEAN8' ;
  252.     if BarType = bcCodeEAN13 then  PropEdit.Values['BarType'] := 'bcCodeEAN13' ;
  253.     if BarType = bcCodeUPC_A then  PropEdit.Values['BarType'] := 'bcCodeUPC_A' ;
  254.     if BarType = bcCodeUPC_E0 then  PropEdit.Values['BarType'] := 'bcCodeUPC_E0' ;
  255.     if BarType = bcCodeUPC_E1 then  PropEdit.Values['BarType'] := 'bcCodeUPC_E1' ;
  256.     if BarType = bcCodeUPC_Supp2 then  PropEdit.Values['BarType'] := 'bcCodeUPC_Supp2' ;
  257.     if BarType = bcCodeUPC_Supp5 then  PropEdit.Values['BarType'] := 'bcCodeUPC_Supp5' ;
  258.     if BarType = bcCodeEAN128A then  PropEdit.Values['BarType'] := 'bcCodeEAN128A' ;
  259.     if BarType = bcCodeEAN128B then  PropEdit.Values['BarType'] := 'bcCodeEAN128B' ;
  260.     if BarType = bcCodeEAN128C then  PropEdit.Values['BarType'] := 'bcCodeEAN128C' ;
  261.     //PropEdit.Values['BarType'] := BarTypeName;
  262.     PropEdit.Values['Barcode'] := Barcode;
  263.     PropEdit.Values['BarHeight'] := IntToStr(BarHeight);
  264.     PropEdit.Values['CheckSum'] := iif(CheckSum=csNone,'csNone','csModulo10');
  265.     PropEdit.Values['Modul'] := IntToStr(Modul);
  266.     PropEdit.Values['Ratio'] := FloatToStr(Ratio);
  267.     if TextShow = tsNone then PropEdit.Values['TextShow'] := 'tsNone';
  268.     if TextShow = tsBarCode then PropEdit.Values['TextShow'] := 'tsBarCode';
  269.     if TextShow = tsBarType then PropEdit.Values['TextShow'] := 'tsBarType';
  270.     if TextShow = tsBoth then PropEdit.Values['TextShow'] := 'tsBoth';
  271.     if TextPosition = tpTopLeft then PropEdit.Values['TextPosition'] := 'tpTopLeft';
  272.     if TextPosition = tpTopRight then PropEdit.Values['TextPosition'] := 'tpTopRight';
  273.     if TextPosition = tpTopCenter then PropEdit.Values['TextPosition'] := 'tpTopCenter';
  274.     if TextPosition = tpBottomLeft then PropEdit.Values['TextPosition'] := 'tpBottomLeft';
  275.     if TextPosition = tpBottomRight then PropEdit.Values['TextPosition'] := 'tpBottomRight';
  276.     if TextPosition = tpBottomCenter then PropEdit.Values['TextPosition'] := 'tpBottomCenter';
  277.     if Orientation = toLeftRight then PropEdit.Values['Orientation'] := 'toLeftRight';
  278.     if Orientation = toRightLeft then PropEdit.Values['Orientation'] := 'toRightLeft';
  279.     if Orientation = toTopBottom then PropEdit.Values['Orientation'] := 'toTopBottom';
  280.     if Orientation = toBottomTop then PropEdit.Values['Orientation'] := 'toBottomTop';
  281.     if Alignment = taCenter then PropEdit.Values['Alignment'] := 'taCenter';
  282.     if Alignment = taLeftJustify then PropEdit.Values['Alignment'] := 'taLeftJustify';
  283.     if Alignment = taRightJustify then PropEdit.Values['Alignment'] := 'taRightJustify';
  284.     PropEdit.Values['HMargin'] := IntToStr(HMargin);
  285.     PropEdit.Values['AutoWidth'] := iif(AutoWidth,'True','False');
  286.     if BevelInner = bvLowered then PropEdit.Values['BevelInner'] := 'bvLowered';
  287.     if BevelInner = bvNone then PropEdit.Values['BevelInner'] := 'bvNone';
  288.     if BevelInner = bvRaised then PropEdit.Values['BevelInner'] := 'bvRaised';
  289.     if BevelInner = bvSpace then PropEdit.Values['BevelInner'] := 'bvSpace';
  290.     if BevelOuter = bvLowered then PropEdit.Values['BevelOuter'] := 'bvLowered';
  291.     if BevelOuter = bvNone then PropEdit.Values['BevelOuter'] := 'bvNone';
  292.     if BevelOuter = bvRaised then PropEdit.Values['BevelOuter'] := 'bvRaised';
  293.     if BevelOuter = bvSpace then PropEdit.Values['BevelOuter'] := 'bvSpace';
  294.     PropEdit.Values['BevelWidth'] := IntToStr(BevelWidth);
  295.     PropEdit.Values['BorderStyle'] := iif(BorderStyle=bsNone,'bsNone','bsSingle');
  296.     PropEdit.Values['BorderWidth'] := IntToStr(BorderWidth);
  297.     PropEdit.Values['Ctl3D'] := iif(Ctl3D,'True','False');
  298.     PropEdit.Values['Visible'] := iif(Visible,'True','False');
  299.   end;
  300.   Setting := False;
  301.   BarCode1.Paint;
  302.   btnDrawClick(Sender);
  303. end;
  305. procedure TForm1.PropEditDrawCell(Sender: TObject; ACol, ARow: Integer;
  306.   Rect: TRect; State: TGridDrawState);
  307. var
  308.   DrawRect: TRect;
  309. begin
  310.   DrawRect.Left := Rect.Left + 2;
  311.   DrawRect.Right := Rect.Right - 2;
  312.   DrawRect.Top := Rect.Top + 2;
  313.   DrawRect.Bottom := Rect.Bottom - 2;
  314.   if ACol = 1 then
  315.   begin
  316.     if ARow = 5 then
  317.     begin
  318.       PropEdit.Canvas.Brush.Color := Barcode1.ColorBar;
  319.       PropEdit.Canvas.Pen.Color := clBlack;
  320.       PropEdit.Canvas.Rectangle(DrawRect);
  321.     end else
  322.     if ARow = 6 then
  323.     begin
  324.       PropEdit.Canvas.Brush.Color := Barcode1.ColorSpc;
  325.       PropEdit.Canvas.Pen.Color := clBlack;
  326.       PropEdit.Canvas.Rectangle(DrawRect);
  327.     end else
  328.     if ARow = 11 then
  329.     begin
  330.       PropEdit.Canvas.Pen.Color := Barcode1.Font.Color;
  331.       PropEdit.Canvas.Font := Barcode1.Font;
  332.       PropEdit.Canvas.Font.Size := PropEdit.Font.Size; 
  333.       PropEdit.Canvas.TextOut(Rect.Left + 1,Rect.Top + 1,Barcode1.Font.Name);
  334.     end else
  335.     if ARow = 12 then
  336.     begin
  337.       PropEdit.Canvas.Brush.Color := Barcode1.TextColor;
  338.       PropEdit.Canvas.Pen.Color := clBlack;
  339.       PropEdit.Canvas.Rectangle(DrawRect);
  340.     end else
  341.     if ARow = 17 then
  342.     begin
  343.       PropEdit.Canvas.Brush.Color := Barcode1.Color;
  344.       PropEdit.Canvas.Pen.Color := clBlack;
  345.       PropEdit.Canvas.Rectangle(DrawRect);
  346.     end;
  347.   end;
  348. end;
  350. procedure TForm1.PropEditSelectCell(Sender: TObject; ACol, ARow: Integer;
  351.   var CanSelect: Boolean);
  352. begin
  353.   if ACol = 1 then
  354.   begin
  355.     if ARow = 5 then
  356.     begin
  357.       SelColor.Color := Barcode1.ColorBar;
  358.       if SelColor.Execute then
  359.         Barcode1.ColorBar := SelColor.Color;
  360.       CanSelect := False;
  361.     end else
  362.     if ARow = 6 then
  363.     begin
  364.       SelColor.Color := Barcode1.ColorSpc;
  365.       if SelColor.Execute then
  366.         Barcode1.ColorSpc := SelColor.Color;
  367.       CanSelect := False;
  368.     end else
  369.     if ARow = 11 then
  370.     begin
  371.       SelFont.Font := Barcode1.Font;
  372.       if SelFont.Execute then
  373.         Barcode1.Font := SelFont.Font;
  374.       CanSelect := False;
  375.     end else
  376.     if ARow = 12 then
  377.     begin
  378.       SelColor.Color := Barcode1.TextColor;
  379.       if SelColor.Execute then
  380.         Barcode1.TextColor := SelColor.Color;
  381.       CanSelect := False;
  382.     end else
  383.     if ARow = 17 then
  384.     begin
  385.       SelColor.Color := Barcode1.Color;
  386.       if SelColor.Execute then
  387.         Barcode1.Color := SelColor.Color;
  388.       CanSelect := False;
  389.     end;
  390.     PropEdit.Repaint;
  391.     btnDrawClick(Sender);
  392.   end;
  393. end;
  395. procedure TForm1.btnDrawClick(Sender: TObject);
  396. begin
  397.   imgDraw.Canvas.Rectangle(imgDraw.Canvas.ClipRect);
  398.   if DrawEdit.Values['BackGround'] = 'True' then
  399.     imgDraw.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Back.bmp');
  400.   Barcode1.Draw(imgDraw.Canvas,StrToIntDef(DrawEdit.Values['Left'],0),
  401.     StrToIntDef(DrawEdit.Values['Top'],0),
  402.     StrToIntDef(DrawEdit.Values['Height'],0),
  403.     StrToFloatDef(DrawEdit.Values['Angle'],0));
  404. end;
  406. procedure TForm1.DrawEditGetPickList(Sender: TObject;
  407.   const KeyName: String; Values: TStrings);
  408. begin
  409.   if KeyName = 'BackGround' then
  410.   begin
  411.     Values.Append('True');
  412.     Values.Append('False');
  413.   end;
  414. end;
  416. procedure TForm1.DrawEditStringsChange(Sender: TObject);
  417. begin
  418.   if not DrawEditing then
  419.   begin
  420.     DrawEditing := True;
  421.     if DrawEdit.Values['BackGround'] <> 'False' then DrawEdit.Values['BackGround'] := 'True';
  422.     DrawEdit.Values['Left'] := IntToStr(StrToIntDef(DrawEdit.Values['Left'],10));
  423.     DrawEdit.Values['Top'] := IntToStr(StrToIntDef(DrawEdit.Values['Top'],10));
  424.     DrawEdit.Values['Height'] := IntToStr(StrToIntDef(DrawEdit.Values['Height'],50));
  425.     DrawEdit.Values['Angle'] := FloatToStr(StrToFloatDef(DrawEdit.Values['Angle'],0));
  426.     DrawEditing := False;
  427.     btnDrawClick(Sender);
  428.   end;
  429. end;
  431. procedure TForm1.btnPrintClick(Sender: TObject);
  432. begin
  433.   Printer.BeginDoc;
  434.   Barcode1.Print(
  435.     iif(PrinEdit.Values['Unit'] = 'utInch',utInch,utMillimeter),
  436.     StrToFloatDef(DrawEdit.Values['Left'],10.0),
  437.     StrToFloatDef(PrinEdit.Values['Top'],10.0),
  438.     StrToFloatDef(PrinEdit.Values['Height'],30.0),
  439.     StrToFloatDef(PrinEdit.Values['Modul'],0.35),
  440.     StrToFloatDef(PrinEdit.Values['Angle'],0));
  441.   Printer.EndDoc;
  442. end;
  444. procedure TForm1.PrinEditGetPickList(Sender: TObject;
  445.   const KeyName: String; Values: TStrings);
  446. begin
  447.   if KeyName = 'Unit' then
  448.   begin
  449.     Values.Append('utMillimeter');
  450.     Values.Append('utInch');
  451.   end;
  452. end;
  454. procedure TForm1.PrinEditStringsChange(Sender: TObject);
  455. begin
  456.   if not PrinEditing then
  457.   begin
  458.     PrinEditing := True;
  459.     if PrinEdit.Values['Unit'] <> 'utInch' then PrinEdit.Values['Unit'] := 'utMillimeter';
  460.     PrinEdit.Values['Left'] := FloatToStr(StrToFloatDef(PrinEdit.Values['Left'],10.0));
  461.     PrinEdit.Values['Top'] := FloatToStr(StrToFloatDef(PrinEdit.Values['Top'],10.0));
  462.     PrinEdit.Values['Height'] := FloatToStr(StrToFloatDef(PrinEdit.Values['Height'],30));
  463.     PrinEdit.Values['Modul'] := FloatToStr(StrToFloatDef(PrinEdit.Values['Modul'],0.35));
  464.     PrinEdit.Values['Angle'] := FloatToStr(StrToFloatDef(PrinEdit.Values['Angle'],0));
  465.     PrinEditing := False;
  466.   end;
  467. end;
  469. procedure TForm1.FormCreate(Sender: TObject);
  470. begin
  471.   PrinEditStringsChange(Sender);
  472.   DrawEditStringsChange(Sender);
  473. end;
  475. end.