对Borland可视部件的一处改进
Borland 公司的Delphi 和C++ Builder
中均提供了强大的可视化集成开发环境，从而使得Windows
下的应用程序开发变得更为简洁和高效。但是，笔者在使用过程中也发现了Borland
可视部件的一个不足之处。
跟踪条作为Win
32 系统中新增加的通用控件（Common Control）而被应用程序广泛使用（如Windows
95 中的声卡音量调节程序即为一例）。根据WIN32 API
参考手册，该控件有多种不同的风格。其中TBS_ENABLESELRANGE
提供了基本的显示风格控制：当跟踪条具备这一风格时，其显示结果如图1所示；当不具备这一风格时，则显示为图2的样子，与我们在音量调节程序中所见到的样子类似。在Borland
可视部件库中跟踪条被封装成TTrackBar
类，其大多数风格均可通过属性窗直接进行修改，唯独无法更改其TBS_ENABLESELRANGE
风格，因而只能显示成如图１所示的样子，这不能不说是一处缺憾。幸好Borland
公司提供了扩充部件库的简便方法，使我们能够轻松地解决这一问题。
下面给出在C++ Builder
中解决这一问题的源程序。将下面的源程序输入后，启动C++ Builder，选择Component
菜单的Install 选项，弹出安装部件对话框。再选择Add 按钮，输入C++
源程序文件名及其完整路径，选择OK。此后，C++ Builder
会重建部件库，并在工具条上产生Samples 部件页，内有TMyTrackBar
部件。TMyTrackBar 部件新增了EnableSelRange 属性：当将其置为FALSE
时，显示如图１所示的风格；当将其置为TRUE
时，则显示如图２所示的风格。由于Delphi 2.0 和3.0
也都存在上述问题，所以若将下面用C 语言编写的源程序用PASCAL
语言改写即可解决Delphi 中存在的类似问题。
MyTBar.H 源程序如下：
#ifndef MyTBarH
#define MyTBarH
#include
#include
#include
#include
#include
class TMyTrackBar : public TTrackBar
{
private:
bool FEnableSel;
void __fastcall SetEnableSel(bool Value);
protected:
void __fastcall CreateParams(TCreateParams& Params);
public:
__fastcall TMyTrackBar(TComponent* Owner);
__published:
__property bool EnableSelRange =
{read=FEnableSel, write=SetEnableSel};
};
#endif
MyTBar.CPP 源程序如下：
#include
#pragma hdrstop
#include "MyTBar.h"
static inline TMyTrackBar *ValidCtrCheck()
{
return new TMyTrackBar(NULL);
}
__fastcall TMyTrackBar::TMyTrackBar(TComponent* Owner)
: TTrackBar(Owner)
{ }
void __fastcall TMyTrackBar::CreateParams (TCreateParams& Params)
{
TTrackBar::CreateParams(Params);
if(!FEnableSel) Params.Style &= ~TBS_ENABLE-SELRANGE;
}
void __fastcall TMyTrackBar::SetEnableSel(bool Value)
{
if(Value != FEnableSel)
{
FEnableSel = Value;
RecreateWnd();
} }
namespace Mytbar
{
void __fastcall Register()
{
TComponentClass classes = {__classid (TMyTrackBar)};
RegisterComponents("Samples", classes, 0);
}
}