100 lines
2.2 KiB
Plaintext
100 lines
2.2 KiB
Plaintext
object DSADialogsMainForm: TDSADialogsMainForm
|
|
Left = 200
|
|
Top = 189
|
|
Width = 652
|
|
Height = 317
|
|
Caption = 'Don'#39't Show Again (DSA) Examples and tests'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poDesktopCenter
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lvDSAInfo: TListView
|
|
Left = 2
|
|
Top = 5
|
|
Width = 628
|
|
Height = 228
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Checkboxes = True
|
|
Columns = <
|
|
item
|
|
Caption = 'DSA'
|
|
MaxWidth = 40
|
|
MinWidth = 40
|
|
Width = 40
|
|
end
|
|
item
|
|
Alignment = taRightJustify
|
|
Caption = 'DlgID'
|
|
MaxWidth = 50
|
|
MinWidth = 50
|
|
end
|
|
item
|
|
Caption = 'Name'
|
|
MaxWidth = 130
|
|
MinWidth = 130
|
|
Width = 130
|
|
end
|
|
item
|
|
Caption = 'Description'
|
|
MaxWidth = 521
|
|
MinWidth = 400
|
|
Width = 400
|
|
end>
|
|
HideSelection = False
|
|
RowSelect = True
|
|
PopupMenu = pmDSAList
|
|
TabOrder = 0
|
|
ViewStyle = vsReport
|
|
OnChange = lvDSAInfoChange
|
|
OnDblClick = miExecuteDlgClick
|
|
OnResize = lvDSAInfoResize
|
|
end
|
|
object stbMain: TStatusBar
|
|
Left = 0
|
|
Top = 268
|
|
Width = 644
|
|
Height = 19
|
|
Panels = <>
|
|
SimplePanel = True
|
|
SimpleText = 'Status:'
|
|
end
|
|
object btnClose: TButton
|
|
Left = 556
|
|
Top = 240
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Close'
|
|
TabOrder = 2
|
|
OnClick = btnCloseClick
|
|
end
|
|
object pmDSAList: TPopupMenu
|
|
OnPopup = pmDSAListPopup
|
|
Left = 480
|
|
Top = 70
|
|
object miExecuteDlg: TMenuItem
|
|
Caption = 'Execute...'
|
|
Default = True
|
|
ShortCut = 16397
|
|
OnClick = miExecuteDlgClick
|
|
end
|
|
object miBreak1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miReset: TMenuItem
|
|
Caption = 'Reset'
|
|
ShortCut = 32
|
|
OnClick = miResetClick
|
|
end
|
|
end
|
|
end
|