我最近下载了一个“开源”项目的源代码,不幸的是,它依赖于一堆昂贵的专有库,包括Infopower 1stClass,它似乎主要用于TfcShapeButton,这是一个行为类似于标准TBitBtn的组件,只是您可以通过描述一系列点来给它提供任意的多边形形状。DFM代码如下所示:
PointList.Strings = (
'8,29'
'18,19'
'28,29'
'20,37'
'16,37')
我试图清理这个项目,让它看起来像一个真正的开源项目,任何人都可以下载和构建,而不必为组件库花费数百美元,但我希望尽可能少地改变外观和感觉。那么,有没有人知道像这样的开源形状按钮组件可以在D2009和up上使用呢?
发布于 2009-11-30 19:49:22
这段代码完全符合您的需求。
const Points: array [1..5] of tPoint = (
(x:8;y:29),
(x:18;y:19),
(x:28;y:29),
(x:20;y:37),
(x:16;y:37) );
begin
SetWindowRgn(Button2.Handle, CreatePolygonRgn(Points, 5, WINDING), True);
end;
发布于 2009-11-29 22:33:58
梅森,做一个有形状的纽扣的更好的方法是给它戴上一个面具。这样做的组件应该在这里:http://www.delphi-jedi.org/
https://stackoverflow.com/questions/1815669
复制相似问题