home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2003 April
/
Chip_2003-04_cd1.bin
/
ctenari
/
Holecek
/
PASdoHTML.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
2002-12-12
|
10KB
|
229 lines
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 = {<image000.ico>}
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