
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2198 8e941d3f-bd1b-0410-a28a-d453659cc2b4
291 lines
7.5 KiB
Plaintext
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
|