-
Notifications
You must be signed in to change notification settings - Fork 21
/
example3.prg
27 lines (19 loc) · 928 Bytes
/
example3.prg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
*--------------------------------------------------------------------------------------
* Example3.prg
*--------------------------------------------------------------------------------------
* FoxBarcodeQR example label
*--------------------------------------------------------------------------------------
SET PROCEDURE TO LOCFILE("FoxBarcodeQR.prg") ADDITIVE
*--- Create FoxBarcodeQR private object
PRIVATE poFbc
m.poFbc = CREATEOBJECT("FoxBarcodeQR")
*-- New properties
m.poFbc.nCorrectionLevel = 2 && Level_Q
m.poFbc.nBarColor = RGB(128, 0, 0) && Dark Red
USE (HOME(2) + "Northwind\Customers.dbf") IN SELECT("Customers")
LABEL FORM FBC_QR_Label PREVIEW
USE IN SELECT("Customers")
m.poFbc = NULL
*--------------------------------------------------------------------------------------
* End Example3.prg
*--------------------------------------------------------------------------------------