diff --git a/Forms/MainFrm.dfm b/Forms/MainFrm.dfm index 641bd33..d859bea 100644 --- a/Forms/MainFrm.dfm +++ b/Forms/MainFrm.dfm @@ -27,19 +27,6 @@ object MainForm: TMainForm Height = 13 Caption = 'Schema file:' end - object feSchema: TcxButtonEdit - Left = 99 - Top = 8 - Anchors = [akLeft, akTop, akRight] - Properties.Buttons = < - item - Kind = bkEllipsis - end> - Properties.OnButtonClick = feSchemaPropertiesButtonClick - Properties.OnChange = feSchemaPropertiesChange - TabOrder = 0 - Width = 331 - end object gbOutput: TGroupBox Left = 8 Top = 43 @@ -47,7 +34,7 @@ object MainForm: TMainForm Height = 225 Anchors = [akLeft, akTop, akBottom] Caption = ' Output ' - TabOrder = 1 + TabOrder = 0 DesignSize = ( 422 225) @@ -82,10 +69,6 @@ object MainForm: TMainForm TabOrder = 2 object spFile: TTabSheet TabVisible = False - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object lblFile: TLabel Left = 4 Top = 7 @@ -93,23 +76,17 @@ object MainForm: TMainForm Height = 13 Caption = 'Output file:' end - object feFile: TcxButtonEdit - Left = 88 - Top = 4 - Properties.Buttons = < - item - Kind = bkEllipsis - end> - Properties.OnButtonClick = feFilePropertiesButtonClick + object feFile: TEdit + Left = 76 + Top = 3 + Width = 316 + Height = 21 TabOrder = 0 - Width = 317 + Text = 'D:\Temp\test.pas' end end object spFolder: TTabSheet TabVisible = False - DesignSize = ( - 408 - 83) object lblFolder: TLabel Left = 4 Top = 7 @@ -131,30 +108,36 @@ object MainForm: TMainForm Height = 13 Caption = 'File postfix:' end - object deFolder: TcxButtonEdit - Left = 88 - Top = 4 - Anchors = [akLeft, akTop, akRight] - Properties.Buttons = < - item - Kind = bkEllipsis - end> - Properties.OnButtonClick = deFolderPropertiesButtonClick + object edtFolderPrefix: TEdit + Left = 89 + Top = 31 + Width = 316 + Height = 21 TabOrder = 0 - Width = 317 + Text = 'Edit1' end - object edtFolderPrefix: TcxTextEdit - Left = 88 - Top = 29 + object edtFolderPostfix: TEdit + Left = 89 + Top = 59 + Width = 316 + Height = 21 TabOrder = 1 - Text = 'xml_' - Width = 121 + Text = 'Edit1' end - object edtFolderPostfix: TcxTextEdit - Left = 88 - Top = 55 + object deFolder: TEdit + Left = 89 + Top = 4 + Width = 256 + Height = 21 TabOrder = 2 - Width = 121 + end + object BrowseOutputFolderButton: TButton + Left = 351 + Top = 4 + Width = 64 + Height = 22 + Caption = 'BrowseOutputFolderButton' + TabOrder = 3 end end end @@ -200,7 +183,7 @@ object MainForm: TMainForm Anchors = [akRight, akBottom] Cancel = True Caption = '&Close' - TabOrder = 4 + TabOrder = 2 OnClick = btnCloseClick end object btnHints: TButton @@ -211,19 +194,16 @@ object MainForm: TMainForm Anchors = [akRight, akBottom] Cancel = True Caption = 'Generate blank &Hints file' - TabOrder = 2 + TabOrder = 1 OnClick = btnHintsClick end - object DefaultEditStyle: TcxDefaultEditStyleController - Style.HotTrack = False - Left = 264 - Top = 60 - PixelsPerInch = 96 - end - object LookAndFeel: TcxLookAndFeelController - Kind = lfFlat - Left = 368 - Top = 60 + object feSchema: TJvFilenameEdit + Left = 104 + Top = 8 + Width = 316 + Height = 21 + TabOrder = 4 + Text = 'feSchema' end object dlgSchema: TOpenDialog Filter = 'W3C XML Schema files (*.xsd)|*.xsd|All files (*.*)|*.*' diff --git a/Forms/MainFrm.pas b/Forms/MainFrm.pas index b902384..b45d313 100644 --- a/Forms/MainFrm.pas +++ b/Forms/MainFrm.pas @@ -13,7 +13,9 @@ uses StdCtrls, XMLDOM, XMLIntf, - + DataBindingHintsXML, + XMLDataBindingGenerator, JvExMask, JvToolEdit + { cxButtonEdit, cxContainer, cxControls, @@ -22,8 +24,8 @@ uses cxMaskEdit, cxTextEdit, - DataBindingHintsXML, - XMLDataBindingGenerator, cxGraphics, cxLookAndFeelPainters, cxClasses; + cxGraphics, cxLookAndFeelPainters, cxClasses} + ; type @@ -31,21 +33,14 @@ type btnClose: TButton; btnGenerate: TButton; btnHints: TButton; - DefaultEditStyle: TcxDefaultEditStyleController; - deFolder: TcxButtonEdit; dlgOutputFile: TSaveDialog; dlgSchema: TOpenDialog; - edtFolderPostfix: TcxTextEdit; - edtFolderPrefix: TcxTextEdit; - feFile: TcxButtonEdit; - feSchema: TcxButtonEdit; gbOutput: TGroupBox; lblFile: TLabel; lblFolder: TLabel; lblFolderPostfix: TLabel; lblFolderPrefix: TLabel; lblSchema: TLabel; - LookAndFeel: TcxLookAndFeelController; plOutput: TPageControl; rbFile: TRadioButton; rbFolder: TRadioButton; @@ -53,6 +48,12 @@ type spFolder: TTabSheet; cbHasChecksEmpty: TCheckBox; cbGenerateGetOptionalOrDefault: TCheckBox; + edtFolderPrefix: TEdit; + edtFolderPostfix: TEdit; + feFile: TEdit; + deFolder: TEdit; + feSchema: TJvFilenameEdit; + BrowseOutputFolderButton: TButton; procedure btnCloseClick(Sender: TObject); procedure btnGenerateClick(Sender: TObject); diff --git a/X2XMLDataBinding.dproj b/X2XMLDataBinding.dproj index cd277d4..081bb05 100644 --- a/X2XMLDataBinding.dproj +++ b/X2XMLDataBinding.dproj @@ -52,6 +52,7 @@ 1043 $(BDS)\bin\default_app.manifest X2XMLDataBinding + ..\x2utils;..\x2log;$(DCC_UnitSearchPath) Data.Win;Datasnap.Win;Web.Win;Soap.Win;Bde;$(DCC_Namespace) @@ -133,8 +134,8 @@ X2XMLDataBinding.dpr - Microsoft Office 2000 Sample Automation Server Wrapper Components - Microsoft Office XP Sample Automation Server Wrapper Components + Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver + Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server