|
你想创建一个与众不同的窗口背景吗？Ｄｅｌｐｈｉ 中有很多控件具有Ｃａｎｖａｓ（画布）属性，可在其上作画或显示图形，帮你实现这种功能。
设计思想
利用窗体Ｆｏｒｍ 支持Ｃａｎ—ｖｎｖａｓ 属性的特点，可在窗口画上随机的颜色像素点，并通过灵活地控制颜色得到满意的窗口背景。比如将窗口变成一张漂亮的地毯或者一块绿油油的草坪。
如果颜色的变化与窗口坐标变化相对应，其效果更是别具特色。
源程序
ｕｎｉｔ ｄｅｄｔ ；
ｉｎｔｅｒｆａｃｅ
ｕｓｅｓ
Ｗｉｎｄｏｗｓ ，Ｍｅｓｓａｇｅｓ ，ＳｙｓＵｔｉｌｓ ，Ｃｌａｓｓｅｓ ，
Ｇｒａｐｈｉｃｓ ，Ｃｏｎｔｒｏｌｓ ，Ｆｏｒｍｓ ，Ｄｉａｌｏｇｓ ，ＳｔｄＣｔｒｌｓ ；
ｔｙｐｅ
ＴＦｏｒｍ１＝ｃｌａｓｓ（ＴＦｏｒｍ）
Ｂｕｔｔｏｎ１：ＴＢｕｔｔｏｎ ；
Ｂｕｔｔｏｎ２：ＴＢｕｔｔｏｎ ；
Ｂｕｔｔｏｎ３：ＴＢｕｔｔｏｎ ；
ＯｐｅｎＤｉａｌｏｇ１：ＴＯｐｅｎＤｉａｌｏｇ ；
ｐｒｏｃｅｄｕｒｅ Ｂｕｔｔｏｎ１Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｐｒｏｃｅｄｕｒｅ Ｂｕｔｔｏｎ２Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｐｒｏｃｅｄｕｒｅ ＦｏｒｍＡｃｔｉｖａｔｅ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｐｒｏｃｅｄｕｒｅ Ｂｕｔｔｏｎ３Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｐｒｉｖａｔｅ
｛Ｐｒｉｖａｔｅ ｄｅｃｌａｒａｔｉｏｎｓ ｝ｐｕｂｌｉｃ ｛Ｐｕｂｌｉｃ ｄｅｃｌａｒａｔｉｏｎｓ ｝
ｅｎｄ ；
ｖａｒ Ｆｏｒｍ１：ＴＦｏｒｍ１；
ｉ ，ｊ ：ｉｎｔｅｇｅｒ ；
ｂｉｔｍａｐ ：Ｔｂｉｔｍａｐ ；
ｒｅｃｔ１：Ｔｒｅｃｔ ；
ｉ ｍｐｌｅｍｅｎｔａｔｉｏｎ ｛＄Ｒ ＊．ＤＦＭ｝
／／准备图像
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＦｏｒｍＡｃｔｉｖａｔｅ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ
ｂｉｔｍａｐ ：＝ｔｂｉｔｍａｐ ．ｃｒｅａｔｅ ；
ＯｐｅｎＤｉａｌｏｇ１．ｆｉｌｔｅｒ ：＝＇Ｂｉｔｍａｐｆｉｌｅ（＊．ｂｍｐ）｜＊．ｂｍｐ＇；
ｉｆ ＯｐｅｎＤｉａｌｏｇ１．Ｅｘｅｃｕｔｅ ｔｈｅｎ
ｂｉｔｍａｐ ．ｌｏａｄｆｒｏｍｆｉｌｅ（ＯｐｅｎＤｉａｌｏｇ１．ｆｉｌｅｎａｍｅ）；
Ｆｏｒｍ１．Ｃａｎｖａｓ ．Ｄｒａｗ（０，０，Ｂｉｔｍａｐ）；
ｅｎｄ ；／／绿色背景
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｂｕｔｔｏｎ１Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ ｆｏｒ ｊ ：＝０ｔｏ ｆｏｒｍ１．ｈｅｉｇｈｔ ｄｏ
ｆｏｒ ｉ ：＝０ｔｏ ｆｏｒｍ１．ｗｉｄｔｈ ｄｏ
ｆｏｒｍ１．Ｃａｎｖａｓ ．Ｐｉｘｅｌｓ［ｉ ，ｊ］：＝＄１００＊Ｒａｎｄｏｍ（２５６）；
ｅｎｄ ；／／平滑前景
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｂｕｔｔｏｎ２Ｃｌｉｃｋ
（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ ｆｏｒ ｊ ：＝０ｔｏ ｆｏｒｍ１．ｈｅｉｇｈｔ ｄｏ
ｆｏｒ ｉ ：＝０ｔｏ ｆｏｒｍ１．ｗｉｄｔｈ ｄｏ
ｆｏｒｍ１．Ｃａｎｖａｓ ．Ｐｉｘｅｌｓ［ｉ ，ｊ］：＝（（＄１００＊ｊ）ｄｉｖ
ｆｏｒｍ１．ｈｅｉｇｈｔ）＊Ｒａｎｄｏｍ（２５６）；
ｅｎｄ ；／／图像背景变化
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．Ｂｕｔｔｏｎ３Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ ｆｏｒ ｊ ：＝０ｔｏ ｂｉｔｍａｐ ．ｈｅｉｇｈｔ ｄｉｖ ２ｄｏ
ｆｏｒ ｉ ：＝０ｔｏ ｂｉｔｍａｐ ．ｗｉｄｔｈ ｄｉｖ ２ｄｏ
ｆｏｒｍ１．Ｃａｎｖａｓ ．Ｐｉｘｅｌｓ［２＊ｉ ，２＊ｊ］：＝（（２５６＊ｊ ＊２）ｄｉｖ
ｂｉｔｍａｐ ．ｈｅｉｇｈｔ）＊２５６；
ｅｎｄ ；ｅｎｄ ．运行程序，通过对话框选择一个ＢＭＰ 位图文件，按下按钮３则图像由上至下逐渐呈绿色，按下按钮１和按钮２则分别形成不同风格的窗口背景。
（辽宁省铁岭市气象局李莹１１２０００）
|