jvcl driver development envionment
源代码在线查看： mainfrm.dfm
object Form1: TForm1
Left = 278
Top = 110
Width = 445
Height = 523
Caption = 'JvSimpleXML Demo (test XML encoding and decoding)'
Color = clBtnFace
Constraints.MinHeight = 400
Constraints.MinWidth = 420
DefaultMonitor = dmDesktop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Scaled = False
OnCreate = FormCreate
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object pnlBottom: TPanel
Left = 0
Top = 259
Width = 437
Height = 230
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Label2: TLabel
Left = 6
Top = 8
Width = 34
Height = 13
Caption = '&Result:'
FocusControl = reResult
end
object Bevel1: TBevel
Left = 0
Top = 0
Width = 437
Height = 5
Align = alTop
Shape = bsTopLine
end
object reResult: TMemo
Left = 5
Top = 26
Width = 425
Height = 137
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
object btnCopy: TButton
Left = 300
Top = 177
Width = 117
Height = 25
Anchors = [akRight, akBottom]
Caption = '&Copy To Source'
TabOrder = 1
OnClick = btnCopyClick
end
object StatusBar1: TStatusBar
Left = 0
Top = 211
Width = 437
Height = 19
Panels = <
item
Width = 50
end>
SimplePanel = False
end
end
object pnlTop: TPanel
Left = 0
Top = 0
Width = 437
Height = 259
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 6
Top = 12
Width = 37
Height = 13
Caption = '&Source:'
FocusControl = reSource
end
object reSource: TMemo
Left = 5
Top = 28
Width = 425
Height = 178
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'Put the xml in this memo. Click the Encode/Decode '
'buttons to see the result in the bottom memo. '
''
'You can drag and drop files from the Explorer into '
'the program and have them automatically opened.'
''
'If you drag multiple files, they will be all be added to'
'the memo.')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
object chkTrim: TCheckBox
Left = 11
Top = 220
Width = 80
Height = 17
Anchors = [akLeft, akBottom]
Caption = 'Trim &Blanks'
TabOrder = 1
end
object btnEncode: TButton
Left = 258
Top = 226
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = '&Encode'
TabOrder = 4
OnClick = btnEncodeClick
end
object btnDecode: TButton
Left = 342
Top = 226
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = '&Decode'
TabOrder = 5
OnClick = btnDecodeClick
end
object chkUseUTF8: TCheckBox
Left = 106
Top = 220
Width = 133
Height = 17
Anchors = [akLeft, akBottom]
Caption = 'Use UTF&8 functions'
TabOrder = 2
end
object chkUseClipboard: TCheckBox
Left = 11
Top = 240
Width = 229
Height = 17
Anchors = [akLeft, akBottom]
Caption = '&Use clipboard for text transfers'
TabOrder = 3
end
end
end
