2009-09-18 07:49:04 +00:00
|
|
|
object MainForm: TMainForm
|
|
|
|
Left = 245
|
|
|
|
Top = 81
|
|
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
|
|
BorderStyle = bsDialog
|
|
|
|
Caption = 'X'#178'Software XML Data Binding for Delphi'
|
2017-09-06 15:12:15 +00:00
|
|
|
ClientHeight = 312
|
2009-09-18 07:49:04 +00:00
|
|
|
ClientWidth = 438
|
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -11
|
|
|
|
Font.Name = 'Tahoma'
|
|
|
|
Font.Style = []
|
|
|
|
OldCreateOrder = False
|
|
|
|
Position = poScreenCenter
|
|
|
|
OnCreate = FormCreate
|
|
|
|
DesignSize = (
|
|
|
|
438
|
2017-09-06 15:12:15 +00:00
|
|
|
312)
|
2009-09-18 07:49:04 +00:00
|
|
|
PixelsPerInch = 96
|
|
|
|
TextHeight = 13
|
|
|
|
object lblSchema: TLabel
|
|
|
|
Left = 8
|
|
|
|
Top = 11
|
|
|
|
Width = 58
|
|
|
|
Height = 13
|
|
|
|
Caption = 'Schema file:'
|
|
|
|
end
|
|
|
|
object gbOutput: TGroupBox
|
|
|
|
Left = 8
|
|
|
|
Top = 43
|
|
|
|
Width = 422
|
2017-09-06 15:12:15 +00:00
|
|
|
Height = 225
|
2009-09-18 07:49:04 +00:00
|
|
|
Anchors = [akLeft, akTop, akBottom]
|
|
|
|
Caption = ' Output '
|
2020-10-30 07:41:26 +00:00
|
|
|
TabOrder = 0
|
2009-09-18 07:49:04 +00:00
|
|
|
DesignSize = (
|
|
|
|
422
|
2017-09-06 15:12:15 +00:00
|
|
|
225)
|
2009-09-18 07:49:04 +00:00
|
|
|
object rbFile: TRadioButton
|
2017-07-21 07:38:17 +00:00
|
|
|
Left = 11
|
2009-09-18 07:49:04 +00:00
|
|
|
Top = 21
|
2017-07-21 07:38:17 +00:00
|
|
|
Width = 127
|
2009-09-18 07:49:04 +00:00
|
|
|
Height = 17
|
2017-07-21 07:38:17 +00:00
|
|
|
Caption = ' Output to &single file'
|
2009-09-18 07:49:04 +00:00
|
|
|
Checked = True
|
|
|
|
TabOrder = 0
|
|
|
|
TabStop = True
|
|
|
|
OnClick = OutputTypeClick
|
|
|
|
end
|
|
|
|
object rbFolder: TRadioButton
|
2017-07-21 07:38:17 +00:00
|
|
|
Left = 11
|
2009-09-18 07:49:04 +00:00
|
|
|
Top = 44
|
2017-07-21 07:38:17 +00:00
|
|
|
Width = 150
|
2009-09-18 07:49:04 +00:00
|
|
|
Height = 17
|
2017-07-21 07:38:17 +00:00
|
|
|
Caption = ' Output to separate &files'
|
2009-09-18 07:49:04 +00:00
|
|
|
TabOrder = 1
|
|
|
|
OnClick = OutputTypeClick
|
|
|
|
end
|
|
|
|
object plOutput: TPageControl
|
|
|
|
Left = 3
|
|
|
|
Top = 68
|
|
|
|
Width = 416
|
2017-07-21 07:38:17 +00:00
|
|
|
Height = 93
|
|
|
|
ActivePage = spFolder
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
2009-09-18 07:49:04 +00:00
|
|
|
Style = tsButtons
|
|
|
|
TabOrder = 2
|
|
|
|
object spFile: TTabSheet
|
|
|
|
TabVisible = False
|
2020-11-02 08:34:03 +00:00
|
|
|
DesignSize = (
|
|
|
|
408
|
|
|
|
83)
|
2009-09-18 07:49:04 +00:00
|
|
|
object lblFile: TLabel
|
2017-07-21 07:38:17 +00:00
|
|
|
Left = 4
|
2009-09-18 07:49:04 +00:00
|
|
|
Top = 7
|
|
|
|
Width = 55
|
|
|
|
Height = 13
|
|
|
|
Caption = 'Output file:'
|
|
|
|
end
|
2020-11-02 08:34:03 +00:00
|
|
|
object feFile: TJvFilenameEdit
|
|
|
|
Left = 89
|
2020-10-30 07:41:26 +00:00
|
|
|
Top = 3
|
|
|
|
Width = 316
|
|
|
|
Height = 21
|
2020-11-02 08:34:03 +00:00
|
|
|
DialogOptions = [ofHideReadOnly, ofCreatePrompt]
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
2009-09-18 07:49:04 +00:00
|
|
|
TabOrder = 0
|
2020-11-02 08:34:03 +00:00
|
|
|
Text = ''
|
2009-09-18 07:49:04 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
object spFolder: TTabSheet
|
|
|
|
TabVisible = False
|
|
|
|
object lblFolder: TLabel
|
2017-07-21 07:38:17 +00:00
|
|
|
Left = 4
|
2009-09-18 07:49:04 +00:00
|
|
|
Top = 7
|
|
|
|
Width = 69
|
|
|
|
Height = 13
|
|
|
|
Caption = 'Output folder:'
|
|
|
|
end
|
|
|
|
object lblFolderPrefix: TLabel
|
2017-07-21 07:38:17 +00:00
|
|
|
Left = 4
|
|
|
|
Top = 32
|
2009-09-18 07:49:04 +00:00
|
|
|
Width = 51
|
|
|
|
Height = 13
|
|
|
|
Caption = 'File prefix:'
|
|
|
|
end
|
|
|
|
object lblFolderPostfix: TLabel
|
2017-07-21 07:38:17 +00:00
|
|
|
Left = 4
|
|
|
|
Top = 58
|
2009-09-18 07:49:04 +00:00
|
|
|
Width = 56
|
|
|
|
Height = 13
|
|
|
|
Caption = 'File postfix:'
|
|
|
|
end
|
2020-10-30 07:41:26 +00:00
|
|
|
object edtFolderPrefix: TEdit
|
|
|
|
Left = 89
|
|
|
|
Top = 31
|
|
|
|
Width = 316
|
|
|
|
Height = 21
|
2009-09-18 07:49:04 +00:00
|
|
|
TabOrder = 0
|
|
|
|
end
|
2020-10-30 07:41:26 +00:00
|
|
|
object edtFolderPostfix: TEdit
|
|
|
|
Left = 89
|
|
|
|
Top = 59
|
|
|
|
Width = 316
|
|
|
|
Height = 21
|
2009-09-18 07:49:04 +00:00
|
|
|
TabOrder = 1
|
|
|
|
end
|
2020-10-30 07:41:26 +00:00
|
|
|
object deFolder: TEdit
|
|
|
|
Left = 89
|
|
|
|
Top = 4
|
2020-11-02 08:34:03 +00:00
|
|
|
Width = 245
|
2020-10-30 07:41:26 +00:00
|
|
|
Height = 21
|
2009-09-18 07:49:04 +00:00
|
|
|
TabOrder = 2
|
2020-10-30 07:41:26 +00:00
|
|
|
end
|
2020-11-02 08:34:03 +00:00
|
|
|
object deFolderPropertiesButton: TButton
|
|
|
|
Left = 340
|
|
|
|
Top = 3
|
|
|
|
Width = 65
|
2020-10-30 07:41:26 +00:00
|
|
|
Height = 22
|
2020-11-02 08:34:03 +00:00
|
|
|
Caption = 'Properties'
|
2020-10-30 07:41:26 +00:00
|
|
|
TabOrder = 3
|
2020-11-02 08:34:03 +00:00
|
|
|
OnClick = deFolderPropertiesButtonClick
|
2009-09-18 07:49:04 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
2017-07-21 07:38:17 +00:00
|
|
|
object cbHasChecksEmpty: TCheckBox
|
|
|
|
Left = 11
|
|
|
|
Top = 175
|
|
|
|
Width = 401
|
|
|
|
Height = 17
|
|
|
|
Hint =
|
|
|
|
'Workaround for XML'#39's generated by people who do not understand t' +
|
|
|
|
'he concept of optional elements or XSD'#39's in general'
|
|
|
|
Caption =
|
|
|
|
' Check for empty elements as well as omitted elements in Has pro' +
|
|
|
|
'perties'
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
2017-09-06 15:12:15 +00:00
|
|
|
object cbGenerateGetOptionalOrDefault: TCheckBox
|
|
|
|
Left = 11
|
|
|
|
Top = 198
|
|
|
|
Width = 401
|
|
|
|
Height = 17
|
|
|
|
Hint = ' Generate a "Def" method for optional elements'
|
|
|
|
Caption = ' Generate a "Def" method for optional elements'
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
2009-09-18 07:49:04 +00:00
|
|
|
end
|
|
|
|
object btnGenerate: TButton
|
|
|
|
Left = 274
|
2017-09-06 15:12:15 +00:00
|
|
|
Top = 279
|
2009-09-18 07:49:04 +00:00
|
|
|
Width = 75
|
|
|
|
Height = 25
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
Caption = '&Generate'
|
|
|
|
Default = True
|
|
|
|
TabOrder = 3
|
|
|
|
OnClick = btnGenerateClick
|
|
|
|
end
|
|
|
|
object btnClose: TButton
|
|
|
|
Left = 355
|
2017-09-06 15:12:15 +00:00
|
|
|
Top = 279
|
2009-09-18 07:49:04 +00:00
|
|
|
Width = 75
|
|
|
|
Height = 25
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
Cancel = True
|
|
|
|
Caption = '&Close'
|
2020-10-30 07:41:26 +00:00
|
|
|
TabOrder = 2
|
2009-09-18 07:49:04 +00:00
|
|
|
OnClick = btnCloseClick
|
|
|
|
end
|
|
|
|
object btnHints: TButton
|
|
|
|
Left = 7
|
2017-09-06 15:12:15 +00:00
|
|
|
Top = 279
|
2009-09-18 07:49:04 +00:00
|
|
|
Width = 142
|
|
|
|
Height = 25
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
Cancel = True
|
|
|
|
Caption = 'Generate blank &Hints file'
|
2020-10-30 07:41:26 +00:00
|
|
|
TabOrder = 1
|
2009-09-18 07:49:04 +00:00
|
|
|
OnClick = btnHintsClick
|
|
|
|
end
|
2020-10-30 07:41:26 +00:00
|
|
|
object feSchema: TJvFilenameEdit
|
|
|
|
Left = 104
|
|
|
|
Top = 8
|
|
|
|
Width = 316
|
|
|
|
Height = 21
|
2020-11-02 08:34:03 +00:00
|
|
|
OnAfterDialog = feSchemaAfterDialog
|
|
|
|
DialogOptions = [ofHideReadOnly, ofFileMustExist]
|
2020-10-30 07:41:26 +00:00
|
|
|
TabOrder = 4
|
2020-11-02 08:34:03 +00:00
|
|
|
Text = ''
|
2009-09-18 07:49:04 +00:00
|
|
|
end
|
|
|
|
object dlgSchema: TOpenDialog
|
|
|
|
Filter = 'W3C XML Schema files (*.xsd)|*.xsd|All files (*.*)|*.*'
|
|
|
|
Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
|
2020-11-02 08:34:03 +00:00
|
|
|
Left = 284
|
2017-07-21 07:38:17 +00:00
|
|
|
Top = 40
|
2009-09-18 07:49:04 +00:00
|
|
|
end
|
|
|
|
object dlgOutputFile: TSaveDialog
|
|
|
|
Filter = 'Delphi source files (*.pas)|*.pas|All files (*.*)|*.*'
|
|
|
|
Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
|
2020-11-02 08:34:03 +00:00
|
|
|
Left = 387
|
|
|
|
Top = 37
|
2009-09-18 07:49:04 +00:00
|
|
|
end
|
|
|
|
end
|