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

lazbarcodes: Add palette icon for TLazbarcodeMaxicode

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8229 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-25 17:28:32 +00:00
parent ffb0bc8670
commit 1d32139e44
6 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazbarcodes/images/images.txt
View File

@ -47,3 +47,6 @@ tbarcodedatamatrix_200.png
tbarcodepdf417.png tbarcodepdf417.png
tbarcodepdf417_150.png tbarcodepdf417_150.png
tbarcodepdf417_200.png tbarcodepdf417_200.png
tbarcodemaxicode.png
tbarcodemaxicode_150.png
tbarcodemaxicode_200.png

BIN
components/lazbarcodes/images/tbarcodemaxicode.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 957 B

BIN
components/lazbarcodes/images/tbarcodemaxicode_150.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.6 KiB

BIN
components/lazbarcodes/images/tbarcodemaxicode_200.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

BIN
components/lazbarcodes/src/lazbarcodes_icons.res
View File

Binary file not shown.

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

@ -669,7 +669,8 @@ begin
TBarcodeQR, TBarcodeMicroQR, TBarcodeQR, TBarcodeMicroQR,
TBarcodeAztec, TBarcodeAztecRune, TBarcodeAztec, TBarcodeAztecRune,
TBarcodeDataMatrix, TBarcodeDataMatrix,
TBarcodePDF417 TBarcodePDF417,
TBarcodeMaxicode
]); ]);
RegisterPropertyEditor(TypeInfo(TCaption), TLazBarcodeCustomText, 'Text', TCaptionPropertyEditor); RegisterPropertyEditor(TypeInfo(TCaption), TLazBarcodeCustomText, 'Text', TCaptionPropertyEditor);
@ -3376,8 +3377,8 @@ end;
class function TBarcodeMaxiCode.GetControlClassDefaultSize: TSize; class function TBarcodeMaxiCode.GetControlClassDefaultSize: TSize;
begin begin
Result.CX := 88; Result.CX := 264;
Result.CY := 88; Result.CY := 257;
end; end;
function TBarcodeMaxiCode.InternalGenerate: Integer; function TBarcodeMaxiCode.InternalGenerate: Integer;