Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 8c1d43816a
Fetching contributors…

Cannot retrieve contributors at this time

71 lines (70 sloc) 1.785 kb
object StackInspector: TStackInspector
Left = 469
Height = 266
Top = 307
Width = 428
BorderStyle = bsSizeToolWin
Caption = 'Stack Inspector'
ClientHeight = 266
ClientWidth = 428
OnShow = FormShow
LCLVersion = '0.9.30.2'
object lbScript: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbScriptEvent
AnchorSideTop.Side = asrCenter
Left = 4
Height = 14
Top = 7
Width = 77
BorderSpacing.Left = 4
BorderSpacing.Top = 4
Caption = 'Script for &Event:'
ParentColor = False
end
object mCode: TMemo
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbScriptEvent
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 233
Top = 29
Width = 420
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
Lines.Strings = (
'mCode'
)
OnChange = mCodeChange
ScrollBars = ssAutoBoth
TabOrder = 0
WantTabs = True
WordWrap = False
end
object cbScriptEvent: TComboBox
AnchorSideLeft.Control = lbScript
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 85
Height = 21
Top = 4
Width = 339
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
ItemHeight = 13
OnChange = cbScriptEventChange
Style = csDropDownList
TabOrder = 1
end
end
Jump to Line
Something went wrong with that request. Please try again.