home *** CD-ROM | disk | FTP | other *** search
- object SynthEditorForm: TSynthEditorForm
- Left = 193
- Top = 349
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'SynthForm'
- ClientHeight = 190
- ClientWidth = 310
- Color = clBlack
- 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
- PixelsPerInch = 96
- TextHeight = 13
- object SynthPanel: TWPControl
- Left = 0
- Top = 0
- Width = 241
- Height = 121
- OnDropFiles = BmpPanelDropFiles
- Color = 5720372
- ParentColor = False
- ParentShowHint = True
- OnResize = SynthPanelResize
- object OpenBtn: TQuickBtn
- Tag = -1
- Left = 3
- Top = 55
- Width = 35
- Height = 24
- Cursor = crHandPoint
- Hint = '|Load a bitmap...'
- ParentFont = False
- ParentColor = False
- Color = 6709335
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ShowHint = True
- ParentShowHint = False
- Options = [tbShowPressed, tbTransparentBitmap, tbHasDownGlyph]
- AccelKey = 0
- Glyph.ILCount = 2
- BmpList = SynthResModule.BtnsIL
- OnClick = OpenBtnClick
- StayDown = False
- end
- object GrainyBox: TQuickCheckBox
- Tag = 4
- Left = 155
- Top = 17
- Width = 67
- Height = 12
- Cursor = crHandPoint
- Hint = '|^b^aSwitch smooth / grainy mode'
- ParentFont = False
- ParentColor = True
- Font.Charset = ANSI_CHARSET
- Font.Color = 11380895
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- PopupMenu = SynthResModule.WheelMenu
- Options = [tbDirectClick, tbHasDownGlyph, tbTransparent]
- Style = FS_Transparent
- AccelKey = 0
- FXType = FX_Blend
- Glyph.ILCount = 2
- BmpList = SynthResModule.BigLEDIL
- OnClick = CutoffWheelChange
- end
- object CopyBtn: TQuickBtn
- Tag = -1
- Left = 38
- Top = 55
- Width = 35
- Height = 24
- Cursor = crHandPoint
- Hint = '|Copy bitmap to clipboard'
- ParentFont = False
- ParentColor = False
- Color = 6709335
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ShowHint = True
- ParentShowHint = False
- Options = [tbShowPressed, tbTransparentBitmap, tbHasDownGlyph]
- AccelKey = 0
- Glyph.ILCount = 2
- BmpList = SynthResModule.BtnsIL
- ILIndex = 2
- OnClick = PasteBtnClick
- StayDown = False
- end
- object PasteBtn: TQuickBtn
- Tag = -1
- Left = 73
- Top = 55
- Width = 35
- Height = 24
- Cursor = crHandPoint
- Hint = '|Paste bitmap from clipboard'
- ParentFont = False
- ParentColor = False
- Color = 6709335
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ShowHint = True
- ParentShowHint = False
- Options = [tbShowPressed, tbTransparentBitmap, tbHasDownGlyph]
- AccelKey = 0
- Glyph.ILCount = 2
- BmpList = SynthResModule.BtnsIL
- ILIndex = 4
- OnClick = PasteBtnClick
- StayDown = False
- end
- object LoopBox: TQuickCheckBox
- Tag = 5
- Left = 154
- Top = 29
- Width = 39
- Height = 12
- Cursor = crHandPoint
- Hint = '|^b^aRepeat sound'
- ParentFont = False
- ParentColor = True
- Font.Charset = ANSI_CHARSET
- Font.Color = 11380895
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- PopupMenu = SynthResModule.WheelMenu
- Options = [tbDirectClick, tbHasDownGlyph, tbTransparent]
- Style = FS_Transparent
- AccelKey = 0
- FXType = FX_Blend
- Glyph.ILCount = 2
- BmpList = SynthResModule.BigLEDIL
- OnClick = CutoffWheelChange
- Checked = True
- end
- object HeightSelect: TDigiWheel
- Tag = -1
- Left = 211
- Top = 58
- Width = 25
- Height = 16
- Cursor = crSizeNS
- Hint = '|Max bitmap height'
- Options = [wwAutoSize, wwIncMode]
- MoveSpeed = 4
- SlowMotionDiv = 4
- Min = 3
- Max = 999
- Value = 23
- DefaultValue = 23
- OnChange = HeightSelectChange
- MouseButton = mbLeft
- HotSideX = 2
- HotSideY = 4
- Color = 986977
- Font.Charset = ANSI_CHARSET
- Font.Color = 12036500
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- BmpList = SynthResModule.DigitsIL
- end
- object UseBlueBox: TQuickCheckBox
- Tag = 3
- Left = 156
- Top = 5
- Width = 67
- Height = 12
- Cursor = crHandPoint
- Hint = '|^b^aEnable blue color'
- ParentFont = False
- ParentColor = True
- Font.Charset = ANSI_CHARSET
- Font.Color = 11380895
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- PopupMenu = SynthResModule.WheelMenu
- Options = [tbDirectClick, tbHasDownGlyph, tbTransparent]
- Style = FS_Transparent
- AccelKey = 0
- FXType = FX_Blend
- Glyph.ILCount = 2
- BmpList = SynthResModule.BigLEDIL
- OnClick = CutoffWheelChange
- end
- object PreAmpWheel: TLineWheel
- Left = 13
- Top = 15
- Width = 13
- Height = 13
- Hint = '|^b^aFreq range'
- Options = [wwBigLine]
- MoveSpeed = 512
- SlowMotionDiv = 4
- Min = 24
- Max = 9600
- Value = 7200
- DefaultValue = 7200
- OnChange = CutoffWheelChange
- MouseButton = mbLeft
- HotSideX = 11
- HotSideY = 14
- PopupMenu = SynthResModule.WheelMenu
- LineColor = 14735805
- LinePressedColor = 240
- LineThickness = 1
- end
- object LineWheel1: TLineWheel
- Tag = 1
- Left = 47
- Top = 15
- Width = 13
- Height = 13
- Hint = '|^b^aPixel duration'
- Options = [wwBigLine]
- MoveSpeed = 512
- SlowMotionDiv = 4
- Max = 4096
- Value = 2048
- DefaultValue = 2048
- OnChange = CutoffWheelChange
- MouseButton = mbLeft
- HotSideX = 11
- HotSideY = 14
- PopupMenu = SynthResModule.WheelMenu
- LineColor = 14735805
- LinePressedColor = 240
- LineThickness = 1
- end
- object ScaleSelect: TQuickCombo
- Tag = 2
- Left = 79
- Top = 8
- Width = 68
- Height = 16
- Cursor = crHandPoint
- Hint = '|^b^aType of frequency scale'
- ParentFont = False
- ParentColor = False
- Color = 5855302
- Font.Charset = ANSI_CHARSET
- Font.Color = 12172452
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = [fsBold]
- Caption = 'Log'
- PopupMenu = SynthResModule.WheelMenu
- Options = [tbOnOver, tbHasDownGlyph, tbTrashGlyph, tbAutoSize, tbDownArrow]
- Style = FS_Glass
- Spacing = 4
- TextAlign = ttaLeft
- AccelKey = 0
- Glyph.ILCount = 2
- Items.Strings = (
- 'Log'
- 'Linear'
- 'Harmonics')
- OnChange = CutoffWheelChange
- PopupAlign = Popup_Normal
- end
- object WidenBox: TQuickCheckBox
- Tag = 6
- Left = 193
- Top = 29
- Width = 43
- Height = 12
- Cursor = crHandPoint
- Hint = '|^b^aWiden (stereo)'
- ParentFont = False
- ParentColor = True
- Font.Charset = ANSI_CHARSET
- Font.Color = 11380895
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- PopupMenu = SynthResModule.WheelMenu
- Options = [tbDirectClick, tbHasDownGlyph, tbTransparent]
- Style = FS_Transparent
- AccelKey = 0
- FXType = FX_Blend
- Glyph.ILCount = 2
- BmpList = SynthResModule.BigLEDIL
- OnClick = CutoffWheelChange
- Checked = True
- end
- object BmpPanel: TQuickScrollBox
- Left = 0
- Top = 81
- Width = 241
- Height = 40
- BorderStyle = bsNone
- ScrollerSize = 15
- ScrollerColor = 5720372
- HMax = 0
- HPos = 0
- VPos = 0
- OnDropFiles = BmpPanelDropFiles
- Align = alBottom
- ParentColor = False
- Color = 5720372
- object BmpDisplay: TQuickPaintBox
- Left = 0
- Top = 0
- Width = 73
- Height = 18
- Cursor = crSizeAll
- OnPaint = BmpDisplayPaint
- OnMouseDown = BmpDisplayMouseDown
- end
- end
- end
- end
-