Subject:
今天编完了个音量控制类，不知往何处传：-〉
[Print This Page]
Author:
SuperYoyoNC
Time:
2004-3-28 16:55
Subject:
今天编完了个音量控制类，不知往何处传：-〉
{
下面是类的声明部分...}
// --[Yoyoworks]----------------------------------------------------------------
// 工程名称：prjPowerFlashPlayer
// 软件名称：iPowerFlashPlayer
// 单元作者：许子健
// 开始日期：2004年03月14日，14:31:16
// 单元功能：用于音量调整的类。
// -----------------------------------------------------------[SHANGHAi|CHiNA]--
Unit untTVolume;
Interface
Uses MMSystem, SysUtils;
Type
TVolume = Class(TObject)
Private
FVolume: LongInt; //存储音量。
FIsMute: Boolean; //存储静音值。
Procedure SetLeftVolume(Volume: Integer); //设置左声道的音量。
Function GetLeftVolume: Integer; //获得左声道的音量。
Procedure SetRightVolume(Volume: Integer); //设置右声道的音量。
Function GetRightVolume: Integer; //获得右声道的音量。
Procedure SetIsMute(IsMute: Boolean); //设置是否静音。
Public
Constructor Create;
Destructor Destroy; Override;
Published
Property LeftVolume: Integer Read GetLeftVolume Write SetLeftVolume;
Property RightVolume: Integer Read GetRightVolume Write SetRightVolume;
Property Mute: Boolean Read FIsMute Write SetIsMute;
End;
Author:
shaoyzh
Time:
2004-3-30 11:06
看声明就觉得很不错。如果您愿意的话可以将此控件发邮件到
master@cnvcl.org
，由我们来加入CnPack控件包，作者信息等都会保留。
Author:
SuperYoyoNC
Time:
2004-3-31 20:58
Subject:
已发，请查收
Date: Wed, 31 Mar 2004 20:51:27 +0800
From: "SuperYoyoNC"<
superyoyonc@sohu.com
>
To: "master" <
master@cnvcl.org
>
Subject: untTVolume的源代码
Author:
Passion
Time:
2004-4-11 23:30
已收到，已移植，待测试，谢谢。
Welcome to CnPack Forum (http://bbs.cnpack.org/)
Powered by Discuz! 5.0.0
下面是类的声明部分...}