CnPack Forum


 
Subject: 今天编完了个音量控制类,不知往何处传:-〉
SuperYoyoNC
新警察
Rank: 1



UID 310
Digest Posts 0
Credits 9
Posts 8
点点分 9
Reading Access 10
Registered 2004-2-2
Location 中国上海
Status Offline
Post at 2004-3-28 16:55  Profile | Site | Blog | P.M.  | QQ
今天编完了个音量控制类,不知往何处传:-〉

{下面是类的声明部分...}
// --[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;
Top
shaoyzh
新警察
Rank: 1


UID 33
Digest Posts 0
Credits 15
Posts 15
点点分 15
Reading Access 10
Registered 2003-3-14
Status Offline
Post at 2004-3-30 11:06  Profile | Blog | P.M. 
看声明就觉得很不错。如果您愿意的话可以将此控件发邮件到master@cnvcl.org,由我们来加入CnPack控件包,作者信息等都会保留。




理论联系实际,理论指导实践!
Top
SuperYoyoNC
新警察
Rank: 1



UID 310
Digest Posts 0
Credits 9
Posts 8
点点分 9
Reading Access 10
Registered 2004-2-2
Location 中国上海
Status Offline
Post at 2004-3-31 20:58  Profile | Site | Blog | P.M.  | QQ
已发,请查收

Date: Wed, 31 Mar 2004 20:51:27 +0800
From: "SuperYoyoNC"<superyoyonc@sohu.com>
To: "master" <master@cnvcl.org>
Subject: untTVolume的源代码
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6776
Posts 3563
点点分 6776
Reading Access 102
Registered 2004-3-28
Status Online
Post at 2004-4-11 23:30  Profile | Blog | P.M. 
已收到,已移植,待测试,谢谢。
Top
 




All times are GMT++8, the time now is 2024-7-23 16:19

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.007190 second(s), 7 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP