home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 460
- Top = 531
- BorderStyle = bsToolWindow
- ClientHeight = 380
- ClientWidth = 521
- Color = clBtnFace
- Font.Charset = SHIFTJIS_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = True
- Position = poDefaultPosOnly
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnHide = FormHide
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 12
- object PaintBox1: TPaintBox
- Left = 0
- Top = 33
- Width = 105
- Height = 105
- Visible = False
- OnMouseDown = PaintBox1MouseDown
- OnMouseMove = PaintBox1MouseMove
- OnMouseUp = PaintBox1MouseUp
- OnPaint = PaintBox1Paint
- end
- object Im_VST: TImage
- Left = 144
- Top = 88
- Width = 323
- Height = 18
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object Im_SliderT: TImage
- Left = 144
- Top = 112
- Width = 11
- Height = 11
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 521
- Height = 33
- Align = alTop
- TabOrder = 0
- object Bu_ON: TSpeedButton
- Left = 4
- Top = 4
- Width = 25
- Height = 25
- AllowAllUp = True
- GroupIndex = 1
- Caption = 'ON'
- Margin = 2
- OnClick = Bu_ONClick
- end
- object Bu_Wet: TSpeedButton
- Left = 32
- Top = 4
- Width = 25
- Height = 25
- AllowAllUp = True
- GroupIndex = 2
- Caption = 'Wet'
- OnClick = Bu_WetClick
- end
- object Bu_GUI: TSpeedButton
- Left = 252
- Top = 4
- Width = 25
- Height = 25
- AllowAllUp = True
- GroupIndex = 3
- Caption = 'GUI'
- Margin = 0
- OnClick = Bu_GUIClick
- end
- object Button1: TButton
- Left = 360
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Load'
- TabOrder = 0
- Visible = False
- OnClick = Button1Click
- end
- object Free: TButton
- Left = 440
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Free'
- TabOrder = 1
- Visible = False
- OnClick = FreeClick
- end
- object Ch_ON: TCheckBox
- Left = 392
- Top = 8
- Width = 41
- Height = 17
- TabStop = False
- Caption = 'ON'
- TabOrder = 2
- Visible = False
- end
- object Sc_Program: TScrollBar
- Left = 65
- Top = 9
- Width = 32
- Height = 16
- PageSize = 0
- TabOrder = 3
- OnChange = Sc_ProgramChange
- end
- object Co_Program: TComboBox
- Left = 100
- Top = 7
- Width = 145
- Height = 20
- ItemHeight = 12
- TabOrder = 4
- Text = 'Co_Program'
- OnChange = Co_ProgramChange
- OnClick = Co_ProgramClick
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 33
- Width = 433
- Height = 48
- BevelOuter = bvNone
- TabOrder = 1
- Visible = False
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = 'dll'
- Filter = '*.dll|*.dll'
- Left = 8
- Top = 96
- end
- object Timer1: TTimer
- Interval = 1
- OnTimer = Timer1Timer
- Left = 8
- Top = 41
- end
- end
-