MMPCXCTL.INT 6.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175
  1. {========================================================================}
  2. {= (c) 1995-98 SwiftSoft Ronald Dittrich =}
  3. {========================================================================}
  4. {= All Rights Reserved =}
  5. {========================================================================}
  6. {= D 01099 Dresden = Fax.: +49 (0)351-8037944 =}
  7. {= Loewenstr.7a = info@swiftsoft.de =}
  8. {========================================================================}
  9. {= Actual versions on http://www.swiftsoft.de/mmtools.html =}
  10. {========================================================================}
  11. {= This code is for reference purposes only and may not be copied or =}
  12. {= distributed in any format electronic or otherwise except one copy =}
  13. {= for backup purposes. =}
  14. {= =}
  15. {= No Delphi Component Kit or Component individually or in a collection=}
  16. {= subclassed or otherwise from the code in this unit, or associated =}
  17. {= .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed =}
  18. {= without express permission from SwiftSoft. =}
  19. {= =}
  20. {= For more licence informations please refer to the associated =}
  21. {= HelpFile. =}
  22. {========================================================================}
  23. {= $Date: 08.03.98 - 20:05:11 $ =}
  24. {========================================================================}
  25. unit MMPCXCtl;
  26. {$I COMPILER.INC}
  27. interface
  28. uses
  29. {$IFDEF WIN32}
  30. Windows,
  31. {$ELSE}
  32. WinTypes,
  33. WinProcs,
  34. {$ENDIF}
  35. SysUtils,
  36. Messages,
  37. Classes,
  38. Graphics,
  39. StdCtrls,
  40. ExtCtrls,
  41. Controls,
  42. Forms,
  43. MMObj,
  44. MMUtils,
  45. MMCCon,
  46. MMObsrv,
  47. MMSlider,
  48. MMPCXTol,
  49. MMPCX;
  50. type
  51. {-- TMMPCXConnector -------------------------------------------------------}
  52. TMMPCXConnector = class(TMMCustomLevelConnector)
  53. public
  54. constructor Create(AOwner: TComponent); override;
  55. destructor Destroy; override;
  56. published
  57. property PCXPipe: TMMPCXPipe read FPCXPipe write SetPCXPipe;
  58. property Level1;
  59. property Level2;
  60. property Meter1;
  61. property Meter2;
  62. property AutoTrigger;
  63. property Interval;
  64. property Enabled;
  65. end;
  66. {-- TMMPCXPipeLevelSlider -------------------------------------------------}
  67. TMMPCXPipeLevelSlider = class(TMMSlider)
  68. public
  69. constructor Create(AOwner: TComponent); override;
  70. destructor Destroy; override;
  71. published
  72. property PCXPipe: TMMPCXPipe read FPCXPipe write SetPCXPipe;
  73. property Enabled read FEnabled write SetEnabled default True;
  74. property Channel: TMMChannel read FChannel write SetChannel default chBoth;
  75. property LevelType: TMMPCXLevelType read FLevelType write SetLevelType default ltDigital;
  76. property Position stored False;
  77. end;
  78. {-- TMMPCXStreamLevelSlider -----------------------------------------------}
  79. TMMPCXStreamLevelSlider = class(TMMSlider)
  80. public
  81. constructor Create(AOwner: TComponent); override;
  82. destructor Destroy; override;
  83. published
  84. property OutputStream: TMMPCXOutputStream read FOutputStream write SetOutputStream;
  85. property Channel: TMMChannel read FChannel write SetChannel default chBoth;
  86. property Enabled read FEnabled write SetEnabled default True;
  87. property Position stored False;
  88. end;
  89. {-- TMMPCXEQLevelSlider ---------------------------------------------------}
  90. TMMPCXEQLevelSlider = class(TMMSlider)
  91. public
  92. constructor Create(AOwner: TComponent); override;
  93. destructor Destroy; override;
  94. published
  95. property OutputStream: TMMPCXOutputStream read FOutputStream write SetOutputStream;
  96. property Enabled read FEnabled write SetEnabled default True;
  97. property Band: TMMPCXEQBands read FBand write SetBand default eqBass;
  98. property Position stored False;
  99. end;
  100. {-- TMMPCXPipeLevelLabel --------------------------------------------------}
  101. TMMPCXPipeLevelLabel = class(TLabel)
  102. public
  103. constructor Create(AOwner: TComponent); override;
  104. destructor Destroy; override;
  105. published
  106. property PCXPipe: TMMPCXPipe read FPCXPipe write SetPCXPipe;
  107. property Channel: TMMChannel read FChannel write SetChannel default chBoth;
  108. property LevelType: TMMPCXLevelType read FLevelType write SetLevelType default ltDigital;
  109. end;
  110. {-- TMMPCXStreamLevelLabel ------------------------------------------------}
  111. TMMPCXStreamLevelLabel = class(TLabel)
  112. public
  113. constructor Create(AOwner: TComponent); override;
  114. destructor Destroy; override;
  115. published
  116. property OutputStream: TMMPCXOutputStream read FOutputStream write SetOutputStream;
  117. property Channel: TMMChannel read FChannel write SetChannel default chBoth;
  118. end;
  119. {-- TMMPCXEQLevelLabel ----------------------------------------------------}
  120. TMMPCXEQLevelLabel = class(TLabel)
  121. public
  122. constructor Create(AOwner: TComponent); override;
  123. destructor Destroy; override;
  124. published
  125. property OutputStream: TMMPCXOutputStream read FOutputStream write SetOutputStream;
  126. property Band: TMMPCXEQBands read FBand write SetBand default eqBass;
  127. end;
  128. TMMPCXTimeMode = (tmElapsed,tmRemaining);
  129. {-- TMMPCXPipeTimeLabel ---------------------------------------------------}
  130. TMMPCXPipeTimeLabel = class(TLabel)
  131. public
  132. constructor Create(AOwner: TComponent); override;
  133. destructor Destroy; override;
  134. published
  135. property Pipe: TMMPCXPipe read FPipe write SetPipe;
  136. property TimeMode: TMMPCXTimeMode read FTimeMode write FTimeMode default tmElapsed;
  137. end;
  138. {-- TMMPCXStreamTimeLabel -------------------------------------------------}
  139. TMMPCXStreamTimeLabel = class(TLabel)
  140. public
  141. constructor Create(AOwner: TComponent); override;
  142. destructor Destroy; override;
  143. published
  144. property Stream: TMMPCXStream read FStream write SetStream;
  145. property TimeMode: TMMPCXTimeMode read FTimeMode write FTimeMode default tmElapsed;
  146. end;
  147. implementation
  148. end.