object NumFormatForm: TNumFormatForm Left = 336 Height = 394 Top = 173 Width = 559 BorderStyle = bsDialog Caption = 'Number format' ClientHeight = 394 ClientWidth = 559 ShowHint = True LCLVersion = '1.5' object ButtonPanel1: TButtonPanel Left = 6 Height = 34 Top = 354 Width = 547 OKButton.Name = 'OKButton' OKButton.Hint = 'Accept changes and close' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.Hint = 'Discard changes and close' CancelButton.DefaultCaption = True TabOrder = 2 ShowButtons = [pbOK, pbCancel] end object Panel1: TPanel Left = 0 Height = 297 Top = 0 Width = 122 Align = alLeft BevelOuter = bvNone ClientHeight = 297 ClientWidth = 122 TabOrder = 0 object Label1: TLabel Left = 6 Height = 15 Top = 6 Width = 112 Align = alTop BorderSpacing.Left = 2 BorderSpacing.Top = 2 BorderSpacing.Bottom = 2 BorderSpacing.Around = 4 Caption = 'Category' Font.Style = [fsBold] ParentColor = False ParentFont = False end object LbCategory: TListBox Left = 6 Height = 270 Top = 27 Width = 116 Align = alClient BorderSpacing.Left = 6 Items.Strings = ( 'Number' 'Percent' 'Scientific' 'Fraction' 'Currency' 'Date' 'Time' ) ItemHeight = 15 OnClick = LbCategoryClick TabOrder = 0 end end object Panel2: TPanel Left = 122 Height = 297 Top = 0 Width = 230 Align = alLeft BevelOuter = bvNone ClientHeight = 297 ClientWidth = 230 TabOrder = 1 object Label2: TLabel Left = 6 Height = 15 Top = 6 Width = 220 Align = alTop BorderSpacing.Left = 2 BorderSpacing.Top = 2 BorderSpacing.Bottom = 2 BorderSpacing.Around = 4 Caption = 'Format' Font.Style = [fsBold] ParentColor = False ParentFont = False end object LbFormat: TListBox Left = 6 Height = 225 Top = 27 Width = 224 Align = alClient BorderSpacing.Left = 6 ItemHeight = 0 OnClick = LbFormatClick OnDrawItem = LbFormatDrawItem Style = lbOwnerDrawFixed TabOrder = 0 end object CurrSymbolPanel: TPanel Left = 6 Height = 41 Top = 256 Width = 224 Align = alBottom BorderSpacing.Left = 6 BorderSpacing.Top = 4 BevelOuter = bvNone ClientHeight = 41 ClientWidth = 224 TabOrder = 1 Visible = False object Label5: TLabel Left = 0 Height = 15 Top = 0 Width = 224 Align = alTop BorderSpacing.Bottom = 2 Caption = 'Currency string' Font.Style = [fsBold] ParentColor = False ParentFont = False end object CbCurrSymbol: TComboBox Left = 0 Height = 23 Hint = 'List of registered currency symbols' Top = 16 Width = 200 Anchors = [akTop, akLeft, akRight] ItemHeight = 15 OnSelect = CbCurrSymbolSelect Style = csDropDownList TabOrder = 0 end object BtnAddCurrSymbol: TSpeedButton Left = 201 Height = 23 Hint = 'Add new currency symbol' Top = 16 Width = 23 Anchors = [akTop, akRight] Caption = '...' OnClick = BtnAddCurrSymbolClick end end end object DetailsPanel: TPanel Left = 352 Height = 297 Top = 0 Width = 207 Align = alClient BevelOuter = bvNone ClientHeight = 297 ClientWidth = 207 TabOrder = 3 object GbOptions: TGroupBox Left = 8 Height = 121 Top = 7 Width = 187 Anchors = [akTop, akLeft, akRight] Caption = 'Options' ClientHeight = 101 ClientWidth = 183 Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Label3: TLabel Left = 15 Height = 15 Top = 11 Width = 79 Caption = 'Decimal places' ParentColor = False ParentFont = False end object EdDecimals: TSpinEdit Left = 121 Height = 23 Top = 7 Width = 50 Anchors = [akTop, akRight] MaxValue = 16 OnChange = EdDecimalsChange ParentFont = False TabOrder = 0 end object CbThousandSep: TCheckBox Left = 15 Height = 19 Top = 40 Width = 125 Caption = 'Thousand separator' OnClick = CbThousandSepClick ParentFont = False TabOrder = 1 end object CbNegRed: TCheckBox Left = 15 Height = 19 Top = 67 Width = 100 Caption = 'Negative in red' OnClick = CbNegRedClick ParentFont = False TabOrder = 2 end end object GroupBox3: TGroupBox Left = 8 Height = 62 Top = 136 Width = 187 Anchors = [akTop, akLeft, akRight] Caption = 'Sample' ClientHeight = 42 ClientWidth = 183 Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Shape1: TShape Left = 8 Height = 34 Top = 0 Width = 167 Align = alClient BorderSpacing.Left = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 end object Sample: TLabel Left = 9 Height = 32 Top = 1 Width = 165 Align = alClient Alignment = taCenter AutoSize = False BorderSpacing.Left = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 BorderSpacing.Around = 1 Caption = 'Sample' Color = clWhite Layout = tlCenter ParentColor = False ParentFont = False Transparent = False end end end object GbFormatString: TGroupBox Left = 6 Height = 47 Top = 301 Width = 547 Align = alBottom BorderSpacing.Left = 6 BorderSpacing.Top = 4 BorderSpacing.Right = 6 Caption = 'Format string' ClientHeight = 27 ClientWidth = 543 Font.Style = [fsBold] ParentFont = False TabOrder = 4 object EdNumFormatStr: TEdit Left = 8 Height = 23 Hint = 'Number format string' Top = 0 Width = 483 Anchors = [akTop, akLeft, akRight] OnChange = EdNumFormatStrChange ParentFont = False TabOrder = 0 end object BtnAddFormat: TSpeedButton Left = 493 Height = 23 Hint = 'Add this format string to list' Top = 0 Width = 23 Anchors = [akTop, akRight] Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF0041924E233D8F497D3A8C44DB368940F332873CF32F84 37DB2C81337D287F3023FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF0049995853459653E6419950FF7DC28FFF96D0A6FF96CFA6FF78BE 89FF368D42FF2C8134E6297F3053FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00519F61534D9C5DF464B478FFA8DBB5FF87CC98FF66BC7DFF64BA7CFF86CB 98FFA5D9B4FF58AA6BFF2C8134F4297F3053FFFFFF00FFFFFF00FFFFFF0059A6 6B2256A366E56AB97DFFA8DBB2FF60BC77FF5CBA73FF59B870FF59B56FFF58B5 6FFF5BB774FFA5D9B3FF5AAA6CFF2C8234E5297F3022FFFFFF00FFFFFF005DA9 707E53AB68FFAADDB4FF64C179FF5FBE71FF60BC77FFFFFFFFFFFFFFFFFF59B8 70FF58B56EFF5CB774FFA6DAB4FF388F43FF2C82347EFFFFFF00FFFFFF0061AC 75DB8ACC98FF89D396FF6BC67AFF63C170FF55AB65FFFFFFFFFFFFFFFFFF59B8 70FF59B870FF5BB972FF85CC97FF7BBE8DFF308539DBFFFFFF00FFFFFF0065AF 7AF6A9DDB3FF7DCF8AFF75CC81FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF59B870FF67BE7DFF9CD4ABFF34883DF6FFFFFF00FFFFFF0069B2 7EF6B6E2BEFF8BD597FF7AC986FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF59B870FF69C17EFF9DD4AAFF388B42F6FFFFFF00FFFFFF006DB5 83DBACDDB6FFA6DFAFFF81CB8CFF7CC986FF6EBD79FFFFFFFFFFFFFFFFFF5BAC 6AFF60BC77FF5CBA73FF8BD199FF80C592FF3C8E47DBFFFFFF00FFFFFF0070B8 877E85C797FFD2EED7FF95D9A0FF8AD394FF7FC889FFFFFFFFFFFFFFFFFF79CD 85FF6BC37CFF6FC77EFFACDFB5FF459E57FF40914C7EFFFFFF00FFFFFF0073BA 8A2270B887E5AADAB7FFD8F1DCFF92D89DFF88CD93FF84CC8EFF8BD496FF8AD4 95FF83D28EFFAFE0B7FF6BB97DFF489856E544945122FFFFFF00FFFFFF00FFFF FF0073BB8B5370B887F4AFDCBBFFDCF2E0FFB6E4BDFF9BDBA5FF96D9A0FFA5DF AFFFC0E8C5FF79C28AFF509E5FF44C9B5B53FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF0073BB8B5371B887E694CEA4FFC3E6CBFFCFEBD4FFC9E9CEFFAFDD B8FF6DB97FFF58A569E654A16553FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF0074BB8B2371B9887D6EB684DB6AB380F367B17CF363AE 77DB60AB737D5CA86E23FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 } OnClick = BtnAddFormatClick end object BtnDeleteFormat: TSpeedButton Left = 516 Height = 23 Hint = 'Remove this format string from list' Top = 0 Width = 23 Anchors = [akTop, akRight] Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF003F54C3233A50C27D3853BEDB3551BDF3304BBCF32E4E B8DB2B4CB77D2748B523FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF004658C8534255C6E63C52CCFF757AE8FF8F92EEFF8F92EEFF7178 E4FF334DC1FF2B4AB7E6294BB553FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF004D5ACD534959CBF45C65E0FFA1A6F5FF7E86EFFF5B63E9FF595DE7FF7D84 EEFF9EA0F4FF515DD7FF2B4AB7F4294BB553FFFFFF00FFFFFF00FFFFFF00545F D2225361CFE5616BE3FFA1ACF5FF545FECFF505CEAFF4D59E9FF4E59E6FF4C56 E6FF5056E6FF9EA2F4FF5460D6FF2A4AB8E5294BB522FFFFFF00FFFFFF005860 D47E4B56DBFFA2ABF6FF5664F0FF5266EEFF4D59E9FF4D59E9FF4D59E9FF4D59 E9FF4C58E6FF525AE6FF9FA3F5FF3450C4FF2A4AB87EFFFFFF00FFFFFF005C62 D7DB818CEEFF7E91F7FF5D73F3FF4D59E9FF4D59E9FF4D59E9FF4D59E9FF4D59 E9FF4D59E9FF4F5BE9FF7B83F0FF757BE2FF2E4BBADBFFFFFF00FFFFFF005F63 DAF6A1ABF7FF7086F8FF6882F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF4D59E9FF5C66EAFF969CF1FF3250BCF6FFFFFF00FFFFFF006469 DBF6AFB9F9FF7F93FAFF7085F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF4D59E9FF5E6AEEFF969DF1FF364FBEF6FFFFFF00FFFFFF00676A DEDBA5AFF5FF9DABFAFF778CF0FF545FECFF545FECFF545FECFF545FECFF545F ECFF545FECFF6377F2FF818EF4FF787FE9FF3A53C0DBFFFFFF00FFFFFF006A69 E07E7D83EAFFCDD4FCFF8B9DFAFF7E93F7FF758AEEFF6C84F6FF6C84F6FF6C84 F6FF6C84F6FF6379F3FFA4AFF8FF3E4FD0FF3E54C27EFFFFFF00FFFFFF006C6C E1226A69E0E5A3A7F3FFD4DBFDFF879AFAFF7F91F0FF7A8EF1FF7F94F8FF7E92 F9FF768CF8FFA8B6F8FF636EE3FF4557C7E54156C522FFFFFF00FFFFFF00FFFF FF006D6CE3536A69E0F4AAADF2FFD8DCFDFFAEBAFAFF91A3FAFF8B9DFAFF9CA9 FBFFBAC7FCFF707BE9FF4C5BCCF44858CA53FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF006D6CE3536A6ADFE68E93EDFFBEC3F8FFCCD3F9FFC4CBF9FFAAB4 F4FF6670E2FF535ED1E6505DCE53FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF006D6DE2236B6AE17D686ADDDB6364DCF36164DAF35D63 D9DB5B63D67D5862D423FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 } OnClick = BtnDeleteFormatClick end end end