object frmHTML2Form: TfrmHTML2Form Left = 472 Height = 484 Top = 247 Width = 633 Caption = 'HTML to Form' ClientHeight = 484 ClientWidth = 633 OnCreate = FormCreate LCLVersion = '2.3.0.0' object BPHTMLToForm: TButtonPanel Left = 6 Height = 38 Top = 440 Width = 621 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 0 ShowButtons = [pbOK, pbCancel] end object PCOptions: TPageControl Left = 0 Height = 394 Top = 40 Width = 633 ActivePage = TSHTML Align = alClient TabIndex = 0 TabOrder = 1 object TSHTML: TTabSheet Caption = 'HTML File' ClientHeight = 364 ClientWidth = 623 OnContextPopup = TSHTMLContextPopup object lblHTMLFile: TLabel AnchorSideTop.Control = FEHTMLFile AnchorSideTop.Side = asrCenter AnchorSideRight.Control = FEHTMLFile Left = 40 Height = 16 Top = 13 Width = 88 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'HTML File' ParentColor = False end object FEHTMLFile: TFileNameEdit AnchorSideRight.Side = asrBottom Left = 136 Height = 27 Top = 8 Width = 434 DialogOptions = [ofFileMustExist, ofEnableSizing, ofViewDetail] FilterIndex = 0 HideDirectories = False ButtonWidth = 23 NumGlyphs = 1 Anchors = [akTop, akLeft, akRight] MaxLength = 0 TabOrder = 0 OnEditingDone = FEHTMLFileEditingDone end object cbAddHTMLFile: TCheckBox AnchorSideTop.Control = FEHTMLFile AnchorSideTop.Side = asrBottom Left = 136 Height = 23 Top = 43 Width = 174 BorderSpacing.Top = 8 Caption = 'Add HTML file to project' TabOrder = 1 end object cbBelowID: TComboBox AnchorSideLeft.Control = FEHTMLFile AnchorSideTop.Control = cbAddHTMLFile AnchorSideTop.Side = asrBottom Left = 136 Height = 27 Top = 74 Width = 216 BorderSpacing.Top = 8 ItemHeight = 0 TabOrder = 2 end object lblBelowID: TLabel AnchorSideTop.Control = cbBelowID AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbBelowID Left = 10 Height = 16 Top = 79 Width = 118 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'Below element ID' ParentColor = False end object mExclude: TMemo AnchorSideLeft.Control = FEHTMLFile AnchorSideTop.Control = cbBelowID AnchorSideTop.Side = asrBottom Left = 136 Height = 245 Top = 109 Width = 424 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 8 Lines.Strings = ( 'mExclude' ) TabOrder = 3 end object lblExclude: TLabel AnchorSideTop.Control = mExclude AnchorSideRight.Control = mExclude Left = 16 Height = 16 Top = 117 Width = 112 Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'Exclude elements' ParentColor = False end end object TSCodeGen: TTabSheet Caption = 'Generated code' ClientHeight = 364 ClientWidth = 623 object edtFormClassName: TEdit AnchorSideTop.Control = TSCodeGen Left = 136 Height = 27 Top = 8 Width = 216 BorderSpacing.Top = 8 TabOrder = 0 end object cbParentName: TComboBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = edtFormClassName AnchorSideTop.Side = asrBottom Left = 136 Height = 27 Top = 43 Width = 216 BorderSpacing.Top = 8 ItemHeight = 0 TabOrder = 1 end object cbGetElementFunction: TComboBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = cbParentName AnchorSideTop.Side = asrBottom Left = 136 Height = 27 Top = 78 Width = 216 BorderSpacing.Top = 8 ItemHeight = 0 TabOrder = 2 end object CBEvents: TCheckBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = cbGetElementFunction AnchorSideTop.Side = asrBottom Left = 136 Height = 23 Top = 113 Width = 174 BorderSpacing.Top = 8 Caption = 'Generate event handlers' OnChange = CBEventsChange TabOrder = 3 end object lblGetElements: TLabel AnchorSideTop.Control = cbGetElementFunction AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbGetElementFunction Left = 32 Height = 16 Top = 83 Width = 96 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'GetElement' ParentColor = False end object cgOverrides: TCheckGroup AnchorSideTop.Control = edtFormClassName Left = 360 Height = 105 Top = 8 Width = 185 AutoFill = True Caption = 'Overrides' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 88 ClientWidth = 183 Items.Strings = ( 'Constructor' 'BindElements' 'BindElementEvents' ) TabOrder = 8 Data = { 03000000020202 } end object cbEventSignature: TComboBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = CBEvents AnchorSideTop.Side = asrBottom Left = 136 Height = 27 Top = 144 Width = 216 BorderSpacing.Top = 8 ItemHeight = 0 TabOrder = 4 end object cbEventModifiers: TComboBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = cbEventSignature AnchorSideTop.Side = asrBottom Left = 136 Height = 27 Top = 179 Width = 216 BorderSpacing.Top = 8 ItemHeight = 0 TabOrder = 5 end object cgAddFunctions: TCheckGroup AnchorSideLeft.Control = cgOverrides AnchorSideTop.Control = cgOverrides AnchorSideTop.Side = asrBottom Left = 360 Height = 105 Top = 121 Width = 185 AutoFill = True BorderSpacing.Top = 8 Caption = 'Add methods' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 88 ClientWidth = 183 Items.Strings = ( 'Constructor' 'BindElements' 'BindElementEvents' ) TabOrder = 9 Data = { 03000000020202 } end object cgVirtualFunctions: TCheckGroup AnchorSideLeft.Control = cgOverrides AnchorSideTop.Control = cgAddFunctions AnchorSideTop.Side = asrBottom Left = 360 Height = 105 Top = 234 Width = 185 AutoFill = True BorderSpacing.Top = 8 Caption = 'Virtual methods' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 88 ClientWidth = 183 Items.Strings = ( 'Constructor' 'BindElements' 'BindElementEvents' ) TabOrder = 10 Data = { 03000000020202 } end object cbConstructorArgs: TComboBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = cbEventModifiers AnchorSideTop.Side = asrBottom Left = 136 Height = 27 Top = 215 Width = 216 BorderSpacing.Top = 9 ItemHeight = 0 TabOrder = 6 end object lblClassName: TLabel AnchorSideTop.Control = edtFormClassName AnchorSideTop.Side = asrCenter AnchorSideRight.Control = edtFormClassName Left = 30 Height = 16 Top = 13 Width = 98 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'Class name' ParentColor = False end object lblParentClassName: TLabel AnchorSideTop.Control = cbParentName AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbParentName Left = 10 Height = 16 Top = 48 Width = 118 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'Parent class name' ParentColor = False end object lblEventSignature: TLabel AnchorSideTop.Control = cbEventSignature AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbEventSignature Left = 30 Height = 16 Top = 149 Width = 98 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'Event signature' ParentColor = False end object lblEventModifiers: TLabel AnchorSideTop.Control = cbEventModifiers AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbEventModifiers Left = 24 Height = 16 Top = 184 Width = 104 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'Event modifiers' ParentColor = False end object lblConstructorArgs: TLabel AnchorSideTop.Control = cbConstructorArgs AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbConstructorArgs Left = 23 Height = 16 Top = 220 Width = 105 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'Constructor args' ParentColor = False end object FETagMapFile: TFileNameEdit Left = 137 Height = 27 Top = 344 Width = 436 FilterIndex = 0 HideDirectories = False ButtonWidth = 23 NumGlyphs = 1 Anchors = [akTop, akLeft, akRight] MaxLength = 0 TabOrder = 11 end object lblTagMap: TLabel AnchorSideTop.Control = FETagMapFile AnchorSideTop.Side = asrCenter AnchorSideRight.Control = FETagMapFile Left = 24 Height = 16 Top = 349 Width = 105 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'Tag Map file' ParentColor = False end object cbDefaultElements: TCheckBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = cbConstructorArgs AnchorSideTop.Side = asrBottom Left = 136 Height = 23 Top = 250 Width = 154 BorderSpacing.Top = 8 Caption = 'Use default Elements' TabOrder = 7 end object cbBindElementsInConstructor: TCheckBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = cbDefaultElements AnchorSideTop.Side = asrBottom Left = 136 Height = 23 Top = 281 Width = 199 BorderSpacing.Top = 8 Caption = 'Bind elements in constructor' TabOrder = 12 end object cbExtraUnits: TComboBox AnchorSideLeft.Control = edtFormClassName AnchorSideTop.Control = cbBindElementsInConstructor AnchorSideTop.Side = asrBottom Left = 136 Height = 27 Top = 313 Width = 216 BorderSpacing.Top = 9 ItemHeight = 0 TabOrder = 13 end object lblExtraUnits: TLabel AnchorSideTop.Control = cbExtraUnits AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbExtraUnits Left = 10 Height = 16 Top = 318 Width = 118 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Right = 8 Caption = 'Extra units in uses' ParentColor = False end end end object TBHTML2Form: TToolBar Left = 0 Height = 40 Top = 0 Width = 633 ButtonHeight = 40 ButtonWidth = 32 Images = ilHTML2Form ShowCaptions = True TabOrder = 2 object tbLoad: TToolButton Left = 1 Top = 2 Action = aLoad end object tbSave: TToolButton Left = 39 Top = 2 Action = aSave end end object ilHTML2Form: TImageList Left = 72 Top = 328 Bitmap = { 4C7A0200000010000000100000009D0200000000000078DAED92DD4F92611887 FB175AEBB083B6D65FD0CA13B33A6B6BEBA8036A4E6BCB839A6BAB13970AAF20 42182AD8C79CDF0E8BD01251C1613AFC606A994BA5960A281F06F295C88B8880 BF9EF7D96466333FF2A4AD77BB763F27D77BDFCFFDFC5477CFE161763778BCC8 815011EFFCE9E3375447E05B06B508844207E2BF7F74FE61394A5F23BC0D9DA6 8EA2EF37FEC67EFC2DFE317FEE6FFC5B19A7AE70FF38ECFE8EEDF25528AB50A1 5480AB72C2D3AA4AC82AE578222F87A45C06B14C8A52A904BBFAD50A2493C934 1B1B1B88C5626059162B2B2B0806831049C47FF453A91465A71F0E8711221916 9695EEDB4F2412585F5FFFC567C4A2DD7DE5DEBE4024C48933174E9EBDFAA080 C06CA380DBD95EF3F3850CAE29ED93E2BE10EA2758D47D64514B283586205754 A677C7F58EC7E3D48F442269BFB84480EC0617469781711F3046E0CE662FC87B 55D09E1C9CCBCD1E8D46A9BFB5FF224680DC6637756B4623900DFC48735FA147 8BD99FA679C4872642E390170D831E1826BD2864F8D457CFC490AFF1D03BD493 F969DD769F9AF155BC3087A0342D436E74A2E89D0D8FD40EEAE734B951DC13C0 ABE9189D9B638430EC018608A6EF40BF2B855EDB1A3ABF04A1997081D15AA136 2FA150508C9C4617EEB4B831E04CC0B494C2807B13FD84F7843ED7268CCE240C F63874DF56D13EB58CD6B105E435DB60B179F198F8BC5A07F2D56E186D2CE911 85DEBA861E6B0CDD84AEF935E8E658747C0DA36DCA8FD60F2E340CCFE3E6730B 3ABB74A43F1FD79F2D406A704337E34387C58FB7D37EB44F07D046D04C05F0E6 B30FAF3F79A01A77A271C40A69F72C2EDF7B69CACCBAC8645ECA62C8FB27F8DA 0594F72E42D6EB80945489C14129D32F52C43D7688BAAC28D1CE22B7DE0A92AF 8CAD9C92336F47F6F6226F7BCE7F02B1E27D71 } BitmapAdv = { 4C69020000004C7A020000001800000018000000A30400000000000078DAED95 D94F1B571487FB56F5A5AA9AC748A5522B557DAF54E5A1127F40D4564A694502 05758BAAAA52A5366A25CA1AF62D660B09BB830143D96CB0B1016336DB2C019A 40820DF6D8D8EC60F002D818C3AF6786010CE2C154E42562A44FA31969BE73EF 39E79E11FDF809444478B8FBD210F1CE37E812BD26FEF58D8D4BE3CA7FE5BFF2 9FF6BF0A5E47BF5CD51934FFD71F6CAC2BFF959FEE61AFD27F36C665F77F3057 4EBE00B9F9793C02B0CF39790F902D78802C412E32737390919385F4EC4CA465 652035331D291969484E4F0D2A06EB6D686A8446A7E3D16250ABC18066107D83 03E8EDEF434FAF1A2A750FBA542A28BBBB5021AC0ADE5F9007CD900E7EBFFF14 3E9F0F5EAF171E8F07DBDBDB70B95C70381CD8A019ADE85422292DE542FEFDFD FD638EFCBBBBBB9C7F6B6B0B6EB71B4EA7F3C49F9A1CB45F7B8E7F6F6FEFD8CF AE3FD0DFA1542031E572FC6C8ECEF3272427055DDF8BFAE50A05E2EF07E767FB 5173C1FCC8151D88BB9F88B7AF7FFCCE8D5FEBEE119D84FA1C5A393FF564A0FB 6C7DCFF3C72625E0663E53F2F5E339FC295945866A13E93C69DD9B4852DA71B7 6691CED2A13FB037037373D43F6C7F1EF9651D72C426C6E38B42F3766AD706FA 160EA05B018796D02C03834B40BB710FD97456D9F3C43A8F085CFBCECECEB1FF A8FFDBC9FF37F9C368ED65A35B1822E7F0EA2143AB2771B414279B66007B5659 E711816B0FCC0DEBB7DBED6897933F210E6C6E2A9E6E715ED9AC0F0D531ED4F3 887962044F20EA18C198D97502E3C45362D4E4C0887113C333760C19D6A1D5AF 617466054D52D929BF92D9C30FD50B88ACB0215A388FE82A1E6100F41C758C0D DF561215564496CF21A2CC828852336E1533882EB720AB528218DE5F4EFEBC01 27BE7B328F86175E48677C1C9233B41A7C68219AF4BB687C497B9C74A3766213 D5236BA8D0CCA3A4D78C248911DF575A905F2D454C7C2CE77FA873E36EED2204 FD4EAEAE5A1EAEC67C9D590688BE4540BD00A8AC7EDAB307B219172453EB681C 9B877888C1EF6223629BAD6893B5737EB6BE091DEB88A0BCB418BC9C83A57FF1 D0D5CBA3E65191BBDBB68F4ECB1EE4C66D48A71D687EBE8AFA512BAA064C882A 6720D62C40DADE76ECFFB96E91726B438FD507F5BC9FD8470F3954B603721DA0 8B839CD67D28E7FC50587C909B3C90EA5D689EB2A361620935C316E42A8CF8E6 118349E33224BCFF56B105B7CBE6F057CB12BA986D74323BDCBE15F47D87C94B 1E2F64443B8BD183B6D91D480D5B689D76A171D28EFAF165D48CD820D49810D3 6C44E4A3698C8D8F41545B43FE387C5964C657C56614F4AE40AEDF84CCE0409B DE41FB764242B4F2B4B0BC74A2F985034D531BF8E7D93AC463BC5B67A6DACEE0 1791115159726EDD87C4E1660183DB25665452CE24CF57D04AB0F96C7CB64A0E 963534FCBB867A96895588C75750C77A4717503D6C8550CBA062601602A59EFA D3848F3E0BFBEDBD9090508EF7434269FEF87F129A51A4B2A0AC7F0EA54449BF 15C5747FD8C762E528EA9DE328545B08DA6F0F83BC2E23049D3394773DEE890D EC2CD35DFBF0D30F02672FBD537F5EC820BC84C19DD2136E07417889E990C726 9A638C9B66ED1F6FBD7BFDCD403F1B8F08BD046E90FBDAD97FC77F01765A684C 7A020000002000000020000000440600000000000078DAEDD6E9535357180670 FF9F4EBF753AD376A65F6CA76347BF55AB336D47A72D88CBA8A853ADB2EF4B64 719C5A5440094920212C4176410AB263A182B28404122009246C093BF8F4BCE7 DE8B97B02820A31FC2CC33F786E5FECEFB9EE5A2FCFD33449E8C42DAAF4770E2 847BDF73E6A72628994989FDE1932EA5CF47EAF948A4FB1FC1B5EB33FB9EF02B 1BFDBA8C70E8FF380CE7C4C4BEC7D8F1CCE7FB7C9FEFF37DBEE897C6FE86DC8B 07D151AEDAF734A81237F83577AF4377F510864D3DFB9EEE3AC306FF43E563F4 D5970F213BE02BE81497769C9C1B47A18D39BD273F3BE04B28FD3E873AF0BB1D 4775EE6BA82E7EB3273F37E21454170EA2A4E2318A3469282E54A3489B8E9227 156F8DFE4E10FFFDF7E11BF2B3F9676DDC1956D3B73EDFE7FBFCFDF1BB3EB03F FD21FDE4139F06B2FB499651B95F5CA481FACAF7C84BBD869CA0E3FBE61FD8E1 97223519B77852C4AB10FABE22250989C9494848BE85842405E26F2910A74840 6C62026212E311931087E8F85844C5516210191B8D9DFA6BF6ED14710C2982ED E5C7733F51F4C98E67761CA2E2257BB7BE60AFACACACCBF2F232CFD2D2121616 16303F3F8FD9D959783C1ECCCCCC607A7A1A93939398A0FF039D4E44303B2226 6AE7FEEDCD7D690CE42F2E2E727F6E6E8E8FC1ED766FF4991DBE477F75759567 339F7A403ED54F3EF5606A6A8AFB2E970BE1D1CC8F8EDC75FF257BB331C87D79 FD924FF5931D1615B9EBFADFC597D6C066F5874545209465577EEAF6BEF71ADC CC273B34327C77FD7F0F7E08B3432276EE4BE7CF4EFBEF3DFF64074784EDCAA7 BCEBFAF7AE9FF620D54F76707828F70FA79A8EB25859F09658E5FE76FB7F2B5F EA3FD9412CA2CD9FEF9F3D822BF90E217A072EAFC50E3FE508FF1D458A70CE6E 75FE912D3F7FE4E79FDC273B282C0452DD0F5A3D7866071AC4D07D3D4B9D0DF8 87320AA4B5789048673C8BE4C923AFFD6DE72FD937059FD74D66A3036892853E AF8DC52684DE2F89ECFD429677E4F676734F3ED9374305FF2AEBB764378F012D E2551A83340E0AD9F47E93FA2C0FD9DEB5CBD7FE3A3F94FC60EED37CCBED35DF 6B0C948424E1DD2E59F2902BD9DEBD97EF3DC10F5EF3AF4A3E4B64990BEFB00F F69492761B6E30FB86ACFE46D6DB8C36CFA6FB602DF95EF1DA238179765CD2D9 70493B828BB9C3B8A0B1E2BC7A08E7B2CD38AB34E1D8DD01FEFCD07C8BE087BC F1698D511FE873A96979DD5E90D6A03CB416EBC4D4B2BDF1746415D5D665540D 2EA07CC08392DE2918BA9CC8EF1885B675089A4623620C7D62FDA3A21FC43FD3 F8E9397C2CECBE7E0BBB5EB60FEAD7D940F5F06B3CB12CA3C2BC8052A307C53D 93287C318EBCE7A3C86D1D84AAA11F018F8CDC181B1BE3F61BDFCEF6B69BDFDF 6F750BCFB7AF77A43380522BE6294BCD28D9409575159583CB281B98C7E33E37 8A5E4E40FF9F03DAF661A89BCC503EEB5FEBBDC3E1107DA1FF346F2125E3FCFE B1719119ABECF9AF79A8B61A31D5629E482197D55D695945C510B34D8BECEF67 51F46A1AF9ACF7DA0E1B34AD1664379A905426F8CABA61EEFF29AB9FD6CCF17B 43F0CB1AC653CB126AAC4B7C2EABAD2BACA72BA862CFAF1453C1B38272CAD00A CA58CDA5E62594981650DCCFEC9E19664F40D739064DFB08B29B0791556F44A0 5AE87D8FD90EBBDDBECE3FA719E6D760831D55A639549AE7D93CCEF3B92C67CF A5BA4AC594508D9401E6518CF330F4CFA1A8D783825733D0774D42DB39CE6C1B B25B2C78D46042665D1F7EB93F809FEF9BB96DB3D9D6F5FF64C610BF66363B51 DE378DD2FE1994B0D03C16F7523C30F479B84129E471A3B0C78D02AA97F55BDF 3D09DD8B09E47648B6158F1ACDC8ACEFC79DAA5EFEFC53F186B57547B6E4FFF8 B75998FBEE7114773B6178E962EBC7854296826E17EFA75E4C9E2CE4695FB858 BD4EE6B27E3FB743D53A0265B385DB19ACEF0F6A7B115620F867A3D34557F4C5 F387725E3588C28E111474DAD89EB541DF6987AEC3CED6901DB9FF521CC8A13C 7740C3AE1ABAB6DBA166B5AADBA85E72ADC86A1AC243D6F30C5637D9F76A5EC2 EFA1B0F636FB7F46F2156566E8D83ED5B50D41DB66617BD6829C562BD4ECAAA2 35DC62E13DA5507D52C8CB6A1AE4F50AAE11E96CBE1FD4F6703BB5AC5BAA3177 0BDF493F3F76D7C4CF482967C4046C93D359F20CF0F8B333C6FFA191D7EC97D9 8FA37F0D48FE175BF8FEFBFDBE61493BF0917EFD0F6A0C760B } end object odSettings: TOpenDialog Filter = 'JSON Files|*.json|All files|*.*' Options = [ofFileMustExist, ofEnableSizing, ofViewDetail] Left = 72 Top = 240 end object sdSettings: TSaveDialog Filter = 'JSON Files|*.json|All files|*.*' Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail] Left = 72 Top = 288 end object alHTMLToForm: TActionList Images = ilHTML2Form Left = 431 Top = 145 object aSave: TAction Caption = 'Save' Hint = 'Save options to file' ImageIndex = 0 OnExecute = aSaveExecute end object aLoad: TAction Caption = 'Load' Hint = 'Load options from file' ImageIndex = 1 OnExecute = aLoadExecute end end end