IWUnit1.pas
上传用户:xdwang_66
上传日期:2016-04-26
资源大小:1726k
文件大小:4k
源码类别:

Static控件

开发平台:

Delphi

  1. unit IWUnit1;
  2. {PUBDIST}
  3. interface
  4. uses
  5.   IWAppForm, IWApplication, IWTypes, HBarcode, Graphics, IWCompButton, Classes,
  6.   Controls, IWControl, IWExtCtrls, IWCompEdit, IWCompListbox,
  7.   IWCompCheckbox, IWCompLabel, SysUtils, SWSystem;
  8. type
  9.   TformMain = class(TIWAppForm)
  10.     IWButton1: TIWButton;
  11.     edtBarcode: TIWEdit;
  12.     IWImage1: TIWImage;
  13.     IWLabel1: TIWLabel;
  14.     IWLabel2: TIWLabel;
  15.     IWLabel3: TIWLabel;
  16.     IWLabel4: TIWLabel;
  17.     chkCheckSum: TIWCheckBox;
  18.     IWLabel5: TIWLabel;
  19.     edtLeft: TIWEdit;
  20.     IWLabel6: TIWLabel;
  21.     edtTop: TIWEdit;
  22.     IWLabel7: TIWLabel;
  23.     edtHeight: TIWEdit;
  24.     IWLabel8: TIWLabel;
  25.     edtAngle: TIWEdit;
  26.     cmbBarType: TIWComboBox;
  27.     cmbModul: TIWComboBox;
  28.     cmbRatio: TIWComboBox;
  29.     cmbBackColor: TIWComboBox;
  30.     cmbBarColor: TIWComboBox;
  31.     cmbSpaceColor: TIWComboBox;
  32.     cmbTextColor: TIWComboBox;
  33.     labBackColor: TIWLabel;
  34.     labBarColor: TIWLabel;
  35.     IWLabel9: TIWLabel;
  36.     TextSize: TIWLabel;
  37.     cmbTextSize: TIWComboBox;
  38.     IWLabel10: TIWLabel;
  39.     cmbTextFont: TIWComboBox;
  40.     IWLabel11: TIWLabel;
  41.     IWLabel12: TIWLabel;
  42.     cmbTextBackColor: TIWComboBox;
  43.     IWLabel13: TIWLabel;
  44.     cmbTextPost: TIWComboBox;
  45.     IWLabel14: TIWLabel;
  46.     IWLabel15: TIWLabel;
  47.     cmbTextShow: TIWComboBox;
  48.     chkBold: TIWCheckBox;
  49.     chkItalic: TIWCheckBox;
  50.     chkUnderline: TIWCheckBox;
  51.     chkStrikeOut: TIWCheckBox;
  52.     chkBitmap: TIWCheckBox;
  53.     procedure IWButton1Click(Sender: TObject);
  54.   public
  55.   end;
  56. implementation
  57. {$R *.dfm}
  58. uses
  59.   ServerController;
  60. procedure TformMain.IWButton1Click(Sender: TObject);
  61. const
  62.   Color : array[0..17] of TColor = (
  63.     TColor($000000),
  64.     TColor($000080),
  65.     TColor($008000),
  66.     TColor($008080),
  67.     TColor($800000),
  68.     TColor($800080),
  69.     TColor($808000),
  70.     TColor($808080),
  71.     TColor($C0C0C0),
  72.     TColor($0000FF),
  73.     TColor($00FF00),
  74.     TColor($00FFFF),
  75.     TColor($FF0000),
  76.     TColor($FF00FF),
  77.     TColor($FFFF00),
  78.     TColor($C0C0C0),
  79.     TColor($808080),
  80.     TColor($FFFFFF)
  81.   );
  82. var
  83.  Bmp: TBitmap;
  84.  F: TFont;
  85.  c: TCheckSum;
  86. begin
  87.   Bmp := TBitmap.Create ;
  88.   try
  89.     Bmp.Height :=200;
  90.     Bmp.Width := 500;
  91.     Bmp.Canvas.Brush.Color := Color[cmbBackColor.ItemIndex];
  92.     Bmp.Canvas.Rectangle(0,0,Bmp.Width,Bmp.Height);
  93.     if chkBitmap.Checked then Bmp.LoadFromFile(gsAppPath+'Back.bmp');
  94.     IWImage1.Picture.Bitmap := Bmp;
  95.     if chkCheckSum.Checked then c := csModulo10 else c := csNone;
  96.     F := TFont.Create;
  97.     try
  98.       if cmbTextFont.ItemIndex <> -1 then
  99.         F.Name := cmbTextFont.Text;
  100.       F.Size := cmbTextSize.ItemIndex + 7;
  101.       F.Color := Color[cmbTextColor.ItemIndex];
  102.       F.Style := [];
  103.       if chkBold.Checked then F.Style := F.Style + [fsBold];
  104.       if chkItalic.Checked then F.Style := F.Style + [fsItalic];
  105.       if chkUnderLine.Checked then F.Style := F.Style + [fsUnderline];
  106.       if chkStrikeOut.Checked then F.Style := F.Style + [fsStrikeOut];
  107.       H_DrawBar(
  108.         IWImage1.Picture.Bitmap.Canvas ,
  109.         TBarType(cmbBarType.ItemIndex),
  110.         Trim(edtBarcode.Text),
  111.         cmbModul.ItemIndex + 1 ,
  112.         (cmbRatio.ItemIndex + 1)*0.5+1,
  113.         c,
  114.         StrToIntDef(edtLeft.Text,10),
  115.         StrToIntDef(edtTop.Text,10),
  116.         StrToIntDef(edtHeight.Text,50),
  117.         F,
  118.         TTextShow(cmbTextShow.ItemIndex),
  119.         TTextPosition(cmbTextPost.ItemIndex),
  120.         Color[cmbBarColor.ItemIndex],
  121.         Color[cmbSpaceColor.ItemIndex],
  122.         Color[cmbTextBackColor.ItemIndex],
  123.         StrToIntDef(edtAngle.Text,0)
  124.         );
  125.     finally
  126.       F.Free;
  127.     end;
  128.   finally
  129.     Bmp.Free;
  130.   end;
  131. end;
  132. end.