フォーラム


ゲスト  

ようこそ ゲスト さん。このフォーラムに投稿するには 登録が必要です。

ページ: [1]
トピック: TQRBarImageについて
fuku
メンバー
投稿数: 2
TQRBarImageについて
on: 2021/07/13 11:32 Tue

以前、Delphi5 で作成したシステムをDelphi10Seattleにマイグレーションして使用しています。
レポートは、QuickReportを使用しているのですが、バーコードの項目を追加したく、
「Barcode Image Component for Quick Report Version 0.9」を使用して作表しようとしますが、思う様に印字されません。
現象は、以下の通りです。
A4の8行×3列でシールを作成するプログラムが有るが、明細行に追加したバーコードが、設計時に追加したバーコードが全て同じで作成される。下記のコードで明細行のDetailBeforePrintイベントに値をセットするが、全く変わりません。
下記と同じコードで1件ずつ作成する別の単票様式の帳票のフッターにバーコードを置き、フッターのイベントに記述すると問題なく作成されます。
何が原因でしょうか?
宜しくお願い致します。

(コード例)
//バーコードコンポーネントへの値セット
QRBarImage1.BarEnabled := False;
QRBarImage1.Picture := nil;
QRBarImage1.BarType := cbarNW7;
QRBarImage1.scale := 1;
QRBarImage1.SymbolDisp := False;
QRBarImage1.Transparent := False;
QRBarImage1.Match := False;
QRBarImage1.BarColor := clBlack;
QRBarImage1.BackColor := clWhite;
QRBarImage1.BarHeight := 25;
QRBarImage1.BarLeft := 0;
QRBarImage1.BarTop := 0;
QRBarImage1.BarSpaceUp := 10;
QRBarImage1.BarSpaceDown := 0;
QRBarImage1.BarSpaceLeft := 10;
QRBarImage1.BarSpaceRight := 10;

QRBarImage1.Code := DmlB0100PrnLabel.QueryRptLabel.FieldByName('DISP_BANGO').Value; //データベースから値をセット
QRBarImage1.BarEnabled := true;
QRBarImage1.Visible := true;
QRBarImage1.Repaint;

fuku
メンバー
投稿数: 2
Re: TQRBarImageについて
on: 2021/07/14 13:34 Wed

自己解決しました。
バーコードの縦サイズが、小さく表示しきれていませんでした。
お騒がせしました。

ページ: [1]
WP Forum Server by ForumPress | LucidCrew
バージョン: 1.7.5 ; ページロード: 0.041 sec.