delphi 渐变颜色进度条 控件

Posted 2023-03-09

我在一本电子书看到:delphi用第3方控件 tgradprogress 来实现渐变颜色进度条...可是.我在网上找了很久...总是找不到..
麻烦大家帮帮忙找找看......谢谢~
知道哪里可以下载,请留言...或请发到我的邮箱[e-mail]
非常感谢...

参考技术A 这个自己都可以实现，比如用image，把它横向的颜色值和progressbar的值经过计算，在image的x方向上画出背景，就是这个效果 答案补充 for i:=0 to 256 do
begin
image1.Canvas.Pen.Color:=rgb(256-i,0,0);
image1.Canvas.MoveTo(i,0);
image1.Canvas.LineTo(i,30);
end;

照这个修改一下就可以 答案补充 把外面的循环去掉，直接用里面的三句，把i改成处理过程的数值，
多想想，才能段练设计能力 答案补充 label 的宽度不应该和进度条的宽度一样，应该是ProgressBar1.Position的最大值 参考技术B 首先可以用devexpress套件，这个里面有一个渐进色进度条。
但最好是自己实现一个，画渐进色的办法是把进度条分成100分长度，即100个小矩形，每个矩形的RGB颜色递减就可以了。