david
78ab77cd4c
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@19 7f62d464-2af8-f54e-996c-e91b33f51cbe
466 lines
10 KiB
Plaintext
466 lines
10 KiB
Plaintext
object frmMessageDlgEditor: TfrmMessageDlgEditor
|
|
Left = 406
|
|
Top = 185
|
|
Caption = 'MessageDlg editor'
|
|
ClientHeight = 510
|
|
ClientWidth = 502
|
|
Color = clBtnFace
|
|
Constraints.MaxWidth = 518
|
|
Constraints.MinWidth = 518
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
DesignSize = (
|
|
502
|
|
510)
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblSource: TLabel
|
|
Left = 15
|
|
Top = 405
|
|
Width = 37
|
|
Height = 13
|
|
Caption = 'Source:'
|
|
end
|
|
object btnClose: TButton
|
|
Left = 425
|
|
Top = 484
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Close'
|
|
TabOrder = 0
|
|
OnClick = btnCloseClick
|
|
end
|
|
object gbDlgType: TGroupBox
|
|
Left = 5
|
|
Top = 0
|
|
Width = 500
|
|
Height = 121
|
|
Caption = ' Dialog type '
|
|
TabOrder = 1
|
|
object imgWarning: TImage
|
|
Left = 10
|
|
Top = 15
|
|
Width = 32
|
|
Height = 32
|
|
OnClick = imgWarningClick
|
|
end
|
|
object imgError: TImage
|
|
Left = 10
|
|
Top = 50
|
|
Width = 32
|
|
Height = 32
|
|
OnClick = imgErrorClick
|
|
end
|
|
object imgInformation: TImage
|
|
Left = 10
|
|
Top = 85
|
|
Width = 32
|
|
Height = 32
|
|
OnClick = imgInformationClick
|
|
end
|
|
object imgConfirmation: TImage
|
|
Left = 175
|
|
Top = 15
|
|
Width = 32
|
|
Height = 32
|
|
OnClick = imgConfirmationClick
|
|
end
|
|
object imgCustom: TImage
|
|
Left = 175
|
|
Top = 50
|
|
Width = 32
|
|
Height = 32
|
|
Stretch = True
|
|
OnClick = imgCustomClick
|
|
end
|
|
object rbWarning: TRadioButton
|
|
Left = 60
|
|
Top = 20
|
|
Width = 108
|
|
Height = 13
|
|
Caption = 'mtWarning'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = rbWarningClick
|
|
end
|
|
object rbError: TRadioButton
|
|
Left = 60
|
|
Top = 60
|
|
Width = 108
|
|
Height = 13
|
|
Caption = 'mtError'
|
|
TabOrder = 1
|
|
OnClick = rbErrorClick
|
|
end
|
|
object rbInformation: TRadioButton
|
|
Left = 60
|
|
Top = 95
|
|
Width = 101
|
|
Height = 13
|
|
Caption = 'mtInformation'
|
|
TabOrder = 2
|
|
OnClick = rbInformationClick
|
|
end
|
|
object rbConfirmation: TRadioButton
|
|
Left = 225
|
|
Top = 20
|
|
Width = 108
|
|
Height = 13
|
|
Caption = 'mtConfirmation'
|
|
TabOrder = 3
|
|
OnClick = rbConfirmationClick
|
|
end
|
|
object rbCustom: TRadioButton
|
|
Left = 225
|
|
Top = 60
|
|
Width = 108
|
|
Height = 13
|
|
Caption = 'mtCustom'
|
|
TabOrder = 4
|
|
OnClick = rbCustomClick
|
|
end
|
|
object btnSelectIcon: TButton
|
|
Left = 340
|
|
Top = 55
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Select icon'
|
|
Enabled = False
|
|
TabOrder = 5
|
|
OnClick = btnSelectIconClick
|
|
end
|
|
object edCustomTitle: TEdit
|
|
Left = 385
|
|
Top = 90
|
|
Width = 101
|
|
Height = 21
|
|
TabOrder = 6
|
|
Text = 'Dialog title'
|
|
OnChange = edCustomTitleChange
|
|
end
|
|
object cxCustomTitle: TCheckBox
|
|
Left = 225
|
|
Top = 95
|
|
Width = 81
|
|
Height = 13
|
|
Caption = 'Custom title:'
|
|
TabOrder = 7
|
|
OnClick = cxCustomTitleClick
|
|
end
|
|
end
|
|
object gbButtons: TGroupBox
|
|
Left = 5
|
|
Top = 125
|
|
Width = 500
|
|
Height = 116
|
|
Caption = ' Buttons '
|
|
TabOrder = 2
|
|
object lblDefaultButton: TLabel
|
|
Left = 10
|
|
Top = 90
|
|
Width = 37
|
|
Height = 13
|
|
Caption = 'Default:'
|
|
end
|
|
object lblCancelButton: TLabel
|
|
Left = 175
|
|
Top = 90
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Cancel:'
|
|
end
|
|
object lblHelpButton: TLabel
|
|
Left = 340
|
|
Top = 90
|
|
Width = 25
|
|
Height = 13
|
|
Caption = 'Help:'
|
|
end
|
|
object rbStdButtons: TRadioButton
|
|
Left = 10
|
|
Top = 20
|
|
Width = 113
|
|
Height = 17
|
|
Caption = 'Standard buttons'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = rbStdButtonsClick
|
|
end
|
|
object rbCustomButtons: TRadioButton
|
|
Left = 175
|
|
Top = 20
|
|
Width = 316
|
|
Height = 17
|
|
Caption = 'Custom buttons (Specify <button caption>=<Result code>)'
|
|
TabOrder = 1
|
|
OnClick = rbCustomButtonsClick
|
|
end
|
|
object clbStdButtons: TCheckListBox
|
|
Left = 10
|
|
Top = 36
|
|
Width = 151
|
|
Height = 43
|
|
OnClickCheck = clbStdButtonsClickCheck
|
|
IntegralHeight = True
|
|
ItemHeight = 13
|
|
Items.Strings = (
|
|
'mbYes'
|
|
'mbNo'
|
|
'mbOK'
|
|
'mbCancel'
|
|
'mbAbort'
|
|
'mbRetry'
|
|
'mbIgnore'
|
|
'mbAll'
|
|
'mbNoToAll'
|
|
'mbYesToAll'
|
|
'mbHelp')
|
|
TabOrder = 2
|
|
end
|
|
object mmCustomButtons: TMemo
|
|
Left = 175
|
|
Top = 35
|
|
Width = 316
|
|
Height = 45
|
|
Enabled = False
|
|
Lines.Strings = (
|
|
'Yes=mrYes'
|
|
'No=mrNo'
|
|
'OK=mrOK'
|
|
'Cancel=mrCancel'
|
|
'Abort=mrAbort'
|
|
'Retry=mrRetry'
|
|
'Ignore=mrIgnore'
|
|
'All=mrAll'
|
|
'NoToAll=mrNoToAll'
|
|
'YesToAll=mrYesToAll'
|
|
'Help=mrHelp')
|
|
ScrollBars = ssVertical
|
|
TabOrder = 3
|
|
OnChange = mmCustomButtonsChange
|
|
end
|
|
object cbDefaultButton: TComboBox
|
|
Left = 60
|
|
Top = 85
|
|
Width = 101
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 4
|
|
OnChange = cbDefaultButtonChange
|
|
end
|
|
object cbCancelButton: TComboBox
|
|
Left = 225
|
|
Top = 85
|
|
Width = 101
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 5
|
|
OnChange = cbCancelButtonChange
|
|
end
|
|
object cbHelpButton: TComboBox
|
|
Left = 390
|
|
Top = 85
|
|
Width = 101
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 6
|
|
OnChange = cbHelpButtonChange
|
|
end
|
|
end
|
|
object gbOther: TGroupBox
|
|
Left = 5
|
|
Top = 245
|
|
Width = 500
|
|
Height = 151
|
|
Caption = ' Other settings '
|
|
TabOrder = 3
|
|
object lblHelpContext: TLabel
|
|
Left = 10
|
|
Top = 45
|
|
Width = 37
|
|
Height = 13
|
|
Caption = 'HlpCtx::'
|
|
end
|
|
object lblMessage: TLabel
|
|
Left = 10
|
|
Top = 73
|
|
Width = 46
|
|
Height = 13
|
|
Caption = 'Message:'
|
|
end
|
|
object lblAutoCloseUnit: TLabel
|
|
Left = 120
|
|
Top = 120
|
|
Width = 46
|
|
Height = 13
|
|
Caption = 'second(s)'
|
|
end
|
|
object rbCenterScreen: TRadioButton
|
|
Left = 10
|
|
Top = 20
|
|
Width = 113
|
|
Height = 13
|
|
Caption = 'Screen center'
|
|
Checked = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = rbCenterScreenClick
|
|
end
|
|
object rbMainFormCenter: TRadioButton
|
|
Left = 340
|
|
Top = 20
|
|
Width = 113
|
|
Height = 13
|
|
Caption = 'Main form center'
|
|
TabOrder = 1
|
|
OnClick = rbMainFormCenterClick
|
|
end
|
|
object rbActiveFormCenter: TRadioButton
|
|
Left = 175
|
|
Top = 20
|
|
Width = 113
|
|
Height = 13
|
|
Caption = 'Active form center'
|
|
TabOrder = 2
|
|
OnClick = rbActiveFormCenterClick
|
|
end
|
|
object edHelpCtx: TEdit
|
|
Left = 60
|
|
Top = 40
|
|
Width = 101
|
|
Height = 21
|
|
TabOrder = 3
|
|
Text = '0'
|
|
OnChange = edHelpCtxChange
|
|
end
|
|
object cxIsDSADialog: TCheckBox
|
|
Left = 175
|
|
Top = 45
|
|
Width = 46
|
|
Height = 13
|
|
Caption = 'DSA:'
|
|
TabOrder = 4
|
|
OnClick = cxIsDSADialogClick
|
|
end
|
|
object edDSA_ID: TEdit
|
|
Left = 225
|
|
Top = 40
|
|
Width = 101
|
|
Height = 21
|
|
Enabled = False
|
|
TabOrder = 5
|
|
Text = '0'
|
|
OnChange = edDSA_IDChange
|
|
end
|
|
object mmMessage: TMemo
|
|
Left = 60
|
|
Top = 71
|
|
Width = 431
|
|
Height = 35
|
|
ScrollBars = ssVertical
|
|
TabOrder = 6
|
|
OnChange = mmMessageChange
|
|
end
|
|
object cxAutoClose: TCheckBox
|
|
Left = 10
|
|
Top = 118
|
|
Width = 76
|
|
Height = 17
|
|
Caption = 'Auto close:'
|
|
TabOrder = 7
|
|
OnClick = cxAutoCloseClick
|
|
end
|
|
object edAutoCloseDelay: TEdit
|
|
Left = 85
|
|
Top = 115
|
|
Width = 31
|
|
Height = 21
|
|
TabOrder = 8
|
|
Text = '10'
|
|
OnChange = edAutoCloseDelayChange
|
|
end
|
|
object cxAutoCloseShow: TCheckBox
|
|
Left = 175
|
|
Top = 120
|
|
Width = 106
|
|
Height = 17
|
|
Caption = 'Show countdown'
|
|
TabOrder = 9
|
|
OnClick = cxAutoCloseShowClick
|
|
end
|
|
end
|
|
object mmSource: TMemo
|
|
Left = 65
|
|
Top = 405
|
|
Width = 431
|
|
Height = 75
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ReadOnly = True
|
|
ScrollBars = ssBoth
|
|
TabOrder = 4
|
|
WordWrap = False
|
|
ExplicitHeight = 69
|
|
end
|
|
object btnTest: TButton
|
|
Left = 348
|
|
Top = 484
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Test'
|
|
TabOrder = 5
|
|
OnClick = btnTestClick
|
|
end
|
|
object JvFormStorage1: TJvFormStorage
|
|
AppStorage = JvAppRegistryStorage1
|
|
AppStoragePath = '%FORM_NAME%'
|
|
StoredProps.Strings = (
|
|
'cxAutoClose.Checked'
|
|
'cxAutoCloseShow.Checked'
|
|
'cxCustomTitle.Checked'
|
|
'cxIsDSADialog.Checked'
|
|
'edAutoCloseDelay.Text'
|
|
'edCustomTitle.Text'
|
|
'edDSA_ID.Text'
|
|
'edHelpCtx.Text'
|
|
'rbActiveFormCenter.Checked'
|
|
'rbCenterScreen.Checked'
|
|
'rbConfirmation.Checked'
|
|
'rbCustom.Checked'
|
|
'rbCustomButtons.Checked'
|
|
'rbError.Checked'
|
|
'rbInformation.Checked'
|
|
'rbMainFormCenter.Checked'
|
|
'rbStdButtons.Checked'
|
|
'rbWarning.Checked'
|
|
'mmMessage.Lines'
|
|
'mmCustomButtons.Lines'
|
|
'clbStdButtons.Items'
|
|
'cbCancelButton.ItemIndex'
|
|
'cbDefaultButton.ItemIndex'
|
|
'cbHelpButton.ItemIndex')
|
|
StoredValues = <>
|
|
Left = 245
|
|
Top = 260
|
|
end
|
|
object JvAppRegistryStorage1: TJvAppRegistryStorage
|
|
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
|
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
|
Root = 'Software\JVCL\MEssageDlg Editor'
|
|
SubStorages = <>
|
|
Left = 245
|
|
Top = 310
|
|
end
|
|
end
|