You've already forked lazarus-ccr
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1479 8e941d3f-bd1b-0410-a28a-d453659cc2b4
259 lines
6.4 KiB
Plaintext
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
|