lazarus-ccr/components/chelper/extconvdialog.lfm

291 lines
7.5 KiB
Plaintext

object CtoPasConfig: TCtoPasConfig
Left = 482
Height = 584
Top = 106
Width = 668
Caption = 'C to Pascal settings'
ClientHeight = 584
ClientWidth = 668
OnClose = FormClose
OnResize = FormResize
LCLVersion = '0.9.31'
object PageControl1: TPageControl
Left = 10
Height = 564
Top = 10
Width = 648
ActivePage = MainPage
Align = alClient
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
BorderSpacing.Around = 5
TabIndex = 0
TabOrder = 0
object MainPage: TTabSheet
Caption = 'Main'
ClientHeight = 525
ClientWidth = 642
object Panel1: TPanel
Left = 0
Height = 170
Top = 0
Width = 642
Align = alTop
BevelOuter = bvNone
ClientHeight = 170
ClientWidth = 642
TabOrder = 0
object Label1: TLabel
Left = 6
Height = 17
Top = 5
Width = 150
Caption = 'Pascal code generation:'
ParentColor = False
end
object chkRecordsPacked: TCheckBox
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 27
Width = 144
BorderSpacing.Top = 5
Caption = 'Records are packed'
TabOrder = 0
end
object chkFuncAreExt: TCheckBox
AnchorSideLeft.Control = chkRecordsPacked
AnchorSideTop.Control = chkRecordsPacked
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 50
Width = 161
BorderSpacing.Top = 5
Caption = 'Functions are external'
TabOrder = 1
end
object chkEnums: TCheckBox
AnchorSideTop.Control = txtLibName
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 103
Width = 244
BorderSpacing.Top = 5
Caption = 'Enumerations are Integer constants'
TabOrder = 2
end
object lblCallConv: TLabel
AnchorSideLeft.Control = chkFuncAreExt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkFuncAreExt
Left = 187
Height = 17
Top = 50
Width = 122
BorderSpacing.Left = 20
Caption = 'Calling convention:'
ParentColor = False
end
object cmbCallConv: TComboBox
AnchorSideLeft.Control = lblCallConv
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblCallConv
Left = 329
Height = 21
Top = 50
Width = 160
BorderSpacing.Left = 20
ItemHeight = 0
ItemIndex = 1
Items.Strings = (
'(empty)'
'cdecl'
'stdcall'
'mwpascal'
'fastcall'
)
TabOrder = 3
Text = 'cdecl'
end
object lblDefines: TLabel
AnchorSideTop.Control = chkEnums
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 131
Width = 52
BorderSpacing.Top = 10
Caption = 'Defines:'
ParentColor = False
end
object edtDefines: TEdit
AnchorSideLeft.Control = lblDefines
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = chkEnums
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnSelect
Left = 64
Height = 22
Top = 131
Width = 411
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 10
BorderSpacing.Right = 6
TabOrder = 4
end
object btnSelect: TButton
AnchorSideTop.Control = btnEdit
AnchorSideRight.Control = btnEdit
Left = 481
Height = 20
Top = 131
Width = 70
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 10
Caption = 'Select'
OnClick = btnSelectClick
TabOrder = 5
end
object btnEdit: TButton
AnchorSideTop.Control = edtDefines
Left = 561
Height = 20
Top = 131
Width = 70
Anchors = [akTop, akRight]
Caption = 'Edit'
OnClick = btnEditClick
TabOrder = 6
end
object txtLibName: TEdit
AnchorSideLeft.Control = cmbCallConv
AnchorSideTop.Control = cmbCallConv
AnchorSideTop.Side = asrBottom
Left = 329
Height = 22
Top = 76
Width = 302
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 5
TabOrder = 7
end
object lblExtLibName: TLabel
AnchorSideLeft.Control = chkFuncAreExt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = txtLibName
Left = 187
Height = 17
Top = 76
Width = 83
BorderSpacing.Left = 20
Caption = 'Library name'
ParentColor = False
end
end
object Panel2: TPanel
Left = 0
Height = 355
Top = 170
Width = 642
Align = alClient
Alignment = taLeftJustify
BevelOuter = bvNone
ClientHeight = 355
ClientWidth = 642
TabOrder = 1
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 0
Width = 642
Align = alTop
ResizeAnchor = akTop
end
object Label2: TLabel
Left = 6
Height = 17
Top = 14
Width = 178
Caption = 'C to Pascal types convertion'
ParentColor = False
end
object Memo1: TMemo
Left = 6
Height = 305
Top = 44
Width = 630
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ScrollBars = ssVertical
TabOrder = 1
end
object Button2: TButton
Left = 476
Height = 20
Top = 14
Width = 160
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Reset to defaults'
OnClick = Button2Click
TabOrder = 2
end
end
end
object ConvPage: TTabSheet
Caption = 'Converter'
ClientHeight = 525
ClientWidth = 642
object edtExtTool: TEdit
AnchorSideTop.Control = chkUseExternal
AnchorSideTop.Side = asrBottom
Left = 13
Height = 22
Top = 32
Width = 959
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10
TabOrder = 0
end
object Button1: TButton
AnchorSideTop.Control = chkUseExternal
AnchorSideTop.Side = asrBottom
Left = 986
Height = 20
Top = 32
Width = 70
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 10
Caption = 'Select'
OnClick = Button1Click
TabOrder = 1
end
object chkUseExternal: TCheckBox
Left = 13
Height = 18
Top = 4
Width = 163
Caption = 'Use external converter'
TabOrder = 2
end
end
end
object OpenDialog1: TOpenDialog
left = 304
top = 168
end
end