mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-01 13:03:43 +02:00
699 lines
20 KiB
Plaintext
699 lines
20 KiB
Plaintext
object GeneratorSettingsFrame: TGeneratorSettingsFrame
|
|
Left = 0
|
|
Height = 500
|
|
Top = 0
|
|
Width = 711
|
|
ClientHeight = 500
|
|
ClientWidth = 711
|
|
TabOrder = 0
|
|
DesignLeft = 495
|
|
DesignTop = 272
|
|
object edtFile: TFileNameEdit
|
|
Left = 104
|
|
Height = 28
|
|
Top = 8
|
|
Width = 591
|
|
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 = 409
|
|
Top = 75
|
|
Width = 679
|
|
ActivePage = TSGeneral
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Right = 16
|
|
BorderSpacing.Bottom = 16
|
|
TabIndex = 0
|
|
TabOrder = 3
|
|
object TSGeneral: TTabSheet
|
|
Caption = 'General'
|
|
ClientHeight = 379
|
|
ClientWidth = 669
|
|
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 = 147
|
|
Top = 101
|
|
Width = 560
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Automatic file naming'
|
|
ClientHeight = 130
|
|
ClientWidth = 558
|
|
TabOrder = 3
|
|
object edtUnitSuffix: TEdit
|
|
AnchorSideLeft.Control = lblUnitSuffix
|
|
AnchorSideTop.Control = lblUnitSuffix
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 32
|
|
Width = 176
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 0
|
|
Text = 'edtUnitSuffix'
|
|
end
|
|
object lblUnitSuffix: TLabel
|
|
AnchorSideLeft.Control = GBAutoNaming
|
|
AnchorSideTop.Control = GBAutoNaming
|
|
Left = 16
|
|
Height = 16
|
|
Top = 8
|
|
Width = 156
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Unit name suffix template'
|
|
end
|
|
object edtUnitExtension: TEdit
|
|
AnchorSideLeft.Control = lblUnitNameExtension
|
|
AnchorSideTop.Control = lblUnitNameExtension
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 92
|
|
Width = 80
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 1
|
|
Text = 'edtUnitExtension'
|
|
end
|
|
object lblUnitNameExtension: TLabel
|
|
AnchorSideLeft.Control = edtUnitSuffix
|
|
AnchorSideTop.Control = edtUnitSuffix
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 68
|
|
Width = 123
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Unit name extension'
|
|
end
|
|
end
|
|
object edtServiceNameSuffix: TEdit
|
|
AnchorSideLeft.Control = lblServiceNameSuffix
|
|
AnchorSideTop.Control = lblServiceNameSuffix
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 280
|
|
Width = 136
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 4
|
|
Text = 'edtServiceNameSuffix'
|
|
end
|
|
object edtServiceNamePrefix: TEdit
|
|
AnchorSideLeft.Control = Label1
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 340
|
|
Width = 144
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 5
|
|
Text = 'edtServiceNamePrefix'
|
|
end
|
|
object lblServiceNameSuffix: TLabel
|
|
AnchorSideLeft.Control = GBAutoNaming
|
|
AnchorSideTop.Control = GBAutoNaming
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 256
|
|
Width = 116
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Service name suffix'
|
|
end
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = edtServiceNameSuffix
|
|
AnchorSideTop.Control = edtServiceNameSuffix
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 316
|
|
Width = 117
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Service name prefix'
|
|
end
|
|
end
|
|
object TSData: TTabSheet
|
|
Caption = 'Data'
|
|
ClientHeight = 379
|
|
ClientWidth = 669
|
|
object edtDtoUnit: TEdit
|
|
AnchorSideLeft.Control = lblDtoUnitName
|
|
AnchorSideTop.Control = lblDtoUnitName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 32
|
|
Width = 160
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 0
|
|
Text = 'edtDtoUnit'
|
|
end
|
|
object edtSerializeUnit: TEdit
|
|
AnchorSideLeft.Control = lblDtoUnitName
|
|
AnchorSideTop.Control = lblSerializeUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 92
|
|
Width = 160
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 1
|
|
Text = 'edtSerializeUnit'
|
|
end
|
|
object lblDtoUnitName: TLabel
|
|
AnchorSideLeft.Control = TSData
|
|
AnchorSideTop.Control = TSData
|
|
Left = 16
|
|
Height = 16
|
|
Top = 8
|
|
Width = 86
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Dto unit name'
|
|
end
|
|
object lblSerializeUnit: TLabel
|
|
AnchorSideLeft.Control = lblDtoUnitName
|
|
AnchorSideTop.Control = edtDtoUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 68
|
|
Width = 81
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Serializer unit'
|
|
end
|
|
end
|
|
object TSClient: TTabSheet
|
|
Caption = 'Client'
|
|
ClientHeight = 379
|
|
ClientWidth = 669
|
|
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 = CBAsyncService
|
|
AnchorSideTop.Control = lblClientServiceImplementationUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 154
|
|
Width = 208
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 2
|
|
Text = 'edtClientServiceImplementationUnit'
|
|
end
|
|
object edtClientServiceInterfaceUnit: TEdit
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = lblClientServiceInterfaceUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 94
|
|
Width = 208
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 3
|
|
Text = 'edtClientServiceInterfaceUnit'
|
|
end
|
|
object lblClientServiceInterfaceUnit: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = cbCancelRequest
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 70
|
|
Width = 198
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Client service interface unit name'
|
|
end
|
|
object lblClientServiceImplementationUnit: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtClientServiceInterfaceUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 130
|
|
Width = 278
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Client service proxy implementation unit name'
|
|
end
|
|
object edtClientServiceParentClass: TEdit
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = lblClientServiceParentClass
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 214
|
|
Width = 208
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 4
|
|
Text = 'edtClientServiceParentClass'
|
|
end
|
|
object edtClientServiceParentUnit: TEdit
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = lblClientServiceParentUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 274
|
|
Width = 208
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 5
|
|
Text = 'edtClientServiceParentUnit'
|
|
end
|
|
object lblClientServiceParentClass: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtClientServiceImplementationUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 190
|
|
Width = 154
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Client service parent class'
|
|
end
|
|
object lblClientServiceParentUnit: TLabel
|
|
AnchorSideLeft.Control = CBAsyncService
|
|
AnchorSideTop.Control = edtClientServiceParentClass
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 250
|
|
Width = 185
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Client service parent unit name'
|
|
end
|
|
end
|
|
object TSServer: TTabSheet
|
|
Caption = 'Server'
|
|
ClientHeight = 379
|
|
ClientWidth = 669
|
|
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
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = lblServerHandlerUnitName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 94
|
|
Width = 242
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 2
|
|
Text = 'edtServerHandlerUnitName'
|
|
end
|
|
object edtServerImplementationUnitName: TEdit
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = lblServerImplementationUnitName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 154
|
|
Width = 240
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 3
|
|
Text = 'edtServerImplementationUnitName'
|
|
end
|
|
object edtServerServiceParentClass: TEdit
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = lblServerServiceParentClass
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 214
|
|
Width = 216
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 4
|
|
Text = 'edtServerServiceParentClass'
|
|
end
|
|
object edtServerServiceParentUnit: TEdit
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = lblServerServiceParentUnit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 28
|
|
Top = 275
|
|
Width = 208
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 5
|
|
Text = 'edtServerServiceParentUnit'
|
|
end
|
|
object lblServerHandlerUnitName: TLabel
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = CBSkipImplementation
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 70
|
|
Width = 151
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Server handler unit name'
|
|
end
|
|
object lblServerImplementationUnitName: TLabel
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = edtServerHandlerUnitName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 130
|
|
Width = 199
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Server implementation unit name'
|
|
end
|
|
object lblServerServiceParentClass: TLabel
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = edtServerImplementationUnitName
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 190
|
|
Width = 157
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Server service parent class'
|
|
end
|
|
object lblServerServiceParentUnit: TLabel
|
|
AnchorSideLeft.Control = CBAbstractCalls
|
|
AnchorSideTop.Control = edtServerServiceParentClass
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 16
|
|
Top = 251
|
|
Width = 187
|
|
BorderSpacing.Top = 9
|
|
Caption = 'server service parent unit name'
|
|
end
|
|
end
|
|
object TSUUIDMap: TTabSheet
|
|
Caption = 'GUID map'
|
|
ClientHeight = 379
|
|
ClientWidth = 669
|
|
object VLEUUIDMap: TValueListEditor
|
|
Left = 8
|
|
Height = 316
|
|
Top = 16
|
|
Width = 653
|
|
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 = (
|
|
325
|
|
324
|
|
)
|
|
end
|
|
object edtUUIDMap: TFileNameEdit
|
|
Left = 112
|
|
Height = 28
|
|
Top = 343
|
|
Width = 461
|
|
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 = 343
|
|
Width = 96
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'GUID Map file'
|
|
Layout = tlCenter
|
|
end
|
|
object btnLoadUUIDMap: TButton
|
|
Left = 586
|
|
Height = 25
|
|
Top = 343
|
|
Width = 75
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Load'
|
|
TabOrder = 2
|
|
OnClick = btnLoadUUIDMapClick
|
|
end
|
|
end
|
|
object TSServiceMap: TTabSheet
|
|
Caption = 'Service name map'
|
|
ClientHeight = 379
|
|
ClientWidth = 669
|
|
object VLEServiceMap: TValueListEditor
|
|
Left = 8
|
|
Height = 316
|
|
Top = 16
|
|
Width = 653
|
|
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 = (
|
|
325
|
|
324
|
|
)
|
|
end
|
|
object lblUUIDMap1: TLabel
|
|
AnchorSideTop.Control = edtServiceMapFile
|
|
AnchorSideRight.Control = edtServiceMapFile
|
|
AnchorSideBottom.Control = edtServiceMapFile
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 8
|
|
Height = 28
|
|
Top = 343
|
|
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 = 343
|
|
Width = 461
|
|
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 = 586
|
|
Height = 25
|
|
Top = 343
|
|
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
|