CLX及其它
《Mastering Delphi 6》中提到Object Pascal中有一个TBits类，用来进行二进制位操作。我看过这一段之后马上去找，果然在Classes单元中找到了它。这个类的声明相当简单，不过我看过后感慨很多。如果不知道这个类的存在，我以后可能还要在需要操作二进制位的时候辛辛苦苦的写一大串代码（我以前也写过不少这样的代码），要是能够早点知道有这个类的话该有多好！我相信还可能有很多人和我一样，从来不知道TBits的存在。因此，我决定以后一定要抽个时间，好好把Classes和System这些单元浏览一遍；虽然在没有多少文档的情况下去读这些文件不会轻松，但是很可能会发现一些有用的东西，从而避免去做重新发明轮子的傻事。
我过去总是觉得，Delphi的帮助系统比起MSDN来是有很大差距的。这次我倒是发现了一个相反的例证。通过对Classes单元一个走马观花的浏览，我发现一个ExtractStrings函数，毫无疑问是非常有用的。虽然在一般的教材中都找不到关于它的介绍，不过在线帮助中确实有关于它的完整描述。自己作个例子试试看，和猜想的用法相差不远。这让我想起MFC中也有一个类似的AfxExtractSubString，同样有用，但庞大的MSDN中就是找不到它的帮助（其实，MFC中类似的Afx函数，只有很少的一部分才有文档资料，其他的都属于Undocumented。）虽然这一个小地方不能证明什么，但至少说明Borland在帮助系统的完整性方面还是用心了的，这让我对Delphi帮助系统稍稍有了一些正面印象。
Delphi 6中帮助系统的主题一般都有VCL Reference和CLX Reference两种，如果按F1的话，首先会弹出一个对话框询问你到底选择那一个。时间长了就很烦人。这里有一个方法可以避免：如果你希望一直使用VCL的话，选择Help->Custom,将列表中所有有关CLX的项目一概删除，然后保存项目（当然，最好先将原先的设置备份一个，留给以后恢复用。）最后关闭再重新打开Delphi就行了。
Delphi 6现在支持VCL和CLX两个类库。CLX在底层是基于Qt这个类库的，可能有些朋友还没有听说过它的名字，不过在Linux系统上面Qt的名字可是非常响亮哦。你可以在新建一个项目的时候指定是使用VCL Application还是CLX Application，构件面板会自动变化，只显示对当前项目可用的构件。CLX构件和VCL构件从外观上总的来说是惊人的相似，当然在背后它们还是很不同的。CLX中有一些有意思的构件在VCL中是找不到的，比如TextViewer和TextBrowser。而VCL中有一些构件在CLX中也没有对应，主要是Win32面板上的构件，不过CLX中也有类似的构件，虽然叫法不同。(《Mastering Delphi 6》中提到，和Windows系统通过消息机制通信的方法不同，Qt中采用的是更高层的面向对象封装，比如要操作一个按钮，不用像按钮发送消息，直接调用按钮的相应方法即可。应该把Qt也看作一种Application Framework,而且这种结构一定很值得学习，有机会的话应该看看。)虽然VCL和CLX都有不少好的构件，但它们是无法共同使用的，也就是说，没有办法在VCL Application中使用CLX构件，反之亦然。
《Mastering Delphi 6》中有一个很妙的例子，用到CLX中的TextViewer。这个构件的特点是完全基于HTML的，而它有Text属性，因而又和Memo相兼容。所以，只要建立一个CLX Application，在窗体上面放上一个Memo和一个TextViewer，并修改Memo的OnChange事件：
procedure TForm1.Memo1Change(Sender: TObject);
begin
TextViewer1.Text := Memo1.Text;
end;
简简单单的一句话，产生出来的可是一个非常强的工具，你可以在Memo中按照HTML格式写内容，比如“<A HREF=”http://marcocantu.com”><IMG SRC=”viewme.gif”></A>”在TextViewer中立刻就能够看到效果，非常好的HTML学习工具哦。不过要说明的一点是，TextViewer的显示效果和我们通常在IE中看到的会有一些区别，有些网页效果是显示不出来的。但即便如此，这个程序还是让我兴奋了半天。
由于Qt的内置功能和Linux的可定制特性，因而CLX程序的外观可以是千变万化的，这就比Windows的单一外观要有趣一些。《Mastering Delphi 6》中举了一个例子。建立一个CLX Application，其中添加一个列表框和其他一些常用构件。在ListBox中增加几个表项，分别是Windows,Motif,Motif+,CDE,SGI,Platinum,SystemDefault。为ListBox增加OnDblClick处理：
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
case ListBox1.ItemIndex of
0: Application.Style.DefaultStyle := dsWindows;
1: Application.Style.DefaultStyle := dsMotif;
2: Application.Style.DefaultStyle := dsMotifPlus;
3: Application.Style.DefaultStyle := dsCDE;
4: Application.Style.DefaultStyle := dsQtSGI;
5: Application.Style.DefaultStyle := dsPlatinum;
6: Application.Style.DefaultStyle := dsSystemDefault;
end;
end;
可以看到程序显示多变的外观。其实这些外观并不是都很好看，但很有趣。如果是在Linux底下，通过定制Window Manager，还可以产生更多的变化，相信不会输给XP的超眩外观。
本文地址：http://com.8s8s.com/it/it5801.htm