[WIP] cx Komponenten durch Delphi eigene ersetzt

DPROJ Search Path für x2 Zusatzkomponenten gesetzt, später in Submodule auslagern

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
+        object feFile: TEdit
-          Left = 88
+          Left = 76
-          Top = 4
+          Top = 3
-          Properties.Buttons = <
+          Width = 316
-            item
+          Height = 21
-              Kind = bkEllipsis
-            end>
-          Properties.OnButtonClick = feFilePropertiesButtonClick
           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
+        object edtFolderPrefix: TEdit
-          Left = 88
+          Left = 89
-          Top = 4
+          Top = 31
-          Anchors = [akLeft, akTop, akRight]
+          Width = 316
-          Properties.Buttons = <
+          Height = 21
-            item
-              Kind = bkEllipsis
-            end>
-          Properties.OnButtonClick = deFolderPropertiesButtonClick
           TabOrder = 0
-          Width = 317
+          Text = 'Edit1'
         end
-        object edtFolderPrefix: TcxTextEdit
+        object edtFolderPostfix: TEdit
-          Left = 88
+          Left = 89
-          Top = 29
+          Top = 59
+          Width = 316
+          Height = 21
           TabOrder = 1
-          Text = 'xml_'
+          Text = 'Edit1'
-          Width = 121
         end
-        object edtFolderPostfix: TcxTextEdit
+        object deFolder: TEdit
-          Left = 88
+          Left = 89
-          Top = 55
+          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
+  object feSchema: TJvFilenameEdit
-    Style.HotTrack = False
+    Left = 104
-    Left = 264
+    Top = 8
-    Top = 60
+    Width = 316
-    PixelsPerInch = 96
+    Height = 21
-  end
+    TabOrder = 4
-  object LookAndFeel: TcxLookAndFeelController
+    Text = 'feSchema'
-    Kind = lfFlat
-    Left = 368
-    Top = 60
   end
   object dlgSchema: TOpenDialog
     Filter = 'W3C XML Schema files (*.xsd)|*.xsd|All files (*.*)|*.*'

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,
+  cxGraphics, cxLookAndFeelPainters, cxClasses}
-  XMLDataBindingGenerator, 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);

X2XMLDataBinding.dproj

@@ -52,6 +52,7 @@
         <VerInfo_Locale>1043</VerInfo_Locale>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <SanitizedProjectName>X2XMLDataBinding</SanitizedProjectName>
+        <DCC_UnitSearchPath>..\x2utils;..\x2log;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
         <DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
@@ -133,8 +134,8 @@
                     <Source Name="MainSource">X2XMLDataBinding.dpr</Source>
                 </Source>
                 <Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages>
-                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
                 </Excluded_Packages>
             </Delphi.Personality>
             <Platforms>