paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 14:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Convert barcode

Browse Source 
git-svn-id: trunk@38931 -
This commit is contained in:
michael 2018-05-06 09:52:26 +00:00
parent 75e4be46f9
commit 925f7e7d7c
1 changed files with 56 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
packages/fcl-report/src/fplazreport.pp
View File

@ -20,7 +20,7 @@ unit fplazreport;
interface interface
uses uses
Classes, SysUtils, fpreport, DOM, FPCanvas, fpTTF, fpreportdb; Classes, SysUtils, fpreport, DOM, FPCanvas, fpTTF, fpreportdb, fpreportbarcode;
Type Type
TCustomPropEvent = procedure(Sender: TObject;Data : TDOMNode) of object; TCustomPropEvent = procedure(Sender: TObject;Data : TDOMNode) of object;
@ -60,6 +60,7 @@ Type
function ConvertPage(aPageNode: TDOMNode): TFPReportPage; virtual; function ConvertPage(aPageNode: TDOMNode): TFPReportPage; virtual;
function ConvertLine(ObjNode: TDOMNode; APage: TFPReportCustomPage): TFPReportShape; virtual; function ConvertLine(ObjNode: TDOMNode; APage: TFPReportCustomPage): TFPReportShape; virtual;
function ConvertImage(ObjNode: TDOMNode; APage: TFPReportCustomPage): TFPReportImage; virtual; function ConvertImage(ObjNode: TDOMNode; APage: TFPReportCustomPage): TFPReportImage; virtual;
function ConvertBarcode(ObjNode : TDOMNode; APage : TFPReportCustomPage) : TFPReportBarcode; virtual;
Procedure Notification(AComponent: TComponent; Operation: TOperation); override; Procedure Notification(AComponent: TComponent; Operation: TOperation); override;
Procedure DoLog(Const Msg : String); Procedure DoLog(Const Msg : String);
Procedure DoLog(Const Fmt : String; Const Args : Array of const); Procedure DoLog(Const Fmt : String; Const Args : Array of const);
@ -82,7 +83,7 @@ Type
implementation implementation
uses dateutils, XMLRead,FPReadPNG,FPimage,FPReadGif,FPReadJPEG; uses dateutils, XMLRead,FPReadPNG,FPimage,FPReadGif,FPReadJPEG,fpbarcode;
Resourcestring Resourcestring
SLogUnknownClass = 'Ignoring unknown lazreport class type for object "%s": "%s".'; SLogUnknownClass = 'Ignoring unknown lazreport class type for object "%s": "%s".';
@ -91,6 +92,9 @@ Resourcestring
SFontSubstitution = 'FontSubstitution'; SFontSubstitution = 'FontSubstitution';
SErrUnknownImageType = 'Unknown image type encountered: "%s"'; SErrUnknownImageType = 'Unknown image type encountered: "%s"';
SWarnConvertName = 'Name conversion: "%s" to "%s"'; SWarnConvertName = 'Name conversion: "%s" to "%s"';
SUnknownBarcodeType = 'Unknown barcode type: "%s"';
SIgnoringAngleOnBarcode = 'Igoring angle on barcode';
SIgnoringShowTextOnBarcode = 'Igoring showtext on barcode';
function PixelsToMM(Const Dist: double) : TFPReportUnits; function PixelsToMM(Const Dist: double) : TFPReportUnits;
begin begin
@ -508,6 +512,52 @@ begin
end; end;
end; end;
function TFPLazReport.ConvertBarcode(ObjNode: TDOMNode; APage: TFPReportCustomPage): TFPReportBarcode;
Function StringToEncoding (s : String): TBarcodeEncoding;
begin
Case s of
'bcCode39' : Result:=be39;
'bcCode93' : Result:=be93;
'bcCodeCodabar' : Result:=beCodabar;
'bcCode39Extended' : Result:=be39Extended;
'bcCode128A' : Result:=be128A;
'bcCode128B' : Result:=be128B;
'bcCode128C' : Result:=be128C;
'bcCodeEAN13' : Result:=beEAN13;
'bcCodeEAN8' : Result:=beEAN8;
'bcCode_2_5_interleaved' : Result:=be2of5interleaved;
'bcCodeMSI' : Result:=beMSI;
else
DoLog(SUnknownBarcodeType,[s]);
end;
end;
Var
aDataNode : TDomNode;
BT : String;
cd : integer;
D :double;
begin
Result:=TFPReportBarcode.Create(Self);
Result.Encoding:=StringToEncoding(GetProperty(ObjNode,'BarCode','BarType'));
if GetProperty(ObjNode,'BarCode','Angle')<>'0' then
DoLog(SIgnoringAngleOnBarcode);
if GetProperty(ObjNode,'BarCode','ShowText')<>'0' then
DoLog(SIgnoringShowTextOnBarcode);
val(GetProperty(ObjNode,'BarCode','Zoom'),D,CD);
if CD=0 then
Result.Weight:=D
else
Result.Weight:=1;
aDataNode:=ObjNode.FindNode('Data');
if ADataNode<>Nil then
Result.Expression:=GetProperty(aDataNode,'Memo');
end;
Procedure TFPLazReport.SizeToLayout(aDataNode : TDOMNode; aObj: TFPReportElement); Procedure TFPLazReport.SizeToLayout(aDataNode : TDOMNode; aObj: TFPReportElement);
Var Var
@ -521,7 +571,8 @@ begin
OffsetTop := 0; OffsetTop := 0;
OffsetLeft :=0; OffsetLeft :=0;
if not (aObj is TFPReportCustomBand) then if not (aObj is TFPReportCustomBand) then
OffsetLeft := aObj.Page.Margins.Left; if Assigned(aObj.Page) then
OffsetLeft := aObj.Page.Margins.Left;
With aObj.Layout do With aObj.Layout do
begin begin
Top:=PixelsToMM(StrToFloatDef(GetProperty(aDataNode,'Top'),Top))-OffsetTop; Top:=PixelsToMM(StrToFloatDef(GetProperty(aDataNode,'Top'),Top))-OffsetTop;
@ -669,6 +720,8 @@ begin
aObj:=ConvertLine(ObjNode,aPage); aObj:=ConvertLine(ObjNode,aPage);
'TfrPictureView': 'TfrPictureView':
aObj:=ConvertImage(ObjNode,aPage); aObj:=ConvertImage(ObjNode,aPage);
'TfrBarCodeView':
aObj:=ConvertBarcode(ObjNode,aPage);
else else
DoLog(SLogUnknownClass,[NodeName,CT]); DoLog(SLogUnknownClass,[NodeName,CT]);
aObj:=Nil; aObj:=Nil;