home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2005 June
/
CHIP_CD_2005-06.iso
/
test
/
fruity
/
flstudio502_install.exe
/
Dashboard.dll
/
0
/
RCDATA
/
TSYNTHEDITORFORM
/
TSYNTHEDITORFORM.txt
Wrap
Text File
|
2005-02-04
|
9KB
|
333 lines
object SynthEditorForm: TSynthEditorForm
Left = 297
Top = 106
BorderIcons = []
BorderStyle = bsSingle
Caption = 'SynthForm'
ClientHeight = 283
ClientWidth = 671
Color = clBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poDefault
Scaled = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object SynthPanel: TWPControl
Tag = -1
Left = 0
Top = 0
Width = 661
Height = 283
Color = clOlive
ParentColor = False
ShowHint = True
OnResize = SynthPanelResize
object PortSelect: TDigiWheel
Tag = -1
Left = 304
Top = 5
Width = 25
Height = 16
Cursor = crSizeNS
Hint = '|Output port number'
Options = [wwIncMode]
MoveSpeed = 4
SlowMotionDiv = 4
Min = -1
Max = 255
Value = -1
DefaultValue = 0
OnChange = PortSelectChange
MouseButton = mbLeft
HotSideX = 4
HotSideY = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
BmpList = SynthResModule.Digits11IL
end
object BankMSBSelect: TDigiWheel
Tag = -1
Left = 139
Top = 5
Width = 25
Height = 16
Cursor = crSizeNS
Hint = '|Coarse bank number (CC #0)'
Options = [wwIncMode]
MoveSpeed = 4
SlowMotionDiv = 4
Min = -1
Max = 127
Value = -1
DefaultValue = 0
OnRelease = BankMSBSelectRelease
MouseButton = mbLeft
HotSideX = 4
HotSideY = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
BmpList = SynthResModule.Digits11IL
end
object BankLSBSelect: TDigiWheel
Tag = -1
Left = 169
Top = 5
Width = 25
Height = 16
Cursor = crSizeNS
Hint = '|Fine bank number (CC #32)'
Options = [wwIncMode]
MoveSpeed = 4
SlowMotionDiv = 4
Min = -1
Max = 127
Value = -1
DefaultValue = 0
OnRelease = BankMSBSelectRelease
MouseButton = mbLeft
HotSideX = 4
HotSideY = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
BmpList = SynthResModule.Digits11IL
end
object PatchSelect: TDigiWheel
Left = 240
Top = 5
Width = 25
Height = 16
Cursor = crSizeNS
Hint = '|^b^aPatch number'
Options = [wwIncMode]
MoveSpeed = 4
SlowMotionDiv = 4
Max = 128
DefaultValue = 1
OnChange = PatchSelectChange
MouseButton = mbLeft
HotSideX = 4
HotSideY = 4
PopupMenu = SynthResModule.WheelMenu
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
BmpList = SynthResModule.Digits11IL
NullValue = 0
end
object ChanSelect: TDigiWheel
Tag = -1
Left = 81
Top = 5
Width = 18
Height = 16
Cursor = crSizeNS
Hint = '|MIDI channel number'
Options = [wwIncMode]
MoveSpeed = 4
SlowMotionDiv = 4
Min = 1
Max = 16
Value = 10
DefaultValue = 10
OnChange = ChanSelectChange
OnRelease = ChanSelectRelease
MouseButton = mbLeft
HotSideX = 4
HotSideY = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
BmpList = SynthResModule.Digits11IL
NumDigits = 2
end
object LockBtn: TQuickBtn
Tag = -1
Left = 17
Top = 4
Width = 25
Height = 18
Cursor = crHandPoint
Hint = '|Click to lock the editor'
ParentColor = True
Caption = 'LockBtn'
Options = [tbHasDownGlyph, tbTrashGlyph, tbAutoSize]
AccelKey = 0
FXType = FX_Blend
BmpList = SynthResModule.LockBtnIL
OnClick = LockBtnClick
end
object OptionsBtn: TQuickBtn
Tag = -1
Left = 4
Top = 4
Width = 12
Height = 18
Cursor = crHandPoint
Hint = '|Change the editor background'
ParentColor = True
Caption = 'OptionsBtn'
PopupMenu = SynthResModule.OptionsMenu
Options = [tbHasDownGlyph, tbTrashGlyph, tbAutoSize]
AccelKey = 0
BmpList = SynthResModule.OptionsBtnIL
StayDown = False
PopupAlign = Popup_Bottom
PopupButton = mbLeft
end
object PropertyCombo: TQuickCombo
Tag = -1
Left = 460
Top = 52
Width = 202
Height = 21
ParentFont = False
ParentColor = False
Color = 5064767
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = 'Panel'
Options = [tbShowPressed, tbOnOver, tbHasDownGlyph, tbTrashGlyph, tbAutoSize, tbBorder, tbDownArrow]
Style = FS_Glass
TextAlign = ttaLeft
AccelKey = 0
Items.Strings = (
'Panel')
OnChange = PropertyComboChange
end
object WorkPanel: TDashboardPanel
Tag = -1
Left = 0
Top = 52
Width = 286
Height = 231
GridColor = 4210752
ControlPopup = SynthResModule.WheelMenu
LabelFont.Charset = ANSI_CHARSET
LabelFont.Color = clBlack
LabelFont.Height = -9
LabelFont.Name = 'Fruity fonts'
LabelFont.Style = []
Options = [doHideGridWhenOff]
OnCreateControl = WorkPanelCreateControl
OnLocateDataFile = WorkPanelLocateDataFile
OnPanelChange = WorkPanelPanelChange
OnWriteControlProps = WorkPanelWriteControlProps
OnReadControlProp = WorkPanelReadControlProp
OnSelectionChange = WorkPanelSelectionChange
OnItemChange = WorkPanelItemChange
OnPanelResize = WorkPanelPanelResize
OnPropertyChanged = WorkPanelPropertyChanged
OnGetIniFile = WorkPanelGetIniFile
OnReadInstrument = WorkPanelReadInstrument
OnPropertiesHaveChanged = WorkPanelPropertiesHaveChanged
Color = clGray
ParentColor = False
ParentShowHint = True
end
object PropertyInspector: TPropertyInspector
Tag = -1
Left = 460
Top = 72
Width = 186
Height = 211
Items.Strings = (
'Item0'
'Item1')
ItemIndex = 0
ValueFont.Charset = DEFAULT_CHARSET
ValueFont.Color = 13486271
ValueFont.Height = -11
ValueFont.Name = 'MS Sans Serif'
ValueFont.Style = []
SeparatorColor = 3485735
Options = [ioMoveSplitter]
SplitterPosition = 100
BorderStyle = bsSingle
OnGetItemInfo = PropertyInspectorGetItemInfo
OnGetValueList = PropertyInspectorGetValueList
OnGetIntValue = PropertyInspectorGetIntValue
OnGetFontValue = PropertyInspectorGetFontValue
OnGetStringValue = PropertyInspectorGetStringValue
OnGetListValue = PropertyInspectorGetListValue
OnSetIntValue = PropertyInspectorSetIntValue
OnSetFontValue = PropertyInspectorSetFontValue
OnSetStringValue = PropertyInspectorSetStringValue
OnSetListValue = PropertyInspectorSetListValue
OnChange = PropertyInspectorChange
Color = 5064767
Font.Charset = DEFAULT_CHARSET
Font.Color = 11380895
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
end
object PropertyScroller: TNumBar
Tag = -1
Left = 645
Top = 72
Width = 16
Height = 211
BorderStyle = bsNone
ParentColor = False
TabOrder = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Color = 5064767
LineSize = 1
PageSize = 10
Min = 0
Max = 100
MoveMin = 0
MoveMax = 100
Position = 0
Orientation = trVertical
Options = [nbSlideKnob]
ArrowsWidth = 23
OnChange = PropertyScrollerChange
end
object EmptyWP: TWPControl
Tag = -1
Left = 305
Top = 100
Width = 111
Height = 116
Color = 5064767
ParentColor = False
ShowHint = True
end
end
object Timer: TTimer
Enabled = False
Interval = 10000
OnTimer = TimerTimer
Left = 140
Top = 120
end
end