名前
題名
▼ Mr.XRAYさん > とりあえず，こんなのを． > 次回は，seizoさんのバーコード表示コンポーネント TBarImageを使用した > サンプル書いてみます． > できたら，印刷プレビュー制御コンポのページに掲載する予定です． > > //============================================================================= > // バーコードフォントを使用した，バーコード印刷のサンプルコード > // 印刷プレビュー制御コンポでは，描画の単位が0.1mmとなっている．したがって， > // バーコードのナロー幅(最低でも0.19mm)，ワイド幅(ナロー幅の2.25〜2.5倍)になる > // ことを確認する必要あり > // この調整は，以下のコードでは，FontHeightで行う > // > // 株式会社テクニカル > // http://www.technical.jp/index.html > // > // [製品案内]から辿って[バーコードハンドブック] > // 以下のバーコード入門のページ > // http://www.technical.or.jp/handbook/index.html > // http://www.technical.or.jp/handbook/chapter-font1.html > // ここらか第7章 バーコードフォントでフォントをDL > // その中のCODE128用を使用した例 > //============================================================================= > procedure TForm1.Button1Click(Sender: TObject); > var > StrCode : String; > FontHeight : Integer; > X : Integer; > Y : Integer; > W : Integer; > begin > plPrev1.BeginDoc; > try > StrCode := '*1234567890*'; > FontHeight := 150; > X := 200; > Y := 300; > > plPrev1.FontName('CODE128'); > plPrev1.Canvas.Font.Charset := ANSI_CHARSET; > plPrev1.FontHeight(FontHeight); > plPrev1.TextOut(X, Y, StrCode); > > W := plPrev1.Canvas.TextWidth(StrCode); > plPrev1.FontSize(10.5); > plPrev1.FontName('ＭＳ Ｐゴシック'); > plPrev1.TextRectFit(X, > X + W, > Y + FontHeight, > Y + FontHeight + plPrev1.Canvas.TextHeight(StrCode), > Length(StrCode), > StrCode); > finally > plPrev1.EndDoc; > end; > plPrev1.ShowModal; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link