object Form1: TForm1 Left = 242 Top = 115 Width = 359 Height = 146 Caption = 'Konverze PAS do HTML' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object buttonDialogOtevrit: TSpeedButton Left = 304 Top = 8 Width = 23 Height = 22 Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888880000008888888888888888880000008888888888888888880000008000 0000000088888800000080033333333308888800000080B03333333330888800 000080FB0333333333088800000080BFB033333333308800000080FBFB000000 00000800000080BFBFBFBFB088888800000080FBFBFBFBF088888800000080BF B000000088888800000088000888888880008800000088888888888888008800 0000888888888088808088000000888888888800088888000000888888888888 888888000000888888888888888888000000} OnClick = VybratSoubor end object buttonDialogUlozit: TSpeedButton Left = 304 Top = 32 Width = 23 Height = 22 Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888880000008888888888888888880000008888888888888888880000008000 0000000088888800000080033333333308888800000080B03333333330888800 000080FB0333333333088800000080BFB033333333308800000080FBFB000000 00000800000080BFBFBFBFB088888800000080FBFBFBFBF088888800000080BF B000000088888800000088000888888880008800000088888888888888008800 0000888888888088808088000000888888888800088888000000888888888888 888888000000888888888888888888000000} OnClick = VybratSoubor end object Label1: TLabel Left = 8 Top = 12 Width = 73 Height = 13 Caption = 'Co konvertovat' end object Label2: TLabel Left = 8 Top = 36 Width = 77 Height = 13 Caption = 'V'#253'sledn'#253' soubor' end object Label3: TLabel Left = 7 Top = 60 Width = 71 Height = 13 Caption = 'Styl zv'#253'razn'#283'n'#237 end object editPASsoubor: TEdit Left = 88 Top = 8 Width = 209 Height = 21 TabOrder = 0 end object editHTMLsoubor: TEdit Left = 88 Top = 32 Width = 209 Height = 21 TabOrder = 1 end object comboStyl: TComboBox Left = 88 Top = 56 Width = 209 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 1 TabOrder = 2 Text = 'Delphi' Items.Strings = ( 'Turbo Pascal' 'Delphi') end object BitBtn1: TBitBtn Left = 72 Top = 88 Width = 91 Height = 25 Caption = 'Konvertovat' Default = True TabOrder = 3 OnClick = Konvertovat Glyph.Data = { AA040000424DAA04000000000000360000002800000013000000130000000100 18000000000074040000130B0000130B00000000000000000000C0C0C0C0C0C0 C0C0C0C7C7BDC7C7BDC7C7BDDEDED51010075B5B585454545454545454545454 54545454545454545454575757353535777777000000C0C0C0D0D0BAD8D8B7A1 A1C9A7A7C7A7A7C7B4B4D437375EE5E5D9BABAAAAFAFAEAFAFAFAFAFAFAFAFAF AFAFAFAFAFAFADADADD0D0D0666666000000D6D6B94A4AE43535ED0000FF0000 FF0000FF0000FF0000FF1F1FFFBEBEFFFFFFFCFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFCCCCCC646464000000C2C2BE0000FF4242E88A8AD1E9E9B2DFDFB5 F6F6C61919186666FF0000FF0000EDA6A696B6B69AA1A1A0A1A1A1A1A1A1A0A0 A0BDBDBD6666660000000000FFA4A4C8DCDCB7CBCBBCC0C0C0C0C0C1D4D4D531 312BFFFFF2D6D6CF0202DD0000FF7474FFFBFBD7DCDCDBDBDBDBDFDFDFC7C7C7 6565650000000000FFBDBDC0D4D4B8C4C6C7C8CACDD4D5D6B7BAB99C9F9EE6E9 EDD7D5D1EEEEC4B5B5F20000FF5050C6E4E4C0CBCBCACDCDCDC4C4C465656500 00006262FF0000FC0C0EFF736CC2705C304024004722004D2600291E006B6F67 E5E2E2CECFB78181A50000FF6969FBCBCBAAB4B4B4C1C1C16666660000000000 FF0000FF0000FF7B5600784B018E590D91671193620E95610E2236000E2405CC C1BEFFFFF9C6C6FF0000FFAAAAF3FFFFF6CACACA6565650000007C7DFF0000FF 0000FFA67100A86E10B07518AC740CB17518B07012A1710C003000243010B2AE B5ACAC97707099AAAA97979797BDBDBD666666000000FFFFFF9266233B259DC2 7E05C58415C28118D18A19CE8618CE821A234C01005000003000808C79FFFFFF FFFFFFFFFFFFFFFFFFCDCDCD646464000000DBD1C5965F00CC8602D28817DA8D 1ADF941EDA8C16E3951FBF8211005900005B0000520019400EA7A2A899999998 9898979797BDBDBD666666000000D9C9B0AE6800D48D17DF911FE4991AEA9B16 F59F1BF29D19FFA51D076C00006400005800413F00FFFCFFF2F2F3F1F1F1F6F6 F6CACACA656565000000D9C29AC07504E2941AECA417F9A420FFAE23FFAE24FF A6227B75096C8D120074003A6602BF6900B2B7BFADADAEACACACADADADBFBFBF 666666000000BAA68BD88909F09E18FBA722FFB021D39B208689111C66009484 16FFB221DAA019D18D15C47805D7DDE5FFFFFFFFFFFFFFFFFFCFCFCF64646400 0000C7C1BBDC8E18F8A21AFFB223BA861300770A979C19E5A81CF9B62ABE9C15 EBA31EEB970FE1A752E6ECF5E4E5E5CFCFCFD7D7D7B5B5B5626262000000B9C4 D4E4AE51FFA20D978112006C0000820040870593A520417807FFAE20FFAF22ED 9804B7A590D0D4DA1B1B1B6E6E6E868686000000B0B0B0000000BEC0C2C1C2C8 FFA9363663000083000085000083000080000079005D7705DE9802EBC27CF6FE FFFFFFFF353535FFFFFF595959B3B3B3CACACA000000C0C0C0BEC1C6CFC4C971 9531007800007A00007D00118000048B0022860AE7D7A1FFFFFFFFFFFFFFFFFF 3F3F3F707070A5A5A5C9C9C9C0C0C0000000C0C0C0C0C0C0C0C0C4CDCBD5A5BE A27CBE79339339A6C15D405522403B3054545F49494B494949525252050505AE AEAECACACAC0C0C0C0C0C0000000} end object BitBtn2: TBitBtn Left = 264 Top = 88 Width = 75 Height = 25 Caption = 'Konec' TabOrder = 4 Kind = bkClose end object BitBtn3: TBitBtn Left = 176 Top = 88 Width = 81 Height = 25 Caption = 'Informace' TabOrder = 5 OnClick = Informace Glyph.Data = { AA040000424DAA04000000000000360000002800000013000000130000000100 18000000000074040000430B0000430B00000000000000000000BEBEBEBEBEBE BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE000000BEBEBEBEBEBEBEBEBEBE BEBEBEBEBEBEBEBEBEBEBE908A8A30404634454E5D5859B5B1B1BEBEBEBEBEBE BEBEBEBEBEBEBEBEBEBEBEBEBEBEBE000000BEBEBEBEBEBEBEBEBEBEBEBEBEBE BEBEBEBE8883811E4B4C01A0C105A4CE08464E514B4BBEBEBEBEBEBEBEBEBEBE BEBEBEBEBEBEBEBEBEBEBE000000BEBEBEBEBEBEBEBEBEBEBEBEBEBEBE908482 2A535301BACC00E1F500E5F201D7DE0858634A3F3EBEBEBEBEBEBEBEBEBEBEBE BEBEBEBEBEBEBE000000BEBEBEBEBEBEBEBEBEBEBEBE8A7572273F4F00A8CA00 ACBD00C3C401CDCB00D2D000C8CC176B73503B3BBEBEBEBEBEBEBEBEBEBEBEBE BEBEBE000000BEBEBEBEBEBEBEBEBE8E807E244C4F009DCC00B1CD134341000C 0B0B22221B313101949204FDFF1A636C4F3B38BEBEBEBEBEBEBEBEBEBEBEBE00 0000BEBEBEBEBEBE837A77203F5900ACD700E6F600FFFC00AFAE000000180E0E 25262602E2E100FFFF00E8ED1264774A3F3FBEBEBEBEBEBEBEBEBE000000BEBE BE8B848211425000B9DC00EBF800EDE900FFFF00AAAA0000000A05050A0F0F00 DADA00FFFF00DBEC08B2EA12495F4E4A49B4B2B0BEBEBE0000008A7C81123654 02B5E100EEF400F1EF00FFFE00FFFF00A9A902000003000000060600D9D900FF FF00E2EB00C4F003A2E40142664F4F4FBEBEBE0000002C4B5601B2D700E6F500 F3F400FAF900FEFE00FFFF01ABAB08000004000000070700DADA00FDFC00E0F1 00B9ED00AFF20095E20D2F3E8E89870000000C444700F7FC00FAF600FFFE00FE FE00FFFF00FFFF01B2B21600000B010102040400D9D900FAF700DCF400C3EC00 BCF400A2F522485CA39D9B000000756F7017646302FFFF00FFFF00FFFF00FFFF 01D9D91F6262253131122424031C1C00CFCF00EFEC00C6EE00C0F300A3EB1D63 89929294BEBEBE000000BEBEBE70676718737308FAF900FFFF00FFFF00F9F900 E2E20C8C8C11757500D0D000F4F400E7E200CCE700AEE12474988C8B8DBEBEBE BEBEBE000000BEBEBEBEBEBE7A706F26828604F3F900FFFF00FFFF0BA5A52919 1919070703414000E0E000EEF500CFE51F6C8B8F8685BEBEBEBEBEBEBEBEBE00 0000BEBEBEBEBEBEBEBEBE726A682A868C09F1F300FFFF1F6E6E2207070B0000 02010000D1D100D4EE1D658B90827EBEBEBEBEBEBEBEBEBEBEBEBE000000BEBE BEBEBEBEBEBEBEBEBEBE7E6E6E307B7C00FCFC18C6C60C2B2B03151500636400 D4D8237183908484BEBEBEBEBEBEBEBEBEBEBEBEBEBEBE000000BEBEBEBEBEBE BEBEBEBEBEBEBEBEBE7E72720A6B6B00FDFD00D3D300C1C000DBDE1B737D8688 86BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE000000BEBEBEBEBEBEBEBEBEBE BEBEBEBEBEBEBEBE726A6A15555500F0F000F3F41E787F938D90BEBEBEBEBEBE BEBEBEBEBEBEBEBEBEBEBEBEBEBEBE000000BEBEBEBEBEBEBEBEBEBEBEBEBEBE BEBEBEBEBEBEBE7A7474083838205051928B8EBEBEBEBEBEBEBEBEBEBEBEBEBE BEBEBEBEBEBEBEBEBEBEBE000000} end object OpenDialog: TOpenDialog DefaultExt = '*.pas' Filter = 'Pascal nebo Delphi soubory|*.pas;*.inc;*.bak|Pouze PAS soubory|*' + '.pas|Pouze include soubory|*.inc|Pouze z'#225'lo'#382'n'#237' soubory|*.bak|V'#353'e' + 'chny soubory|*.*' Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing] Title = 'Vyberte soubor, kter'#253' chcete zkonvertovat' Top = 88 end object SaveDialog: TSaveDialog DefaultExt = '*.html' Filter = 'HTML soubory|*.html;*.htm|V'#353'echny soubory|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] Title = 'Napi'#353'te jm'#233'no v'#253'sledn'#233'ho HTML souboru' Left = 32 Top = 88 end end