home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 July
/
PCWorld_1999-07_cd.bin
/
software
/
TemaCD
/
Massiva
/
MASSIVA.EXE
/
0
/
RCDATA
/
TFMVELOCITY
/
TFMVELOCITY.txt
< prev
Wrap
Text File
|
1999-04-03
|
10KB
|
425 lines
object fmVelocity: TfmVelocity
Left = 204
Top = 178
HelpContext = 18
BorderStyle = bsDialog
Caption = 'Velocity'
ClientHeight = 181
ClientWidth = 333
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object RotateLabel1: TRotateLabel
Left = 251
Top = 152
Width = 78
Height = 24
Cursor = crHandPoint
Hint = 'Click for help'
Escapement = 0
TextStyle = tsRecessed
Caption = 'Velocity'
Font.Charset = DEFAULT_CHARSET
Font.Color = clSilver
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Transparent = True
OnClick = RotateLabel1Click
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 70
Height = 181
Align = alLeft
BevelOuter = bvNone
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object labelText: TLabel
Left = 5
Top = 119
Width = 63
Height = 63
AutoSize = False
Caption = 'Set velocity for all notes'
Font.Charset = ANSI_CHARSET
Font.Color = 8454143
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
end
object panelPlay: TPanel
Left = 4
Top = 162
Width = 19
Height = 16
Color = clBlack
TabOrder = 0
object iconPlay: TIconButton
Left = 1
Top = 1
Width = 17
Height = 14
Hint = 'Play'
Align = alClient
Center = True
Picture.Data = {<image000.bmp>}
OnMouseUp = iconPlayMouseUp
State = stUp
end
end
object Panel2: TPanel
Left = 26
Top = 162
Width = 19
Height = 16
Caption = 'o'
Color = clBlack
TabOrder = 1
object IconStop: TIconButton
Left = 1
Top = 1
Width = 17
Height = 14
Hint = 'Stop'
Align = alClient
Center = True
Picture.Data = {<image001.bmp>}
OnMouseUp = IconStopMouseUp
State = stUp
end
end
object btnUndo: tnybutton
Left = 7
Top = 63
Width = 57
Height = 25
Cursor = crHandPoint
Caption = '&Undo'
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = btnundoClick
end
object tnybutton1: tnybutton
Left = 7
Top = 91
Width = 57
Height = 25
Cursor = crHandPoint
Cancel = True
Caption = '&Close'
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = tnybutton1Click
end
object tnybutton2: tnybutton
Left = 7
Top = 7
Width = 57
Height = 25
Cursor = crHandPoint
Caption = '&OK'
Default = True
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = tnybutton2Click
end
object tnybutton3: tnybutton
Left = 7
Top = 35
Width = 57
Height = 25
Cursor = crHandPoint
Caption = '&Apply'
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = tnybutton3Click
end
end
object PageControl1: TPage95Control
Left = 80
Top = 8
Width = 241
Height = 137
ActivePage = PageSet
ButtonStyle = True
FlatButtons = True
FlatSeperators = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
HotTrack = True
TabInactiveColor = clSilver
TabInactiveFont.Charset = ANSI_CHARSET
TabInactiveFont.Color = clWindowText
TabInactiveFont.Height = -11
TabInactiveFont.Name = 'Arial'
TabInactiveFont.Style = []
ParentFont = False
TabOrder = 1
OnChange = PageControl1Change
object PageSet: TTab95Sheet
Caption = 'Set'
GripAlign = gaLeft
ImageIndex = -1
StaticPageIndex = -1
TabVisible = True
object Label1: TLabel
Left = 16
Top = 24
Width = 39
Height = 14
Caption = 'Velocity'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object editSetVel: TEditIncDec
Left = 64
Top = 21
Width = 34
Height = 22
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
PopupMenu = editSetVel.
TabOrder = 0
Text = '127'
Min = 1
Max = 0
end
end
object PageFade: TTab95Sheet
Caption = 'Fade'
GripAlign = gaLeft
ImageIndex = -1
StaticPageIndex = -1
TabVisible = True
object Label2: TLabel
Left = 16
Top = 24
Width = 24
Height = 14
Caption = 'From'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 136
Top = 24
Width = 12
Height = 14
Caption = 'To'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object editFadeMin: TEditIncDec
Left = 64
Top = 21
Width = 34
Height = 22
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
PopupMenu = editFadeMin.
TabOrder = 0
Text = '1'
Min = 1
Max = 0
end
object editFadeMax: TEditIncDec
Left = 168
Top = 21
Width = 34
Height = 22
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
PopupMenu = editFadeMax.
TabOrder = 1
Text = '127'
Min = 1
Max = 0
end
end
object PageChange: TTab95Sheet
Caption = 'Change'
GripAlign = gaLeft
ImageIndex = -1
StaticPageIndex = -1
TabVisible = True
object Label5: TLabel
Left = 16
Top = 24
Width = 52
Height = 14
Caption = 'Change by'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object editChange: TEditIncDec
Left = 80
Top = 21
Width = 34
Height = 22
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
PopupMenu = editChange.
TabOrder = 0
Text = '0'
Min = -126
Max = 126
end
end
object PageRandom: TTab95Sheet
Caption = 'Random'
GripAlign = gaLeft
ImageIndex = -1
StaticPageIndex = -1
TabVisible = True
object Label6: TLabel
Left = 16
Top = 24
Width = 16
Height = 14
Caption = 'Min'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 136
Top = 24
Width = 20
Height = 14
Caption = 'Max'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object editRandomMin: TEditIncDec
Left = 64
Top = 21
Width = 34
Height = 22
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
PopupMenu = editRandomMin.
TabOrder = 0
Text = '1'
Min = 1
Max = 0
end
object editRandomMax: TEditIncDec
Left = 168
Top = 21
Width = 34
Height = 22
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
PopupMenu = editRandomMax.
TabOrder = 1
Text = '127'
Min = 1
Max = 0
end
end
end
object Timer1: TTimer
Interval = 10
OnTimer = Timer1Timer
Left = 208
Top = 144
end
end