pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazbarcodes: Publish some inherited properties.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6139 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-01-16 11:25:47 +00:00
parent 022167f11e
commit 8a83458360
3 changed files with 28 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazbarcodes/packages/lazbarcodes_runtimeonly.lpk
View File

@@ -1,22 +1,16 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="lazbarcodes_runtimeonly"/>
<Author Value="José Mejuto"/>
<CompilerOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<OtherUnitFiles Value="..\src"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="Provides barcode 1D and 2D generation based in the 'C' zint library."/>
<License Value="GNU General Public License version 3.0 (GPLv3)"/>
@@ -73,5 +67,8 @@
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<CustomOptions Items="ExternHelp" Version="2">
<_ExternHelp Items="Count"/>
</CustomOptions>
</Package>
</CONFIG>

3
components/lazbarcodes/packages/lazbarcodes_runtimeonly.pas
View File

@@ -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

23
components/lazbarcodes/src/ubarcodes.pas
View File

@@ -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;