Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-02-20 07:28:55 +00:00
Code Issues Projects Releases Wiki Activity

missing mixer class

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-13 11:51:32 +10:00
parent c708f41130
commit 56fcb060fb
2 changed files with 140 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
mixer.lfm Normal file
View File

@ -0,0 +1,100 @@
object frmMixer: TfrmMixer
Left = 2730
Height = 162
Top = 470
Width = 320
Caption = 'microM8 Audio Mixer'
ClientHeight = 162
ClientWidth = 320
LCLVersion = '2.0.0.4'
object tbMasterVol: TTrackBar
Left = 104
Height = 25
Top = 8
Width = 204
Position = 0
TabOrder = 0
end
object Label1: TLabel
Left = 6
Height = 15
Top = 8
Width = 82
Caption = 'Master Volume:'
ParentColor = False
end
object TrackBar1: TTrackBar
Left = 104
Height = 25
Top = 40
Width = 204
Position = 0
TabOrder = 1
end
object Label2: TLabel
Left = 8
Height = 15
Top = 38
Width = 44
Caption = 'Speaker:'
ParentColor = False
end
object Label3: TLabel
Left = 8
Height = 15
Top = 96
Width = 74
Caption = 'PSG0 Balance:'
ParentColor = False
end
object TrackBar2: TTrackBar
Left = 106
Height = 25
Top = 96
Width = 204
Max = 8
Position = 0
TabOrder = 2
end
object TrackBar3: TTrackBar
Left = 106
Height = 25
Top = 128
Width = 204
Max = 8
Position = 0
TabOrder = 3
end
object Label4: TLabel
Left = 8
Height = 15
Top = 128
Width = 74
Caption = 'PSG1 Balance:'
ParentColor = False
end
object Label5: TLabel
Left = 106
Height = 15
Top = 77
Width = 20
Caption = 'Left'
ParentColor = False
end
object Label6: TLabel
Left = 280
Height = 15
Top = 77
Width = 28
Caption = 'Right'
ParentColor = False
end
object Label7: TLabel
Left = 192
Height = 15
Top = 77
Width = 35
Caption = 'Center'
ParentColor = False
end
end

40
mixer.pas Normal file
View File

@ -0,0 +1,40 @@
unit mixer;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls;
type
{ TfrmMixer }
TfrmMixer = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
tbMasterVol: TTrackBar;
TrackBar1: TTrackBar;
TrackBar2: TTrackBar;
TrackBar3: TTrackBar;
private
public
end;
var
frmMixer: TfrmMixer;
implementation
{$R *.lfm}
end.