Files
wp_xxyyzz 99bd06cca6 LazBarcodes: Add QRClock demo project.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8356 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2022-07-20 12:29:04 +00:00

1007 lines
31 KiB
Plaintext

object MainForm: TMainForm
Left = 338
Height = 484
Top = 127
Width = 811
Caption = 'LazBarcode Demo'
ClientHeight = 484
ClientWidth = 811
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object BarcodesTree: TTreeView
Left = 6
Height = 472
Top = 6
Width = 194
Align = alLeft
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 3
BorderSpacing.Bottom = 6
ReadOnly = True
TabOrder = 0
OnChange = BarcodesTreeChange
OnCustomDrawItem = BarcodesTreeCustomDrawItem
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object Panel1: TPanel
Left = 211
Height = 472
Top = 6
Width = 594
Align = alClient
BorderSpacing.Left = 3
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BevelOuter = bvNone
ClientHeight = 472
ClientWidth = 594
TabOrder = 1
object Panel2: TPanel
Left = 0
Height = 336
Top = 0
Width = 594
Align = alTop
BevelOuter = bvNone
ClientHeight = 336
ClientWidth = 594
TabOrder = 0
object lblText: TLabel
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = edText
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 4
Width = 21
Caption = 'Text'
ParentColor = False
end
object edText: TEdit
AnchorSideLeft.Control = lblText
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
AnchorSideRight.Control = btnSampleText
Left = 33
Height = 23
Top = 0
Width = 485
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Right = 4
OnChange = edTextChange
TabOrder = 0
Text = '012345678'
end
object gbGeometry: TGroupBox
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = edText
AnchorSideTop.Side = asrBottom
Left = 0
Height = 173
Top = 35
Width = 189
AutoSize = True
BorderSpacing.Top = 12
Caption = 'Geometry'
ClientHeight = 153
ClientWidth = 185
TabOrder = 1
object lblScale: TLabel
AnchorSideLeft.Control = gbGeometry
AnchorSideTop.Control = seScale
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 50
Width = 27
BorderSpacing.Left = 16
Caption = 'Scale'
Enabled = False
ParentColor = False
end
object seScale: TSpinEdit
AnchorSideLeft.Control = seWhiteSpaceWidth
AnchorSideTop.Control = cbRecommendedSymbolSize
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbRecommendedSymbolSize
AnchorSideRight.Side = asrBottom
Left = 105
Height = 23
Top = 46
Width = 74
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
Enabled = False
MaxValue = 20
OnChange = BarcodeChange
TabOrder = 0
end
object seMargin: TSpinEdit
AnchorSideLeft.Control = seWhiteSpaceWidth
AnchorSideTop.Control = seScale
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbRecommendedSymbolSize
AnchorSideRight.Side = asrBottom
Left = 105
Height = 23
Top = 72
Width = 74
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
Enabled = False
MaxValue = 20
OnChange = BarcodeChange
TabOrder = 1
Value = 4
end
object lblMargin: TLabel
AnchorSideLeft.Control = gbGeometry
AnchorSideTop.Control = seMargin
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 76
Width = 38
BorderSpacing.Left = 16
Caption = 'Margin'
Enabled = False
ParentColor = False
end
object lblWhiteSpaceWidth: TLabel
AnchorSideLeft.Control = gbGeometry
AnchorSideTop.Control = seWhiteSpaceWidth
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 102
Width = 64
BorderSpacing.Left = 16
Caption = 'White space'
Enabled = False
ParentColor = False
end
object seWhiteSpaceWidth: TSpinEdit
AnchorSideLeft.Control = seSymbolHeight
AnchorSideTop.Control = seMargin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbRecommendedSymbolSize
AnchorSideRight.Side = asrBottom
Left = 105
Height = 23
Top = 98
Width = 74
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
Enabled = False
MaxValue = 20
OnChange = BarcodeChange
TabOrder = 2
Value = 8
end
object lblSymbolHeight: TLabel
AnchorSideLeft.Control = gbGeometry
AnchorSideTop.Control = seSymbolHeight
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 128
Width = 77
BorderSpacing.Left = 16
Caption = 'Symbol height'
Enabled = False
ParentColor = False
end
object seSymbolHeight: TSpinEdit
AnchorSideLeft.Control = lblSymbolHeight
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seWhiteSpaceWidth
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbRecommendedSymbolSize
AnchorSideRight.Side = asrBottom
Left = 105
Height = 23
Top = 124
Width = 74
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 3
BorderSpacing.Bottom = 6
Enabled = False
MaxValue = 9999
OnChange = BarcodeChange
TabOrder = 3
end
object cbRecommendedSymbolSize: TCheckBox
AnchorSideLeft.Control = gbGeometry
AnchorSideTop.Control = cbAutoSize
AnchorSideTop.Side = asrBottom
Left = 16
Height = 19
Top = 19
Width = 163
BorderSpacing.Left = 16
BorderSpacing.Right = 6
Caption = 'Recommended symbol size'
Checked = True
OnChange = cbRecommendedSymbolSizeChange
State = cbChecked
TabOrder = 4
end
object cbAutoSize: TCheckBox
AnchorSideLeft.Control = gbGeometry
AnchorSideTop.Control = gbGeometry
Left = 16
Height = 19
Top = 0
Width = 66
BorderSpacing.Left = 16
Caption = 'Auto size'
OnChange = cbAutoSizeChange
TabOrder = 5
end
end
object gbShow: TGroupBox
AnchorSideLeft.Control = gbGeometry
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbGeometry
Left = 205
Height = 74
Top = 35
Width = 213
AutoSize = True
BorderSpacing.Left = 16
Caption = 'Show...'
ClientHeight = 54
ClientWidth = 209
TabOrder = 2
object cbHumanReadableText: TCheckBox
AnchorSideLeft.Control = gbShow
AnchorSideTop.Control = gbShow
Left = 16
Height = 19
Top = 0
Width = 131
BorderSpacing.Left = 16
Caption = 'Human-readable text'
Checked = True
OnChange = BarcodeChange
State = cbChecked
TabOrder = 0
end
object cmbBearerBarsBox: TComboBox
AnchorSideLeft.Control = gbShow
AnchorSideTop.Control = cbHumanReadableText
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnFont
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 25
Width = 187
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Enabled = False
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'none'
'Bearer bars'
'Box'
)
OnChange = BarcodeChange
Style = csDropDownList
TabOrder = 2
Text = 'none'
end
object btnFont: TButton
AnchorSideLeft.Control = cbHumanReadableText
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbHumanReadableText
AnchorSideTop.Side = asrCenter
Left = 153
Height = 25
Top = -3
Width = 50
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Font'
OnClick = btnFontClick
TabOrder = 1
end
end
object gbChecksum: TGroupBox
AnchorSideLeft.Control = gbShow
AnchorSideTop.Control = gbShow
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbShow
AnchorSideRight.Side = asrBottom
Left = 205
Height = 68
Top = 121
Width = 213
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 12
Caption = 'Checksum'
ClientHeight = 48
ClientWidth = 209
TabOrder = 6
object cbAddChecksum: TCheckBox
AnchorSideLeft.Control = gbChecksum
AnchorSideTop.Control = gbChecksum
Left = 16
Height = 19
Top = 0
Width = 97
BorderSpacing.Left = 16
Caption = 'Add checksum'
Checked = True
OnChange = BarcodeChange
State = cbChecked
TabOrder = 0
end
object cbDisplayChecksum: TCheckBox
AnchorSideLeft.Control = cbAddChecksum
AnchorSideTop.Control = cbAddChecksum
AnchorSideTop.Side = asrBottom
Left = 16
Height = 19
Top = 23
Width = 113
BorderSpacing.Top = 4
BorderSpacing.Bottom = 6
Caption = 'Display checksum'
OnChange = BarcodeChange
TabOrder = 1
end
end
object gbColors: TGroupBox
AnchorSideLeft.Control = gbGeometry
AnchorSideTop.Control = gbGeometry
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbGeometry
AnchorSideRight.Side = asrBottom
Left = 0
Height = 109
Top = 224
Width = 189
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 16
Caption = 'Colors'
ClientHeight = 89
ClientWidth = 185
TabOrder = 3
object clbBackground: TColorButton
AnchorSideLeft.Control = gbColors
AnchorSideTop.Control = clbColor
AnchorSideTop.Side = asrBottom
Left = 8
Height = 25
Top = 29
Width = 144
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clWhite
Caption = 'Background color'
OnColorChanged = BarcodeChange
end
object clbForeground: TColorButton
AnchorSideLeft.Control = clbBackground
AnchorSideTop.Control = clbBackground
AnchorSideTop.Side = asrBottom
Left = 8
Height = 25
Top = 58
Width = 144
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 6
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBackground
Caption = 'Foreground color'
OnColorChanged = BarcodeChange
end
object clbColor: TColorButton
AnchorSideLeft.Control = gbColors
AnchorSideTop.Control = gbColors
Left = 8
Height = 25
Top = 0
Width = 144
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clWindow
Caption = 'Control color '
OnColorChanged = BarcodeChange
end
end
object btnSaveToFile: TBitBtn
AnchorSideLeft.Control = gbChecksum
AnchorSideTop.Control = gbColors
AnchorSideRight.Control = btnCopyToClipboard
AnchorSideRight.Side = asrBottom
Left = 205
Height = 25
Top = 233
Width = 121
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 9
Caption = 'Save to file...'
OnClick = btnSaveToFileClick
TabOrder = 4
end
object btnCopyToClipboard: TBitBtn
AnchorSideLeft.Control = gbChecksum
AnchorSideTop.Control = btnSaveToFile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 205
Height = 25
Top = 264
Width = 121
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Copy to clipboard'
OnClick = btnCopyToClipboardClick
TabOrder = 5
end
object btnSampleText: TSpeedButton
AnchorSideTop.Control = edText
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom
Left = 522
Height = 19
Top = 2
Width = 72
Anchors = [akTop, akRight]
AutoSize = True
Caption = ' Sample text '
OnClick = btnSampleTextClick
end
object nbOptions: TNotebook
AnchorSideLeft.Control = gbShow
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbGeometry
Left = 434
Height = 293
Top = 35
Width = 152
PageIndex = 0
BorderSpacing.Left = 16
TabOrder = 7
object pgOptions_QR: TPage
object rgQR_ECCLevel: TRadioGroup
Left = 0
Height = 137
Top = 0
Width = 152
Align = alTop
AutoFill = True
Caption = 'ECC level'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 117
ClientWidth = 148
ItemIndex = 0
Items.Strings = (
'automatic'
'L'
'M'
'Q'
'H'
)
OnClick = rgQR_ECCLevelClick
TabOrder = 0
end
end
object pgOptions_Plessey: TPage
object rgPlessey_Checkchar: TRadioGroup
Left = 0
Height = 104
Top = 0
Width = 152
Align = alTop
AutoFill = True
Caption = 'Checksum options'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 84
ClientWidth = 148
ItemIndex = 0
Items.Strings = (
'mod-10'
'mod-10 & mod-10'
'mod-11'
'mod-10 & mod-11'
)
OnClick = rgPlessey_CheckcharClick
TabOrder = 0
end
end
object pgOptions_Maxicode: TPage
object rgMaxicode_Mode: TRadioGroup
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = pgOptions_Maxicode
AnchorSideRight.Control = pgOptions_Maxicode
AnchorSideRight.Side = asrBottom
Left = 0
Height = 88
Top = 0
Width = 152
Anchors = [akTop, akLeft, akRight]
AutoFill = True
Caption = 'Mode'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 68
ClientWidth = 148
Columns = 2
ItemIndex = 0
Items.Strings = (
'auto'
'Mode 2'
'Mode 3'
'Mode 4'
'Mode 5'
'Mode 6'
)
OnClick = rgMaxicode_ModeClick
TabOrder = 0
end
object lblMaxicode_Postcode: TLabel
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = rgMaxicode_Mode
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 104
Width = 52
BorderSpacing.Top = 16
Caption = 'Post code'
ParentColor = False
end
object edMaxicode_Postcode: TEdit
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = lblMaxicode_Postcode
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pgOptions_Maxicode
AnchorSideRight.Side = asrBottom
Left = 0
Height = 23
Top = 119
Width = 152
Anchors = [akTop, akLeft, akRight]
OnChange = edMaxicode_PostcodeChange
TabOrder = 1
TextHint = 'Enter postcode here'
end
object lblMaxicode_CountryCode: TLabel
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = edMaxicode_Postcode
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 150
Width = 128
BorderSpacing.Top = 8
Caption = 'Country code (ISO 3166)'
ParentColor = False
end
object cbMaxicode_CountryCode: TComboBox
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = lblMaxicode_CountryCode
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pgOptions_Maxicode
AnchorSideRight.Side = asrBottom
Left = 0
Height = 23
Top = 167
Width = 152
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
DropDownCount = 24
ItemHeight = 15
Items.Strings = (
'004 - AFGHANISTAN'
'248 - ALAND ISLANDS'
'008 - ALBANIA'
'012 - ALGERIA'
'016 - AMERICAN SAMOA'
'020 - ANDORRA'
'024 - ANGOLA'
'660 - ANGUILLA'
'010 - ANTARCTICA'
'028 - ANTIGUA AND BARBUDA'
'032 - ARGENTINA'
'051 - ARMENIA'
'053 - ARUBA'
'036 - AUSTRALIA'
'040- AUSTRIA'
'031 - AZERBAIJAN'
'044 - BAHAMAS'
'048 - BAHRAIN'
'050 - BANGLADESH'
'052 - BARBADOS'
'112 - BELARUS'
'056 - BELGIUM'
'084 - BELIZE'
'204 - BENIN'
'060 - BERMUDA'
'064 - BHUTAN'
'068 - BOLIVIA'
'070 - BOSNIA AND HERZEGOVINA'
'072 - BOTSWANA'
'074 - BOUVET ISLAND'
'076 - BRAZIL'
'086 - BRITISH INDIAN OCEAN TERRITORY'
'096 - BRUNEI DARUSSALAM'
'100 - BULGARIA'
'854 - BURKINA FASO'
'108 - BURUNDI'
'116 - CAMBODIA'
'120 - CAMEROON'
'124 - CANADA'
'132 - CAPE VERDE'
'136 - CAYMAN ISLANDS'
'140 - CENTRAL AFRICAN REPUBLIC'
'148 - CHAD'
'152- CHILE'
'156 - CHINA'
'162 - CHRISTMAS ISLAND'
'166 - COCOS (KEELING) ISLANDS'
'170 - COLOMBIA'
'174 - COMOROS'
'178 - CONGO'
'180 - CONGO, THE DEMOCRATIC REPUBLIC OF THE'
'184 - COOK ISLANDS'
'188 - COSTA RICA'
'384 - COTE D''IVOIRE'
'191 - CROATIA'
'192 - CUBA'
'196 - CYPRUS'
'203 - CZECH REPUBLIC'
'208 - DENMARK'
'262 - DJIBOUTI'
'212 - DOMINICA'
'214 - DOMINICAN REPUBLIC'
'218 - ECUADOR'
'818 - EGYPT'
'222 - EL SALVADOR'
'226 - EQUATORIAL GUINEA'
'232 - ERITREA'
'233 - ESTONIA'
'231 - ETHIOPIA'
'238 - FALKLAND ISLANDS (MALVINAS)'
'234 - FAROE ISLANDS'
'242 - FIJI'
'246 - FINLAND'
'250 - FRANCE'
'254 - FRENCH GUIANA'
'258 - FRENCH POLYNESIA'
'260 - FRENCH SOUTHERN TERRITORIES'
'266 - GABON'
'270 - GAMBIA'
'268 - GEORGIA'
'276 - GERMANY'
'288 - GHANA'
'292 - GIBRALTAR'
'300 - GREECE'
'304 - GREENLAND'
'308 - GRENADA'
'312 - GUADELOUPE'
'316 - GUAM'
'320 - GUATEMALA'
'831 - GUERNSEY'
'324 - GUINEA'
'624 - GUINEA-BISSAU'
'328 - GUYANA'
'332 - HAITI'
'334 - HEARD ISLAND AND MCDONALD ISLANDS'
'336 - HOLY SEE (VATICAN CITY STATE)'
'340 - HONDURAS'
'344 - HONG KONG'
'348 - HUNGARY'
'352 - ICELAND'
'356 - INDIA'
'360 - INDONESIA'
'364 - IRAN (ISLAMIC REPUBLIC OF)'
'368 - IRAQ'
'372 - IRELAND'
'833 - ISLE OF MAN'
'376 - ISRAEL'
'380 - ITALY'
'388 - JAMAICA'
'392 - JAPAN'
'832 - JERSEY'
'400 - JORDAN'
'398 - KAZAKHSTAN'
'404 - KENYA'
'296 - KIRIBATI'
'408 - KOREA, DEMOCRATIC PEOPLE''S REPUBLIC OF'
'410 - KOREA, REPUBLIC OF'
'414 - KUWAIT'
'417 - KYRGYZSTAN'
'418 - LAO PEOPLE''S DEMOCRATIC REPUBLIC'
'428 - LATVIA'
'422 - LEBANON'
'426 - LESOTHO'
'430 - LIBERIA'
'434 - LIBYAN ARAB JAMAHIRIYA'
'438 - LIECHTENSTEIN'
'440 - LITHUANIA'
'442 - LUXEMBOURG'
'446 - MACAO'
'807 - MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF'
'450 - MADAGASCAR'
'454 - MALAWI'
'458 - MALAYSIA'
'462 - MALDIVES'
'466 - MALI'
'470 - MALTA'
'584 - MARSHALL ISLANDS'
'474 - MARTINIQUE'
'478 - MAURITANIA'
'480 - MAURITIUS'
'175 - MAYOTTE'
'484 - MEXICO'
'583 - MICRONESIA, FEDERATED STATES OF'
'498 - MOLDOVA, REPUBLIC OF'
'492 - MONACO'
'496 - MONGOLIA'
'499 - MONTENEGRO'
'500 - MONTSERRAT'
'504 - MOROCCO'
'508 - MOZAMBIQUE'
'104 - MYANMAR'
'516 - NAMIBIA'
'520 - NAURU'
'524 - NEPAL'
'528 - NETHERLANDS'
'530 - NETHERLANDS ANTILLES'
'540 - NEW CALEDONIA'
'554 - NEW ZEALAND'
'558 - NICARAGUA'
'562 - NIGER'
'566 - NIGERIA'
'570 - NIUE'
'574 - NORFOLK ISLAND'
'580 - NORTHERN MARIANA ISLANDS'
'578 - NORWAY'
'512 - OMAN'
'586 - PAKISTAN'
'585 - PALAU'
'275 - PALESTINIAN TERRITORY, OCCUPIED'
'591 - PANAMA'
'598 - PAPUA NEW GUINEA'
'600 - PARAGUAY'
'604 - PERU'
'608 - PHILIPPINES'
'612 - PITCAIRN'
'616 - POLAND'
'620 - PORTUGAL'
'630 - PUERTO RICO'
'634 - QATAR'
'638 - REUNION'
'642 - ROMANIA'
'643 - RUSSIAN FEDERATION'
'646 - RWANDA'
'654 - SAINT HELENA'
'659 - SAINT KITTS AND NEVIS'
'662 - SAINT LUCIA'
'666 - SAINT PIERRE AND MIQUELON'
'670 - SAINT VINCENT AND THE GRENADINES'
'882 - SAMOA'
'674 - SAN MARINO'
'678 - SAO TOME AND PRINCIPE'
'682 - SAUDI ARABIA'
'686 - SENEGAL'
'688 - SERBIA'
'690 - SEYCHELLES'
'694 - SIERRA LEONE'
'702 - SINGAPORE'
'703 - SLOVAKIA'
'705 - SLOVENIA'
'090 - SOLOMON ISLANDS'
'706 - SOMALIA'
'710 - SOUTH AFRICA'
'239 - SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS'
'724 - SPAIN'
'144 - SRI LANKA'
'736 - SUDAN'
'740 - SURINAME'
'744 - SVALBARD AND JAN MAYEN'
'654 - ST. HELENA'
'666 - ST. PIERRE AND MIQUELON'
'748 - SWAZILAND'
'752 - SWEDEN'
'756 - SWITZERLAND'
'760 - SYRIAN ARAB REPUBLIC'
'158 - TAIWAN, PROVINCE OF CHINA'
'762 - TAJIKISTAN'
'834 - TANZANIA, UNITED REPUBLIC OF'
'764 - THAILAND'
'626 - TIMOR-LESTE'
'768 - TOGO'
'772 - TOKELAU'
'776 - TONGA'
'780 - TRINIDAD AND TOBAGO'
'788 - TUNISIA'
'792 - TURKEY'
'795 - TURKMENISTAN'
'796 - TURKS AND CAICOS ISLANDS'
'798 - TUVALU'
'800 - UGANDA'
'804 - UKRAINE'
'784 - UNITED ARAB EMIRATES'
'826 - UNITED KINGDOM'
'840 - UNITED STATES'
'581 - UNITED STATES MINOR OUTLYING ISLANDS'
'858 - URUGUAY'
'860 - UZBEKISTAN'
'548 - VANUATU'
'336 - VATICAN CITY STATE (HOLY SEE)'
'862 - VENEZUELA'
'704 - VIET NAM'
'092 - VIRGIN ISLANDS (BRITISH)'
'850 - VIRGIN ISLANDS (U.S.)'
'876 - WALLIS AND FUTUNA'
'732 - WESTERN SAHARA'
'887 - YEMEN'
'891 - YUGOSLAVIA'
'894 - ZAMBIA'
'716 - ZIMBABWE'
)
OnChange = cbMaxicode_CountryCodeChange
TabOrder = 2
TextHint = 'Select item'
end
object lblMaxicode_ServiceCode: TLabel
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = cbMaxicode_CountryCode
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 198
Width = 66
BorderSpacing.Top = 8
Caption = 'Service code'
ParentColor = False
end
object edMaxicode_ServiceCode: TEdit
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = lblMaxicode_ServiceCode
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pgOptions_Maxicode
AnchorSideRight.Side = asrBottom
Left = 0
Height = 23
Top = 215
Width = 152
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
MaxLength = 3
OnChange = edMaxicode_ServiceCodeChange
TabOrder = 3
TextHint = 'Enter carrier-specific service code'
end
object lblMaxicode_Primary: TLabel
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = edMaxicode_ServiceCode
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 246
Width = 64
BorderSpacing.Top = 8
Caption = 'Primary text'
ParentColor = False
end
object edMaxicode_Primary: TEdit
AnchorSideLeft.Control = pgOptions_Maxicode
AnchorSideTop.Control = lblMaxicode_Primary
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pgOptions_Maxicode
AnchorSideRight.Side = asrBottom
Left = 0
Height = 23
Top = 263
Width = 152
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
Enabled = False
OnChange = edMaxicode_PrimaryChange
TabOrder = 4
end
end
end
end
object BarcodePanel: TPanel
Left = 0
Height = 136
Top = 336
Width = 594
Align = alClient
BorderSpacing.InnerBorder = 6
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 136
ClientWidth = 594
TabOrder = 1
object lblError: TLabel
AnchorSideLeft.Control = BarcodePanel
AnchorSideTop.Control = BarcodePanel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BarcodePanel
AnchorSideRight.Side = asrBottom
Left = 2
Height = 15
Top = 61
Width = 590
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
Caption = 'lblError'
Font.Color = clRed
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Visible = False
WordWrap = True
end
end
end
object Splitter1: TSplitter
Left = 203
Height = 484
Top = 0
Width = 5
end
object FontDialog: TFontDialog
MinFontSize = 0
MaxFontSize = 0
Left = 568
Top = 8
end
object SaveDialog1: TSaveDialog
OnTypeChange = SaveDialogTypeChange
Left = 568
Top = 240
end
end