GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-06-28 22:47:38 +00:00
Code Issues Projects Releases Wiki Activity

[WIP] cx Komponenten durch Delphi eigene ersetzt

Browse Source 
DPROJ Search Path für x2 Zusatzkomponenten gesetzt, später in Submodule auslagern
This commit is contained in:
Philipp Winkel 2020-10-30 08:41:26 +01:00
parent f6b4267a5e
commit b1bba371ce
3 changed files with 55 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
Forms/MainFrm.dfm
View File

@ -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 (*.*)|*.*'

21
Forms/MainFrm.pas
View File

@ -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);

5
X2XMLDataBinding.dproj
View File

@ -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)\dclofficexp250.bpl">Microsoft Office XP 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 Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Platforms>