home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
mulmedia
/
yamp
/
yamp.exe
/
0
/
RCDATA
/
TFSURE
/
TFSURE.txt
< prev
Wrap
Text File
|
1997-11-11
|
3KB
|
109 lines
object fSure: TfSure
Left = 299
Top = 271
BorderStyle = bsNone
Caption = 'YAMP - Sure?'
ClientHeight = 43
ClientWidth = 199
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object panMain: TPanel
Left = 0
Top = 0
Width = 199
Height = 43
Align = alClient
BevelInner = bvLowered
Color = clSilver
TabOrder = 0
OnMouseDown = panMainMouseDown
OnMouseMove = panMainMouseMove
OnMouseUp = panMainMouseUp
object LMDTile1: TLMDTile
Left = 2
Top = 2
Width = 195
Height = 23
Align = alTop
Gradient.Color = clWhite
Gradient.ColorCount = 25
Gradient.Direction = mdVertical
Gradient.EndColor = 16761024
Gradient.PaletteRealize = True
TileMode = tmGradient
OnMouseDown = panMainMouseDown
OnMouseMove = panMainMouseMove
OnMouseUp = panMainMouseUp
end
object LMDTile2: TLMDTile
Left = 2
Top = 25
Width = 195
Height = 16
Align = alClient
Gradient.Color = clWhite
Gradient.ColorCount = 25
Gradient.Direction = mdVerticalReverse
Gradient.EndColor = 16761024
Gradient.PaletteRealize = True
TileMode = tmGradient
OnMouseDown = panMainMouseDown
OnMouseMove = panMainMouseMove
OnMouseUp = panMainMouseUp
end
object Label1: TLabel
Left = 46
Top = 4
Width = 118
Height = 13
Caption = 'Ups ... are you quit sure?'
Transparent = True
end
object bOK: TExplorerButton
Left = 8
Top = 24
Width = 89
Height = 14
Hint = 'just close the window'
Caption = 'OK'
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
OnClick = bOKClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {}
end
object bCancel: TExplorerButton
Left = 104
Top = 24
Width = 89
Height = 14
Hint = 'just close the window'
Caption = 'Cancel'
Options = [boMonoDisplay, boPopupMark, boShowBevel]
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
OnClick = bCancelClick
ParentFont = False
ParentShowHint = False
ShowHint = True
IBitmap = {}
end
end
end