- Initial version based on the Code39 custom generator for Elwood dated 2009-03-10, itself

- Elwood generator was in turn based on the Code39 custom generator for Canal55 dated 2005-05-19
- Depends on Turbopower Systools 4.03

obarcode.cfg

@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q+
+-$R+
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-U"E:\Images\OpenSource\TurboPower\Systools403\source"
+-O"E:\Images\OpenSource\TurboPower\Systools403\source"
+-I"E:\Images\OpenSource\TurboPower\Systools403\source"
+-R"E:\Images\OpenSource\TurboPower\Systools403\source"

obarcode.dof

@@ -0,0 +1,161 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=1
+R=1
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=1
+UnsafeCode=1
+UnsafeCast=1
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=E:\Images\OpenSource\TurboPower\Systools403\source
+Packages=vcl;rtl;vclx;visualclx;vclshlctrls;corelocx;CLXIB;VCLIB;vclactnband;IntrawebDB_50_70;Intraweb_50_70
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1036
+CodePage=1252
+[Version Info Keys]
+FileVersion=1.0.0.0
+[Excluded Packages]
+c:\program files\borland\delphi7\Bin\dclindy70.bpl=Editeurs de comp. & prop. Internet Direct (Indy) D7
+c:\program files\borland\delphi7\Bin\dclnet70.bpl=Composant Internet Borland
+c:\program files\borland\delphi7\Bin\dclmcn70.bpl=Composants Connexion DataSnap Borland
+C:\Program Files\Borland\Delphi7\Bin\dclmid70.bpl=Composants MyBase DataAccess Borland
+C:\Program Files\Borland\Delphi7\Bin\dcldb70.bpl=Composants Base de données Borland
+c:\program files\borland\delphi7\Bin\dclsoap70.bpl=Composants SOAP Borland
+c:\program files\borland\delphi7\Bin\dclsmp70.bpl=Composants exemple Borland
+c:\program files\borland\delphi7\Bin\dcldbx70.bpl=Composants dbExpress Borland
+c:\program files\borland\delphi7\Bin\dcldbxcds70.bpl=Composant SimpleDataset Borland (DBX)
+C:\Program Files\Borland\Delphi7\Bin\dbx70.bpl=Paquet UI de l'explorateur SQL de Borland
+c:\program files\borland\delphi7\Bin\dclwbm70.bpl=Composants InternetExpress Borland
+c:\program files\borland\delphi7\Bin\dclie70.bpl=Composants Internet Explorer
+c:\program files\borland\delphi7\Bin\DCLIB70.bpl=Composants Accès données InterBase
+C:\WINDOWS\system32\ibevnt70.bpl=Composant d'alerte d'événement Borland Interbase
+c:\program files\borland\delphi7\Bin\idl2paswizardpkg.bpl=Paquet Expert IDL2PAS Borland
+c:\program files\borland\delphi7\Bin\dclite70.bpl=Environnement de traduction intégré Borland
+c:\program files\borland\delphi7\Bin\dclocx70.bpl=Contrôles ActiveX importés exemples Borland
+c:\program files\borland\delphi7\Bin\dclwebsnap70.bpl=Composants WebSnap Borland
+c:\program files\borland\delphi7\Bin\dclado70.bpl=Composants DB ADO Borland
+c:\program files\borland\delphi7\Bin\dclclxdb70.bpl=Composants BD CLX Borland
+c:\program files\borland\delphi7\Bin\dclsmpedit70.bpl=Améliorations script Editeur Borland
+c:\program files\borland\delphi7\Bin\applet70.bpl=Paquet Applet Panneau de configuration Borland
+c:\program files\borland\delphi7\Bin\dclemacsedit70.bpl=Améliorations Emacs Editeur Borland
+c:\program files\borland\delphi7\Bin\dcl31w70.bpl=Composants compatibilité Delphi 1.0
+c:\program files\borland\delphi7\Projects\Bpl\Ciel.bpl=Paquet Ciel Compta/Gescom
+c:\program files\borland\delphi7\bin\dclRave70.bpl=Paquet Rave Reports BE 5.0
+c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Paquet Expert Web Borland
+C:\Program Files\Borland\Delphi7\Bin\dclbde70.bpl=Composants BD BDE Borland
+c:\program files\borland\delphi7\Bin\dcltee70.bpl=Composants TeeChart
+c:\program files\borland\delphi7\Bin\dcldss70.bpl=Composants Decision Cube Borland
+c:\program files\borland\delphi7\Bin\dclofficexp70.bpl=Composants Wrapper Serveur Automation MS Office XP
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=1
+Item0=E:\Images\OpenSource\TurboPower\Systools403\source

obarcode.dpr

@@ -0,0 +1,13 @@
+program obarcode;
+
+uses
+  Forms,
+  ubarcodeform in 'ubarcodeform.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

obarcode.dsk

