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

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

@ -48,6 +48,26 @@ published
property ForegroundColor: TColor read GetForegroundColor write SetForegroundColor default clBlack; property ForegroundColor: TColor read GetForegroundColor write SetForegroundColor default clBlack;
property Width default 88; property Width default 88;
property Height 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; end;
{ TLazBarcodeCustomText } { TLazBarcodeCustomText }
@ -287,8 +307,7 @@ begin
FBackgroundColor:=clWhite; FBackgroundColor:=clWhite;
FForegroundColor:=clBlack; FForegroundColor:=clBlack;
FStrictSize:=true; FStrictSize:=true;
Width := 88; SetInitialBounds(0,0,88,88);
Height := 88;
end; end;
destructor TLazBarcodeCustomBase.Destroy; destructor TLazBarcodeCustomBase.Destroy;