mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 06:57:54 +02:00
887 lines
27 KiB
Plaintext
887 lines
27 KiB
Plaintext
object GeneratorSettingsFrame: TGeneratorSettingsFrame
|
|
Left = 0
|
|
Height = 479
|
|
Top = 0
|
|
Width = 753
|
|
ClientHeight = 479
|
|
ClientWidth = 753
|
|
TabOrder = 0
|
|
DesignLeft = 495
|
|
DesignTop = 272
|
|
object edtFile: TFileNameEdit
|
|
Left = 104
|
|
Height = 28
|
|
Top = 8
|
|
Width = 633
|
|
FileName = 'edtFile'
|
|
DialogOptions = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
|
Filter = 'JSON files|*.json|All files|*.*'
|
|
FilterIndex = 0
|
|
HideDirectories = False
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
Anchors = [akTop, akLeft, akRight]
|
|
MaxLength = 0
|
|
TabOrder = 0
|
|
Text = 'edtFile'
|
|
end
|
|
object lblOpenAPIFile: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = edtFile
|
|
AnchorSideRight.Control = edtFile
|
|
AnchorSideBottom.Control = edtFile
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 8
|
|
Width = 80
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Right = 8
|
|
Caption = 'OpenAPI file'
|
|
Layout = tlCenter
|
|
end
|
|
object cbGenServer: TCheckBox
|
|
AnchorSideLeft.Control = CBGenClient
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = CBGenClient
|
|
Left = 141
|
|
Height = 23
|
|
Top = 44
|
|
Width = 121
|
|
BorderSpacing.Left = 8
|
|
Caption = 'Generate server'
|
|
TabOrder = 1
|
|
end
|
|
object CBGenClient: TCheckBox
|
|
AnchorSideLeft.Control = lblOpenAPIFile
|
|
AnchorSideTop.Control = edtFile
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 23
|
|
Top = 44
|
|
Width = 117
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Generate client'
|
|
TabOrder = 2
|
|
end
|
|
object PCSettings: TPageControl
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = CBGenClient
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 388
|
|
Top = 75
|
|
Width = 721
|
|
ActivePage = TSServiceMap
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Right = 16
|
|
BorderSpacing.Bottom = 16
|
|
TabIndex = 5
|
|
TabOrder = 3
|
|
object TSGeneral: TTabSheet
|
|
Caption = 'General'
|
|
ClientHeight = 358
|
|
ClientWidth = 711
|
|
OnContextPopup = TSGeneralContextPopup
|
|
object CBDelphiCode: TCheckBox
|
|
AnchorSideLeft.Control = TSGeneral
|
|
AnchorSideTop.Control = TSGeneral
|
|
Left = 16
|
|
Height = 23
|
|
Top = 8
|
|
Width = 98
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Delphi code'
|
|
TabOrder = 0
|
|
end
|
|
object CBVerboseHeader: TCheckBox
|
|
AnchorSideLeft.Control = CBDelphiCode
|
|
AnchorSideTop.Control = CBDelphiCode
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 23
|
|
Top = 39
|
|
Width = 120
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Verbose header'
|
|
TabOrder = 1
|
|
end
|
|
object CBEnums: TCheckBox
|
|
AnchorSideLeft.Control = CBVerboseHeader
|
|
AnchorSideTop.Control = CBVerboseHeader
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 23
|
|
Top = 70
|
|
Width = 160
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Use enumerated types'
|
|
TabOrder = 2
|
|
end
|
|
object GBAutoNaming: TGroupBox
|
|
AnchorSideLeft.Control = CBEnums
|
|
AnchorSideTop.Control = CBEnums
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 99
|
|
Top = 101
|
|
Width = 683
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Automatic file naming'
|
|
ClientHeight = 82
|
|
ClientWidth = 681
|
|
TabOrder = 3
|
|
object edtUnitSuffix: TEdit
|
|
AnchorSideTop.Control = GBAutoNaming
|
|
Left = 180
|
|
Height = 28
|
|
Top = 8
|
|
Width = 176
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 0
|
|
Text = 'edtUnitSuffix'
|
|
end
|
|
object lblUnitSuffix: TLabel
|
|
AnchorSideLeft.Control = GBAutoNaming
|
|
AnchorSideTop.Control = edtUnitSuffix
|
|
AnchorSideRight.Control = edtUnitSuffix
|
|
AnchorSideBottom.Control = edtUnitSuffix
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 8
|
|
Height = 28
|
|
Top = 8
|
|
Width = 164
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Unit name suffix template'
|
|
Layout = tlCenter
|
|
end
|
|
object edtUnitExtension: TEdit
|
|
AnchorSideLeft.Control = edtUnitSuffix
|
|
AnchorSideTop.Control = edtUnitSuffix
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 180
|
|
Height = 28
|
|
Top = 44
|
|
Width = 176
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 1
|
|
Text = 'edtUnitExtension'
|
|
end
|
|
object lblUnitNameExtension: TLabel
|
|
AnchorSideLeft.Control = GBAutoNaming
|
|
AnchorSideTop.Control = edtUnitExtension
|
|
AnchorSideRight.Control = edtUnitExtension
|
|
AnchorSideBottom.Control = edtUnitExtension
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 28
|
|
Top = 44
|
|
Width = 172
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Unit name extension'
|
|
Layout = tlCenter
|
|
end
|
|
end
|
|
object edtServiceNameSuffix: TEdit
|
|
AnchorSideTop.Control = GBAutoNaming
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 198
|
|
Height = 28
|
|
Top = 208
|
|
Width = 136
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 4
|
|
Text = 'edtServiceNameSuffix'
|
|
end
|
|
object edtServiceNamePrefix: TEdit
|
|
AnchorSideLeft.Control = edtServiceNameSuffix
|
|
AnchorSideTop.Control = edtServiceNameSuffix
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 198
|
|
Height = 28
|
|
Top = 244
|
|
Width = 134
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 5
|
|
Text = 'edtServiceNamePrefix'
|
|
end
|
|
object lblServiceNameSuffix: TLabel
|
|
AnchorSideLeft.Control = GBAutoNaming
|
|
AnchorSideTop.Control = edtServiceNameSuffix
|
|
AnchorSideRight.Control = edtServiceNameSuffix
|
|
AnchorSideBottom.Control = edtServiceNameSuffix
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 208
|
|
Width = 174
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Service name suffix'
|
|
Layout = tlCenter
|
|
end
|
|
object lblServiceNamePrefix: TLabel
|
|
AnchorSideLeft.Control = GBAutoNaming
|
|
AnchorSideTop.Control = edtServiceNamePrefix
|
|
AnchorSideRight.Control = edtServiceNamePrefix
|
|
AnchorSideBottom.Control = edtServiceNamePrefix
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 244
|
|
Width = 174
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Service name prefix'
|
|
Layout = tlCenter
|
|
end
|
|
end
|
|
object TSData: TTabSheet
|
|
Caption = 'Data'
|
|
ClientHeight = 358
|
|
ClientWidth = 711
|
|
object edtDtoUnit: TEdit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 160
|
|
Height = 28
|
|
Top = 8
|
|
Width = 160
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 0
|
|
Text = 'edtDtoUnit'
|
|
end
|
|
object edtSerializeUnit: TEdit
|
|
AnchorSideLeft.Control = edtDtoUnit
|
|
AnchorSideTop.Control = edtDtoUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtDtoUnit
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 160
|
|
Height = 28
|
|
Top = 44
|
|
Width = 160
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 1
|
|
Text = 'edtSerializeUnit'
|
|
end
|
|
object lblDtoUnitName: TLabel
|
|
AnchorSideLeft.Control = TSData
|
|
AnchorSideTop.Control = edtDtoUnit
|
|
AnchorSideRight.Control = edtDtoUnit
|
|
AnchorSideBottom.Control = edtDtoUnit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 8
|
|
Width = 136
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Dto unit name'
|
|
Layout = tlCenter
|
|
end
|
|
object lblSerializeUnit: TLabel
|
|
AnchorSideLeft.Control = lblDtoUnitName
|
|
AnchorSideTop.Control = edtSerializeUnit
|
|
AnchorSideRight.Control = edtSerializeUnit
|
|
AnchorSideBottom.Control = edtSerializeUnit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 44
|
|
Width = 136
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Serializer unit'
|
|
Layout = tlCenter
|
|
end
|
|
end
|
|
object TSClient: TTabSheet
|
|
Caption = 'Client'
|
|
ClientHeight = 358
|
|
ClientWidth = 711
|
|
object CBAsyncService: TCheckBox
|
|
AnchorSideLeft.Control = TSClient
|
|
AnchorSideTop.Control = TSClient
|
|
Left = 16
|
|
Height = 23
|
|
Top = 8
|
|
Width = 172
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Asynchrone service calls'
|
|
TabOrder = 0
|
|
OnChange = HandleSyncCheck
|
|
end
|
|
object cbCancelRequest: TCheckBox
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = CBAsyncService
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 40
|
|
Height = 23
|
|
Top = 39
|
|
Width = 299
|
|
BorderSpacing.Left = 24
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Generate CancelRequest (asynchronous only)'
|
|
TabOrder = 1
|
|
end
|
|
object edtClientServiceImplementationUnit: TEdit
|
|
AnchorSideLeft.Control = edtClientServiceInterfaceUnit
|
|
AnchorSideTop.Control = edtClientServiceInterfaceUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtClientServiceInterfaceUnit
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 340
|
|
Height = 28
|
|
Top = 168
|
|
Width = 208
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 2
|
|
Text = 'edtClientServiceImplementationUnit'
|
|
end
|
|
object edtClientServiceInterfaceUnit: TEdit
|
|
AnchorSideTop.Control = cbProxyModuleFormFile
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 340
|
|
Height = 28
|
|
Top = 132
|
|
Width = 208
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 3
|
|
Text = 'edtClientServiceInterfaceUnit'
|
|
end
|
|
object lblClientServiceInterfaceUnit: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtClientServiceInterfaceUnit
|
|
AnchorSideRight.Control = edtClientServiceInterfaceUnit
|
|
AnchorSideBottom.Control = edtClientServiceInterfaceUnit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 102
|
|
Height = 28
|
|
Top = 132
|
|
Width = 230
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Client service interface unit name'
|
|
Layout = tlCenter
|
|
end
|
|
object lblClientServiceImplementationUnit: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtClientServiceImplementationUnit
|
|
AnchorSideRight.Control = edtClientServiceImplementationUnit
|
|
AnchorSideBottom.Control = edtClientServiceImplementationUnit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 168
|
|
Width = 316
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Client service proxy implementation unit name'
|
|
Layout = tlCenter
|
|
end
|
|
object edtClientServiceParentClass: TEdit
|
|
AnchorSideLeft.Control = edtClientServiceImplementationUnit
|
|
AnchorSideTop.Control = edtClientServiceImplementationUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtClientServiceImplementationUnit
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 340
|
|
Height = 28
|
|
Top = 204
|
|
Width = 208
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 4
|
|
Text = 'edtClientServiceParentClass'
|
|
end
|
|
object edtClientServiceParentUnit: TEdit
|
|
AnchorSideLeft.Control = edtClientServiceParentClass
|
|
AnchorSideTop.Control = edtClientServiceParentClass
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtClientServiceParentClass
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 340
|
|
Height = 28
|
|
Top = 240
|
|
Width = 208
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 5
|
|
Text = 'edtClientServiceParentUnit'
|
|
end
|
|
object lblClientServiceParentClass: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtClientServiceParentClass
|
|
AnchorSideRight.Control = edtClientServiceParentClass
|
|
AnchorSideBottom.Control = edtClientServiceParentClass
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 204
|
|
Width = 316
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Client service parent class'
|
|
Layout = tlCenter
|
|
end
|
|
object lblClientServiceParentUnit: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtClientServiceParentUnit
|
|
AnchorSideRight.Control = edtClientServiceParentUnit
|
|
AnchorSideBottom.Control = edtClientServiceParentUnit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 240
|
|
Width = 316
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Client service parent unit name'
|
|
Layout = tlCenter
|
|
end
|
|
object cbGenerateServerProxyModule: TCheckBox
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = cbCancelRequest
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 23
|
|
Top = 70
|
|
Width = 208
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Generate server proxy module'
|
|
TabOrder = 6
|
|
OnChange = cbGenerateServerProxyModuleChange
|
|
end
|
|
object Label2: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtServerProxyModule
|
|
AnchorSideRight.Control = edtServerProxyModule
|
|
AnchorSideBottom.Control = edtServerProxyModule
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 276
|
|
Width = 316
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Client Serverproxy module unit'
|
|
Layout = tlCenter
|
|
end
|
|
object edtServerProxyModule: TEdit
|
|
AnchorSideLeft.Control = edtClientServiceParentUnit
|
|
AnchorSideTop.Control = edtClientServiceParentUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtClientServiceParentUnit
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 340
|
|
Height = 28
|
|
Top = 276
|
|
Width = 208
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 7
|
|
Text = 'edtServerProxyModule'
|
|
end
|
|
object lblServerProxyUnit: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtServerProxyUnit
|
|
AnchorSideRight.Control = edtServerProxyUnit
|
|
AnchorSideBottom.Control = edtServerProxyUnit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 312
|
|
Width = 316
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Server Proxy unit name'
|
|
Layout = tlCenter
|
|
end
|
|
object edtServerProxyUnit: TEdit
|
|
AnchorSideLeft.Control = edtServerProxyModule
|
|
AnchorSideTop.Control = edtServerProxyModule
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtServerProxyModule
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 340
|
|
Height = 28
|
|
Top = 312
|
|
Width = 208
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 8
|
|
Text = 'edtServerProxyUnit'
|
|
end
|
|
object cbProxyModuleFormFile: TCheckBox
|
|
AnchorSideLeft.Control = cbCancelRequest
|
|
AnchorSideTop.Control = cbGenerateServerProxyModule
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 40
|
|
Height = 23
|
|
Top = 101
|
|
Width = 212
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Generate datamodule form file'
|
|
TabOrder = 9
|
|
end
|
|
end
|
|
object TSServer: TTabSheet
|
|
Caption = 'Server'
|
|
ClientHeight = 358
|
|
ClientWidth = 711
|
|
object CBSkipImplementation: TCheckBox
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = CBAbstractCalls
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 40
|
|
Height = 23
|
|
Top = 39
|
|
Width = 302
|
|
BorderSpacing.Left = 24
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Skip implementation unit (only when abstract)'
|
|
TabOrder = 0
|
|
end
|
|
object CBAbstractCalls: TCheckBox
|
|
AnchorSideLeft.Control = TSServer
|
|
AnchorSideTop.Control = TSServer
|
|
Left = 16
|
|
Height = 23
|
|
Top = 8
|
|
Width = 356
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Generate abstract service calls in HTTP handler module'
|
|
TabOrder = 1
|
|
OnChange = HandleAbstract
|
|
end
|
|
object edtServerHandlerUnitName: TEdit
|
|
AnchorSideTop.Control = CBSkipImplementation
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 240
|
|
Height = 28
|
|
Top = 70
|
|
Width = 242
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 2
|
|
Text = 'edtServerHandlerUnitName'
|
|
end
|
|
object edtServerImplementationUnitName: TEdit
|
|
AnchorSideLeft.Control = edtServerHandlerUnitName
|
|
AnchorSideTop.Control = edtServerHandlerUnitName
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtServerHandlerUnitName
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 240
|
|
Height = 28
|
|
Top = 106
|
|
Width = 242
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 3
|
|
Text = 'edtServerImplementationUnitName'
|
|
end
|
|
object edtServerServiceParentClass: TEdit
|
|
AnchorSideLeft.Control = edtServerImplementationUnitName
|
|
AnchorSideTop.Control = edtServerImplementationUnitName
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtServerHandlerUnitName
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 240
|
|
Height = 28
|
|
Top = 142
|
|
Width = 242
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 4
|
|
Text = 'edtServerServiceParentClass'
|
|
end
|
|
object edtServerServiceParentUnit: TEdit
|
|
AnchorSideLeft.Control = edtServerServiceParentClass
|
|
AnchorSideTop.Control = edtServerServiceParentClass
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = edtServerHandlerUnitName
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 240
|
|
Height = 28
|
|
Top = 178
|
|
Width = 242
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 5
|
|
Text = 'edtServerServiceParentUnit'
|
|
end
|
|
object lblServerHandlerUnitName: TLabel
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = edtServerHandlerUnitName
|
|
AnchorSideRight.Control = edtServerHandlerUnitName
|
|
AnchorSideBottom.Control = edtServerHandlerUnitName
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 70
|
|
Width = 216
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Server handler unit name'
|
|
Layout = tlCenter
|
|
end
|
|
object lblServerImplementationUnitName: TLabel
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = edtServerImplementationUnitName
|
|
AnchorSideRight.Control = edtServerImplementationUnitName
|
|
AnchorSideBottom.Control = edtServerImplementationUnitName
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 106
|
|
Width = 216
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Server implementation unit name'
|
|
Layout = tlCenter
|
|
end
|
|
object lblServerServiceParentClass: TLabel
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = edtServerServiceParentClass
|
|
AnchorSideRight.Control = edtServerServiceParentClass
|
|
AnchorSideBottom.Control = edtServerServiceParentClass
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 142
|
|
Width = 216
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Server service parent class'
|
|
Layout = tlCenter
|
|
end
|
|
object lblServerServiceParentUnit: TLabel
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = edtServerServiceParentUnit
|
|
AnchorSideRight.Control = edtServerServiceParentUnit
|
|
AnchorSideBottom.Control = edtServerServiceParentUnit
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 178
|
|
Width = 216
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
AutoSize = False
|
|
BorderSpacing.Right = 8
|
|
Caption = 'server service parent unit name'
|
|
Layout = tlCenter
|
|
end
|
|
end
|
|
object TSUUIDMap: TTabSheet
|
|
Caption = 'GUID map'
|
|
ClientHeight = 358
|
|
ClientWidth = 711
|
|
object VLEUUIDMap: TValueListEditor
|
|
Left = 8
|
|
Height = 298
|
|
Top = 16
|
|
Width = 695
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
DefaultColWidth = 200
|
|
FixedCols = 0
|
|
RowCount = 2
|
|
TabOrder = 0
|
|
DisplayOptions = [doColumnTitles, doAutoColResize]
|
|
KeyOptions = [keyEdit, keyAdd, keyDelete, keyUnique]
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goAutoAddRows, goAlwaysShowEditor, goThumbTracking]
|
|
TitleCaptions.Strings = (
|
|
'Interface'
|
|
'GUID'
|
|
)
|
|
ColWidths = (
|
|
346
|
|
345
|
|
)
|
|
end
|
|
object edtUUIDMap: TFileNameEdit
|
|
Left = 112
|
|
Height = 28
|
|
Top = 325
|
|
Width = 503
|
|
DialogKind = dkSave
|
|
DialogOptions = [ofPathMustExist, ofEnableSizing, ofViewDetail]
|
|
FilterIndex = 0
|
|
HideDirectories = False
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
MaxLength = 0
|
|
TabOrder = 1
|
|
end
|
|
object lblUUIDMap: TLabel
|
|
AnchorSideTop.Control = edtUUIDMap
|
|
AnchorSideRight.Control = edtUUIDMap
|
|
AnchorSideBottom.Control = edtUUIDMap
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 8
|
|
Height = 28
|
|
Top = 325
|
|
Width = 96
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'GUID Map file'
|
|
Layout = tlCenter
|
|
end
|
|
object btnLoadUUIDMap: TButton
|
|
Left = 628
|
|
Height = 25
|
|
Top = 325
|
|
Width = 75
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Load'
|
|
TabOrder = 2
|
|
OnClick = btnLoadUUIDMapClick
|
|
end
|
|
end
|
|
object TSServiceMap: TTabSheet
|
|
Caption = 'Service name map'
|
|
ClientHeight = 358
|
|
ClientWidth = 711
|
|
object VLEServiceMap: TValueListEditor
|
|
Left = 8
|
|
Height = 298
|
|
Top = 16
|
|
Width = 695
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
DefaultColWidth = 200
|
|
FixedCols = 0
|
|
RowCount = 2
|
|
TabOrder = 0
|
|
DisplayOptions = [doColumnTitles, doAutoColResize]
|
|
KeyOptions = [keyEdit, keyAdd, keyDelete, keyUnique]
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goAutoAddRows, goAlwaysShowEditor, goThumbTracking]
|
|
TitleCaptions.Strings = (
|
|
'ServiceOperation'
|
|
'Service.Method'
|
|
)
|
|
ColWidths = (
|
|
347
|
|
346
|
|
)
|
|
end
|
|
object lblUUIDMap1: TLabel
|
|
AnchorSideTop.Control = edtServiceMapFile
|
|
AnchorSideRight.Control = edtServiceMapFile
|
|
AnchorSideBottom.Control = edtServiceMapFile
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 8
|
|
Height = 28
|
|
Top = 325
|
|
Width = 96
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Service Map file'
|
|
Layout = tlCenter
|
|
end
|
|
object edtServiceMapFile: TFileNameEdit
|
|
Left = 112
|
|
Height = 28
|
|
Top = 325
|
|
Width = 503
|
|
DialogKind = dkSave
|
|
DialogOptions = [ofPathMustExist, ofEnableSizing, ofViewDetail]
|
|
FilterIndex = 0
|
|
HideDirectories = False
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
MaxLength = 0
|
|
TabOrder = 1
|
|
end
|
|
object btnLoadUUIDMap1: TButton
|
|
Left = 628
|
|
Height = 25
|
|
Top = 325
|
|
Width = 75
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Load'
|
|
TabOrder = 2
|
|
OnClick = btnLoadUUIDMap1Click
|
|
end
|
|
end
|
|
end
|
|
object cbOpenFiles: TCheckBox
|
|
AnchorSideLeft.Control = cbGenServer
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = CBGenClient
|
|
Left = 270
|
|
Height = 23
|
|
Top = 44
|
|
Width = 192
|
|
BorderSpacing.Left = 8
|
|
Caption = 'Open generated files in IDE'
|
|
TabOrder = 4
|
|
end
|
|
object cbAddToProject: TCheckBox
|
|
AnchorSideLeft.Control = cbOpenFiles
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = CBGenClient
|
|
AnchorSideBottom.Control = CBGenClient
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 470
|
|
Height = 23
|
|
Top = 44
|
|
Width = 114
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
BorderSpacing.Left = 8
|
|
Caption = 'Add To Project'
|
|
TabOrder = 5
|
|
end
|
|
end
|