Delphi
Delphiプロジェクトのバーコード

►

DelphiのActiveBarcodeは、他のコントロール（ボタンなど）と同じように使用できます。 まず、ActiveBarcodeコントロールをDelphi開発環境に追加する必要があります。

新しいプロジェクトを作成します：File - New - VCL Forms Application です。:

ActiveBarcodeをフォームに配置するには、ツールパレットからActiveBarcodeコントロールを選択します。これはTBarcodeコンポーネントとしてActiveXの下にあります。:

TBarcodeを選択し、フォームにコンポーネントを配置します。悲しいことに、Delphiは黒い背景色のバーコード・オブジェクトを追加します。

しかし、問題ありません、これを修正するだけです。オブジェクトインスペクタで、コンポーネントのプロパティをカスタマイズできる。そこで、背景色を白に設定します。

これで、バーコードオブジェクトは正常に表示されます。:

この例では、Editというコントロールをフォームに追加します。これでフォームは次のようになります。:

次に、エディット・フィールドをコントロールに直接リンクする。 編集フィールドをダブルクリックして、TextChangeイベントのソースコードを開きます。 このイベントは、編集フィールドの内容が変更されると、常に呼び出されます。私たちの例では、理想的には この更新を直ちにコントロールに渡す。

完了です！アプリケーションを起動し、編集フィールドの内容を変更してバーコードを変更します。

コーディング例

プロパティの設定は非常に簡単だ。

Barcode1.Text := '123456789012';
Barcode1.BackColor := clWhite;
Barcode1.ForeColor := clBlack;

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);

  Barcode1.CopyToClipboard;

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);
Clipboard.Assign(Image1.Picture.Bitmap);