david
f410727ca1
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.TMSSoftware@8 ccf39c52-e665-a648-be6a-52d81bcb5567
131 lines
2.5 KiB
Plaintext
131 lines
2.5 KiB
Plaintext
object Form1: TForm1
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'AdvMessageBox Test'
|
|
ClientHeight = 303
|
|
ClientWidth = 380
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 14
|
|
Top = 16
|
|
Width = 47
|
|
Height = 13
|
|
Caption = 'Caption: '
|
|
end
|
|
object Label2: TLabel
|
|
Left = 30
|
|
Top = 48
|
|
Width = 25
|
|
Height = 13
|
|
Caption = 'Icon:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 29
|
|
Top = 76
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Text:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 14
|
|
Top = 184
|
|
Width = 41
|
|
Height = 13
|
|
Caption = 'Buttons:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 24
|
|
Top = 232
|
|
Width = 34
|
|
Height = 13
|
|
Caption = 'Result:'
|
|
end
|
|
object lbresults: TLabel
|
|
Left = 64
|
|
Top = 232
|
|
Width = 3
|
|
Height = 13
|
|
end
|
|
object BtnTMS: TButton
|
|
Left = 65
|
|
Top = 264
|
|
Width = 145
|
|
Height = 25
|
|
Caption = 'TMS TAdvMessageBox'
|
|
TabOrder = 0
|
|
OnClick = BtnTMSClick
|
|
end
|
|
object BtnWindows: TButton
|
|
Left = 216
|
|
Top = 264
|
|
Width = 145
|
|
Height = 25
|
|
Caption = 'Windows Messagebox'
|
|
TabOrder = 1
|
|
OnClick = BtnWindowsClick
|
|
end
|
|
object edCaption: TEdit
|
|
Left = 61
|
|
Top = 13
|
|
Width = 300
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = 'Test of MessageBox'
|
|
end
|
|
object cbIcon: TComboBox
|
|
Left = 61
|
|
Top = 45
|
|
Width = 300
|
|
Height = 21
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
TabOrder = 3
|
|
Text = 'Select Icon'
|
|
Items.Strings = (
|
|
'Select Icon'
|
|
'MB_ICONEXCLAMATION'
|
|
'MB_ICONWARNING'
|
|
'MB_ICONASTERISK'
|
|
'MB_ICONINFORMATION'
|
|
'MB_ICONQUESTION'
|
|
'MB_ICONSTOP'
|
|
'MB_ICONERROR'
|
|
'MB_ICONHAND')
|
|
end
|
|
object MemoInfo: TMemo
|
|
Left = 61
|
|
Top = 76
|
|
Width = 300
|
|
Height = 89
|
|
Lines.Strings = (
|
|
'Sample short message.')
|
|
TabOrder = 4
|
|
end
|
|
object cbButtons: TComboBox
|
|
Left = 64
|
|
Top = 184
|
|
Width = 297
|
|
Height = 21
|
|
ItemHeight = 13
|
|
TabOrder = 5
|
|
Text = 'Pick Buttons'
|
|
Items.Strings = (
|
|
'Pick the buttons to show'
|
|
'ABORT, RETRY, IGNORE'
|
|
'CANCEL, TRY AGAIN, CONTINUE'
|
|
'OK'
|
|
'OK, CANCEL'
|
|
'RETRY, CANCEL'
|
|
'YES, NO'
|
|
'YES, NO, CANCEL')
|
|
end
|
|
end
|