Files
lazarus-ccr/components/chelper/extconvdialog.lfm

259 lines
6.4 KiB
Plaintext

object CtoPasConfig: TCtoPasConfig
Left = 406
Height = 584
Top = 128
Width = 668
Caption = 'C to Pascal settings'
ClientHeight = 584
ClientWidth = 668
OnClose = FormClose
OnResize = FormResize
LCLVersion = '0.9.31'
object Notebook1: TNotebook
Left = 16
Height = 559
Top = 8
Width = 635
PageIndex = 0
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0
TabStop = True
object pageMain: TPage
ClientWidth = 635
ClientHeight = 559
object Panel1: TPanel
Left = 0
Height = 228
Top = 0
Width = 635
Align = alTop
BevelOuter = bvNone
ClientHeight = 228
ClientWidth = 635
TabOrder = 0
object Label1: TLabel
Left = 6
Height = 17
Top = 5
Width = 150
Caption = 'Pascal code generation:'
ParentColor = False
end
object chkRecordsPacked: TCheckBox
Left = 6
Height = 18
Top = 36
Width = 144
Caption = 'Records are packed'
TabOrder = 0
end
object chkFuncAreExt: TCheckBox
Left = 6
Height = 18
Top = 70
Width = 161
Caption = 'Functions are external'
TabOrder = 1
end
object chkEnums: TCheckBox
Left = 6
Height = 18
Top = 132
Width = 244
Caption = 'Enumerations are Integer constants'
TabOrder = 2
end
object lblCallConv: TLabel
AnchorSideLeft.Control = chkFuncAreExt
AnchorSideLeft.Side = asrBottom
Left = 187
Height = 17
Top = 71
Width = 118
BorderSpacing.Left = 20
Caption = 'Calling convention'
ParentColor = False
end
object cmbCallConv: TComboBox
AnchorSideLeft.Control = lblCallConv
AnchorSideLeft.Side = asrBottom
Left = 325
Height = 21
Top = 70
Width = 160
BorderSpacing.Left = 20
ItemHeight = 0
ItemIndex = 1
Items.Strings = (
'(empty)'
'cdecl'
'stdcall'
'mwpascal'
'fastcall'
)
TabOrder = 3
Text = 'cdecl'
end
object lblDefines: TLabel
Left = 6
Height = 17
Top = 172
Width = 52
Caption = 'Defines:'
ParentColor = False
end
object edtDefines: TEdit
AnchorSideLeft.Control = lblDefines
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = btnSelect
Left = 64
Height = 22
Top = 172
Width = 394
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
TabOrder = 4
end
object btnSelect: TButton
AnchorSideRight.Control = btnEdit
Left = 464
Height = 20
Top = 172
Width = 70
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 20
Caption = 'Select'
OnClick = btnSelectClick
TabOrder = 5
end
object btnEdit: TButton
Left = 554
Height = 20
Top = 172
Width = 70
Anchors = [akTop, akRight]
Caption = 'Edit'
OnClick = btnEditClick
TabOrder = 6
end
object txtLibName: TEdit
AnchorSideLeft.Control = cmbCallConv
Left = 325
Height = 22
Top = 100
Width = 299
Anchors = [akTop, akLeft, akRight]
TabOrder = 7
end
object lblExtLibName: TLabel
AnchorSideLeft.Control = chkFuncAreExt
AnchorSideLeft.Side = asrBottom
Left = 187
Height = 17
Top = 103
Width = 83
BorderSpacing.Left = 20
Caption = 'Library name'
ParentColor = False
end
end
object Panel2: TPanel
Left = 0
Height = 331
Top = 228
Width = 635
Align = alClient
Alignment = taLeftJustify
BevelOuter = bvNone
ClientHeight = 331
ClientWidth = 635
TabOrder = 1
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 0
Width = 635
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 = 281
Top = 44
Width = 623
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 = 153
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Reset to defaults'
OnClick = Button2Click
TabOrder = 2
end
end
end
object pageConverter: TPage
ClientWidth = 2464
ClientHeight = 1528
object edtExtTool: TEdit
AnchorSideTop.Control = chkUseExternal
AnchorSideTop.Side = asrBottom
Left = 13
Height = 21
Top = 32
Width = 511
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10
TabOrder = 0
end
object Button1: TButton
AnchorSideTop.Control = chkUseExternal
AnchorSideTop.Side = asrBottom
Left = 538
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