@@ -0,0 +1,267 @@
+[Closed Files]
+File_0=SourceModule,'E:\Images\OpenSource\TurboPower\Systools403\source\StBarC.pas',0,1,1879,1,1907,0,0
+File_1=SourceModule,'E:\Src\D32\barcode\Code39 Elwood\ubarcodeform.pas',0,1,1,1,1,1,0
+File_2=SourceModule,'E:\Src\D32\barcode\Code39 Elwood\ubarcodeform.dfm',0,1,1,1,1,0,0
+File_3=SourceModule,'c:\program files\borland\delphi7\source\vcl\Graphics.pas',0,1,3953,18,3981,0,0
+File_4=SourceModule,'E:\Images\OpenSource\TurboPower\Systools403\readme.txt',0,1,31,38,57,0,0
+File_5=SourceModule,'E:\TMP\gestion\u_fmlot.pas',0,1,1,1,1,0,0
+File_6=SourceModule,'E:\TMP\gestion\SDIMAIN.PAS',0,1,1,1,1,1,1
+File_7=SourceModule,'E:\Src\OSInetOffice\Recif\ufmGetter.pas',0,1,40,3,64,0,0
+File_8=SourceModule,'E:\Src\OSInetOffice\Recif\uRecifCore.PAS',0,1,169,25,498,0,0
+
+[Modules]
+Module0=E:\Src\D32\barcode\obarcode\ubarcodeform.pas
+Module1=E:\Src\D32\barcode\obarcode\obarcode.dpr
+Count=2
+EditWindowCount=1
+
+[E:\Src\D32\barcode\obarcode\ubarcodeform.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[E:\Src\D32\barcode\obarcode\obarcode.dpr]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[E:\Src\D32\barcode\Code39 Elwood\ProjectGroup1.bpg]
+FormState=0
+FormOnTop=0
+
+[EditWindow0]
+ViewCount=2
+CurrentView=1
+View0=0
+View1=1
+CodeExplorer=CodeExplorer@EditWindow0
+MessageView=MessageView@EditWindow0
+Create=1
+Visible=1
+State=0
+Left=248
+Top=125
+Width=1302
+Height=758
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1294
+ClientHeight=731
+LeftPanelSize=140
+LeftPanelClients=CodeExplorer@EditWindow0
+LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
+RightPanelSize=0
+BottomPanelSize=0
+BottomPanelClients=MessageView@EditWindow0
+BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF
+
+[View0]
+Module=E:\Src\D32\barcode\obarcode\obarcode.dpr
+CursorX=1
+CursorY=1
+TopLine=1
+LeftCol=1
+
+[View1]
+Module=E:\Src\D32\barcode\obarcode\ubarcodeform.pas
+CursorX=1
+CursorY=1
+TopLine=1
+LeftCol=1
+
+[Watches]
+Count=0
+
+[Breakpoints]
+Count=0
+
+[AddressBreakpoints]
+Count=0
+
+[Main Window]
+Create=1
+Visible=1
+State=2
+Left=0
+Top=0
+Width=1920
+Height=105
+MaxLeft=-1
+MaxTop=-1
+MaxWidth=1928
+MaxHeight=105
+ClientWidth=1920
+ClientHeight=78
+
+[ProjectManager]
+Create=1
+Visible=0
+State=0
+Left=371
+Top=373
+Width=435
+Height=301
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=427
+ClientHeight=277
+TBDockHeight=303
+LRDockWidth=437
+Dockable=1
+
+[CPUWindow]
+Create=1
+Visible=0
+State=0
+Left=66
+Top=115
+Width=957
+Height=633
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=949
+ClientHeight=606
+DumpPane=79
+DisassemblyPane=187
+RegisterPane=231
+FlagPane=64
+
+[AlignmentPalette]
+Create=1
+Visible=0
+State=0
+Left=200
+Top=137
+Width=156
+Height=82
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=150
+ClientHeight=60
+
+[PropertyInspector]
+Create=1
+Visible=1
+State=0
+Left=2
+Top=99
+Width=236
+Height=1101
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=228
+ClientHeight=1077
+TBDockHeight=717
+LRDockWidth=196
+Dockable=1
+SplitPos=104
+ArrangeBy=Name
+SelectedItem=Action
+ExpandedItems=Anchors,Brush,EditLabel,Pen
+HiddenCategories=
+
+[BreakpointWindow]
+Create=1
+Visible=0
+State=0
+Left=1295
+Top=243
+Width=735
+Height=195
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=727
+ClientHeight=171
+TBDockHeight=197
+LRDockWidth=990
+Dockable=1
+Column0Width=100
+Column1Width=100
+Column2Width=195
+Column3Width=175
+Column4Width=80
+Column5Width=75
+
+[CallStackWindow]
+Create=1
+Visible=0
+State=0
+Left=1161
+Top=565
+Width=294
+Height=161
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=286
+ClientHeight=137
+TBDockHeight=161
+LRDockWidth=294
+Dockable=1
+
+[ObjectTree]
+Create=1
+Visible=0
+State=0
+Left=1
+Top=136
+Width=194
+Height=276
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=186
+ClientHeight=252
+TBDockHeight=278
+LRDockWidth=196
+Dockable=1
+
+[MessageHintFrm]
+Create=1
+Visible=0
+State=0
+Left=1
+Top=1
+Width=381
+Height=193
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=373
+ClientHeight=169
+TBDockHeight=195
+LRDockWidth=626
+Dockable=1
+
+[CodeExplorer@EditWindow0]
+Create=1
+Visible=1
+State=0
+Left=0
+Top=12
+Width=140
+Height=719
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=140
+ClientHeight=719
+TBDockHeight=305
+LRDockWidth=140
+Dockable=1
+
+[MessageView@EditWindow0]
+Create=1
+Visible=0
+State=0
+Left=-54
+Top=-772
+Width=443
+Height=85
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=443
+ClientHeight=85
+TBDockHeight=85
+LRDockWidth=443
+Dockable=1
+
+[DockHosts]
+DockHostCount=0
+

ubarcodeform.dfm

@@ -0,0 +1,118 @@
+object Form1: TForm1
+  Left = 288
+  Top = 240
+  Width = 1608
+  Height = 827
+  Caption = 'Form1'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  OnResize = FormResize
+  PixelsPerInch = 96
+  TextHeight = 13
+  object pnTop: TPanel
+    Left = 0
+    Top = 0
+    Width = 1600
+    Height = 768
+    Align = alClient
+    Caption = 'pnTop'
+    TabOrder = 0
+    object StBarCode1: TStBarCode
+      Left = 1
+      Top = 1
+      Width = 1598
+      Height = 766
+      Align = alClient
+      Color = clWhite
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -64
+      Font.Name = 'OCR A Extended'
+      Font.Style = []
+      ParentColor = False
+      ParentFont = False
+      AddCheckChar = True
+      BarCodeType = bcCode128
+      BarColor = clBlack
+      BarToSpaceRatio = 1.000000000000000000
+      BarWidth = 120.000000000000000000
+      BearerBars = False
+      Code = '3418556'
+      Code128Subset = csCodeC
+      ShowCode = True
+      ShowGuardChars = True
+      TallGuardBars = True
+    end
+  end
+  object pnBottom: TPanel
+    Left = 0
+    Top = 768
+    Width = 1600
+    Height = 32
+    Align = alBottom
+    TabOrder = 1
+    object Button1: TButton
+      Left = 240
+      Top = 4
+      Width = 105
+      Height = 25
+      Caption = 'Vers presse papiers'
+      TabOrder = 1
+      OnClick = Button1Click
+    end
+    object ED_Valeur: TEdit
+      Left = 112
+      Top = 6
+      Width = 121
+      Height = 21
+      TabOrder = 0
+      Text = '3418556'
+      OnChange = ED_ValeurChange
+    end
+    object CheckBox1: TCheckBox
+      Left = 352
+      Top = 8
+      Width = 97
+      Height = 17
+      Caption = 'Inclure texte'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+      OnClick = CheckBox1Click
+    end
+    object edWidth: TEdit
+      Left = 440
+      Top = 6
+      Width = 121
+      Height = 21
+      TabOrder = 3
+      Text = '120'
+      OnChange = edWidthChange
+    end
+    object udBarWidth: TUpDown
+      Left = 561
+      Top = 6
+      Width = 15
+      Height = 21
+      Associate = edWidth
+      Max = 1000
+      Increment = 10
+      Position = 120
+      TabOrder = 5
+    end
+    object stWidth: TStaticText
+      Left = 8
+      Top = 8
+      Width = 40
+      Height = 17
+      BevelKind = bkSoft
+      Caption = 'stWidth'
+      TabOrder = 4
+    end
+  end
+end

ubarcodeform.pas

@@ -0,0 +1,67 @@
+unit ubarcodeform;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, StBarC, ExtCtrls, ComCtrls;
+
+type
+  TForm1 = class(TForm)
+    pnTop: TPanel;
+    StBarCode1: TStBarCode;
+    pnBottom: TPanel;
+    Button1: TButton;
+    ED_Valeur: TEdit;
+    CheckBox1: TCheckBox;
+    edWidth: TEdit;
+    udBarWidth: TUpDown;
+    stWidth: TStaticText;
+    procedure Button1Click(Sender: TObject);
+    procedure ED_ValeurChange(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure edWidthChange(Sender: TObject);
+    procedure FormResize(Sender: TObject);
+  private
+    { Déclarations privées }
+  public
+    { Déclarations publiques }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+StBarCode1.CopyToClipboard ;
+end;
+
+procedure TForm1.ED_ValeurChange(Sender: TObject);
+begin
+StBarCode1.Code := ED_Valeur.Text ;
+end;
+
+procedure TForm1.CheckBox1Click(Sender: TObject);
+
+begin
+StBarCode1.ShowCode := (sender as TCheckBox).Checked;
+end;
+
+procedure TForm1.edWidthChange(Sender: TObject);
+
+  begin
+  StBarCode1.BarWidth := StrToFloat((sender as TEdit).Text);
+  end;
+
+procedure TForm1.FormResize(Sender: TObject);
+  begin
+  stWidth.Caption := IntToStr(StBarCode1.Width)
+    + 'x'
+    + IntToStr(StBarCode1.Height);
+  end;
+
+end.