diff --git a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk index d779c9c27..948eb11ca 100644 --- a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk +++ b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk @@ -1,22 +1,16 @@ - + - + - - - - - - @@ -73,5 +67,8 @@ + + <_ExternHelp Items="Count"/> + diff --git a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas index 56583fa27..328515b36 100644 --- a/components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas +++ b/components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas @@ -2,8 +2,9 @@ This source is only used to compile and install the package. } -unit lazbarcodes_runtimeonly; +unit lazbarcodes_runtimeonly; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/lazbarcodes/src/ubarcodes.pas b/components/lazbarcodes/src/ubarcodes.pas index 0d98e4221..91e2709be 100644 --- a/components/lazbarcodes/src/ubarcodes.pas +++ b/components/lazbarcodes/src/ubarcodes.pas @@ -48,6 +48,26 @@ published property ForegroundColor: TColor read GetForegroundColor write SetForegroundColor default clBlack; property Width default 88; property Height default 88; + + property OnPaint; + property OnResize; + property OnShowHint; + property OnClick; + property OnDblClick; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property OnMouseEnter; + property OnMouseLeave; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; + property OnDragDrop; + property OnDragOver; + property OnEndDock; + property OnEndDrag; + property OnStartDock; + property OnStartDrag; end; { TLazBarcodeCustomText } @@ -287,8 +307,7 @@ begin FBackgroundColor:=clWhite; FForegroundColor:=clBlack; FStrictSize:=true; - Width := 88; - Height := 88; + SetInitialBounds(0,0,88,88); end; destructor TLazBarcodeCustomBase.Destroy;