为TurboC增加一个立体按钮函数

Author: 王焱 Date: 1997-01-01

　　当今大多数优秀软件都采用立体按钮作选择开关，这种直观、清晰的图形界面深受广大用户的青睐，笔者利用Ｔｕｒｂｏ　Ｃ　２．０提供的绘图功能编制了一个通用的立体按钮函数Ｗｉｎｄｏｗｓ，该函数使用极其灵活，可任意改变其大小、高度、颜色及状态。现将实现立体按钮的程序介绍给读者，以供参考。
　　／＊在主程序中调用举例＊／
　　＃ｉｎｃｌｕｄｅ　＂ｇｒａｐｈｉｃｓ．ｈ＂
　　ｖｏｉｄ　ｗｉｎｄｏｗｓ（ｉｎｔ　ｘ，ｉｎｔ　ｙ，ｉｎｔ　ｘａ，ｉｎｔ　ｙａ，ｉｎｔ　ｈｉｇｈ，ｉｎｔ　ｓｔａｔ，ｉｎｔ　ｃｏｌｏｒ）；
　　ｍａｉｎ（）
　　｛
　　ｉｎｔ　ｄ＝ＶＧＡ，ｍ＝ＶＧＡＨＩ；
　　ｉｎｉｔｇｒａｐｈ（＆ｄ，＆ｍ，＂＂）；
　　ｗｉｎｄｏｗｓ（１００，１００，２００，１３０，４，０，１）；
　　ｇｅｔｃｈ（）；
　　ｃｌｏｓｅｇｒａｐｈ（）；｝
　　／＊立体按钮函数＊／
　　ｖｏｉｄ　ｗｉｎｄｏｗｓ（ｉｎｔ　ｘ，ｉｎｔ　ｙ，ｉｎｔ　ｘａ，ｉｎｔ　ｙａ，ｉｎｔ　ｈｉｇｈ，ｉｎｔ　ｓｔａｔ，ｉｎｔ　ｃｏｌｏｒ）
　　｛ｒｅｇｉｓｔｅｒ　ｉ；
　　ｉｆ（！ｓｔａｔ）
　　ｓｅｔｆｉｌｌｓｔｙｌｅ（１，ｃｏｌｏｒ＋８）；ｅｌｓｅ　ｓｅｔｆｉｌｌｓｔｙｌｅ（１，ｃｏｌｏｒ）；
　　ｂａｒ（ｘ，ｙ，ｘａ，ｙａ）；
　　ｓｅｔｃｏｌｏｒ（０）；
　　ｒｅｃｔａｎｇｌｅ（ｘ－ｈｉｇｈ，ｙ－ｈｉｇｈ，ｘａ＋ｈｉｇｈ，ｙａ＋ｈｉｇｈ）；
　　ｒｅｃｔａｎｇｌｅ（ｘ，ｙ，ｘａ，ｙａ）；
　　ｉｆ（ｓｔａｔ）
　　ｓｅｔｃｏｌｏｒ（７）；ｅｌｓｅ　ｓｅｔｃｏｌｏｒ（８）；
　　ｆｏｒ　（ｉ＝１；ｉ＜ｈｉｇｈ；ｉ＋＋）
　　｛ｌｉｎｅ（ｘ－ｉ，ｙ－ｉ，ｘ－ｉ，ｙａ＋ｉ）；｝
　　ｌｉｎｅ（ｘ－ｉ，ｙａ＋ｉ，ｘａ＋ｉ，ｙａ＋ｉ）；｝
　　ｉｆ（ｓｔａｔ）
　　ｓｅｔｃｏｌｏｒ（８）；ｅｌｓｅ　ｓｅｔｃｏｌｏｒ（７）；
　　ｆｏｒ（ｉ＝１；ｉ＜ｈｉｇｈ；ｉ＋＋）
　　｛ｌｉｎｅ（ｘａ＋ｉ，ｙ－ｉ，ｘａ＋ｉ，ｙａ＋ｉ）；
　　ｌｉｎｅ（ｘ－ｉ，ｙ－ｉ，ｘａ＋ｉ，ｙ－ｉ）；｝
　　ｓｅｔｃｏｌｏｒ（０）；
　　ｌｉｎｅ（ｘ－ｈｉｇｈ，ｙ－ｈｉｇｈ，ｘ，ｙ）；
　　ｌｉｎｅ（ｘａ＋ｈｉｇｈ，ｙ－ｈｉｇｈ，ｘａ，ｙ）；
　　ｌｉｎｅ（ｘａ＋ｈｉｇｈ，ｙａ＋ｈｉｇｈ，ｘａ，ｙａ）；
　　ｌｉｎｅ（ｘ－ｈｉｇｈ，ｙａ＋ｈｉｇｈ，ｘ，ｙａ）；
　　｝