Componentes.Terceros.jcl/official/2.1.1/examples/common/textconverter/TextConverterMain.dfm
2010-01-18 16:51:36 +00:00

142 lines
3.1 KiB
Plaintext

object Form1: TForm1
Left = 438
Top = 259
BorderStyle = bsDialog
Caption = 'Form1'
ClientHeight = 173
ClientWidth = 375
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ButtonAnsiToAnsi: TButton
Left = 16
Top = 16
Width = 105
Height = 25
Caption = 'Ansi --> Ansi'
Enabled = False
TabOrder = 0
end
object ButtonAnsiToUTF8: TButton
Left = 136
Top = 16
Width = 105
Height = 25
Caption = 'Ansi --> UTF8'
TabOrder = 1
OnClick = ButtonAnsiToUTF8Click
end
object ButtonAnsiToUTF16: TButton
Left = 256
Top = 16
Width = 105
Height = 25
Caption = 'Ansi --> UTF16'
TabOrder = 2
OnClick = ButtonAnsiToUTF16Click
end
object ButtonUTF8ToAnsi: TButton
Left = 16
Top = 56
Width = 105
Height = 25
Caption = 'UTF8 --> Ansi'
TabOrder = 3
OnClick = ButtonUTF8ToAnsiClick
end
object ButtonUTF8ToUTF8: TButton
Left = 136
Top = 56
Width = 105
Height = 25
Caption = 'UTF8 --> UTF8'
Enabled = False
TabOrder = 4
end
object ButtonUTF8ToUTF16: TButton
Left = 256
Top = 56
Width = 105
Height = 25
Caption = 'UTF8 --> UTF16'
TabOrder = 5
OnClick = ButtonUTF8ToUTF16Click
end
object ButtonUTF16ToAnsi: TButton
Left = 16
Top = 96
Width = 105
Height = 25
Caption = 'UTF16 --> Ansi'
TabOrder = 6
OnClick = ButtonUTF16ToAnsiClick
end
object ButtonUTF16ToUTF8: TButton
Left = 136
Top = 96
Width = 105
Height = 25
Caption = 'UTF16 --> UTF8'
TabOrder = 7
OnClick = ButtonUTF16ToUTF8Click
end
object ButtonUTF16ToUTF16: TButton
Left = 256
Top = 96
Width = 105
Height = 25
Caption = 'UTF16 --> UTF16'
Enabled = False
TabOrder = 8
end
object ButtonAutoToAnsi: TButton
Left = 16
Top = 136
Width = 105
Height = 25
Caption = 'Auto --> Ansi'
TabOrder = 9
OnClick = ButtonAutoToAnsiClick
end
object ButtonAutoToUTF8: TButton
Left = 136
Top = 136
Width = 105
Height = 25
Caption = 'Auto --> UTF8'
TabOrder = 10
OnClick = ButtonAutoToUTF8Click
end
object ButtonAutoToUTF16: TButton
Left = 256
Top = 136
Width = 105
Height = 25
Caption = 'Auto --> UTF16'
TabOrder = 11
OnClick = ButtonAutoToUTF16Click
end
object OpenDialogTxt: TOpenDialog
DefaultExt = 'txt'
Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Title = 'Text file to convert...'
Left = 88
Top = 48
end
object SaveDialogTxt: TSaveDialog
DefaultExt = 'txt'
Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Title = 'Save result as...'
Left = 128
Top = 48
end
end