| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175 |
- {========================================================================}
- {= (c) 1995-98 SwiftSoft Ronald Dittrich =}
- {========================================================================}
- {= All Rights Reserved =}
- {========================================================================}
- {= D 01099 Dresden = Fax.: +49 (0)351-8037944 =}
- {= Loewenstr.7a = info@swiftsoft.de =}
- {========================================================================}
- {= Actual versions on http://www.swiftsoft.de/mmtools.html =}
- {========================================================================}
- {= This code is for reference purposes only and may not be copied or =}
- {= distributed in any format electronic or otherwise except one copy =}
- {= for backup purposes. =}
- {= =}
- {= No Delphi Component Kit or Component individually or in a collection=}
- {= subclassed or otherwise from the code in this unit, or associated =}
- {= .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed =}
- {= without express permission from SwiftSoft. =}
- {= =}
- {= For more licence informations please refer to the associated =}
- {= HelpFile. =}
- {========================================================================}
- {= $Date: 08.03.98 - 20:05:11 $ =}
- {========================================================================}
- unit MMPCXCtl;
- {$I COMPILER.INC}
- interface
- uses
- {$IFDEF WIN32}
- Windows,
- {$ELSE}
- WinTypes,
- WinProcs,
- {$ENDIF}
- SysUtils,
- Messages,
- Classes,
- Graphics,
- StdCtrls,
- ExtCtrls,
- Controls,
- Forms,
- MMObj,
- MMUtils,
- MMCCon,
- MMObsrv,
- MMSlider,
- MMPCXTol,
- MMPCX;
- type
- {-- TMMPCXConnector -------------------------------------------------------}
- TMMPCXConnector = class(TMMCustomLevelConnector)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property PCXPipe: TMMPCXPipe read FPCXPipe write SetPCXPipe;
- property Level1;
- property Level2;
- property Meter1;
- property Meter2;
- property AutoTrigger;
- property Interval;
- property Enabled;
- end;
- {-- TMMPCXPipeLevelSlider -------------------------------------------------}
- TMMPCXPipeLevelSlider = class(TMMSlider)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property PCXPipe: TMMPCXPipe read FPCXPipe write SetPCXPipe;
- property Enabled read FEnabled write SetEnabled default True;
- property Channel: TMMChannel read FChannel write SetChannel default chBoth;
- property LevelType: TMMPCXLevelType read FLevelType write SetLevelType default ltDigital;
- property Position stored False;
- end;
- {-- TMMPCXStreamLevelSlider -----------------------------------------------}
- TMMPCXStreamLevelSlider = class(TMMSlider)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property OutputStream: TMMPCXOutputStream read FOutputStream write SetOutputStream;
- property Channel: TMMChannel read FChannel write SetChannel default chBoth;
- property Enabled read FEnabled write SetEnabled default True;
- property Position stored False;
- end;
- {-- TMMPCXEQLevelSlider ---------------------------------------------------}
- TMMPCXEQLevelSlider = class(TMMSlider)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property OutputStream: TMMPCXOutputStream read FOutputStream write SetOutputStream;
- property Enabled read FEnabled write SetEnabled default True;
- property Band: TMMPCXEQBands read FBand write SetBand default eqBass;
- property Position stored False;
- end;
- {-- TMMPCXPipeLevelLabel --------------------------------------------------}
- TMMPCXPipeLevelLabel = class(TLabel)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property PCXPipe: TMMPCXPipe read FPCXPipe write SetPCXPipe;
- property Channel: TMMChannel read FChannel write SetChannel default chBoth;
- property LevelType: TMMPCXLevelType read FLevelType write SetLevelType default ltDigital;
- end;
- {-- TMMPCXStreamLevelLabel ------------------------------------------------}
- TMMPCXStreamLevelLabel = class(TLabel)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property OutputStream: TMMPCXOutputStream read FOutputStream write SetOutputStream;
- property Channel: TMMChannel read FChannel write SetChannel default chBoth;
- end;
- {-- TMMPCXEQLevelLabel ----------------------------------------------------}
- TMMPCXEQLevelLabel = class(TLabel)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property OutputStream: TMMPCXOutputStream read FOutputStream write SetOutputStream;
- property Band: TMMPCXEQBands read FBand write SetBand default eqBass;
- end;
- TMMPCXTimeMode = (tmElapsed,tmRemaining);
- {-- TMMPCXPipeTimeLabel ---------------------------------------------------}
- TMMPCXPipeTimeLabel = class(TLabel)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property Pipe: TMMPCXPipe read FPipe write SetPipe;
- property TimeMode: TMMPCXTimeMode read FTimeMode write FTimeMode default tmElapsed;
- end;
- {-- TMMPCXStreamTimeLabel -------------------------------------------------}
- TMMPCXStreamTimeLabel = class(TLabel)
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- published
- property Stream: TMMPCXStream read FStream write SetStream;
- property TimeMode: TMMPCXTimeMode read FTimeMode write FTimeMode default tmElapsed;
- end;
- implementation
- end.
|