Алтернативный прогрессбар, с градиентом...

← →
markers © (2004-11-23 13:50) [0]

Народ, подскажите плиз, как замутить может быть свой (Или переделать другой) прогрессбар с градиентом от синего до красного цвета. Заранее сенкс;)

← →
TUser © (2004-11-23 14:02) [1]

Есть такая библиотека - jedi. Там есть.

← →
markers © (2004-11-23 14:06) [2]

а если без него? Неохота ради одного компанента тащить крупный пакет, тем более что их и так у меня несколько штук...... Но всё-равно спасибо!
Может кто-нибудь что-то другое предложит?

← →
ламер © (2004-11-23 14:12) [3]

а что тут предлагать? переделай TGauge.

← →
markers © (2004-11-23 14:25) [4]

А как вообще нарисовать градиент от синего к расному? Я с этим полнейший ....

← →
TUser © (2004-11-23 15:03) [5]

Есть статья про градиенты. Только там про формы - но разберешься.

← →
cae © (2004-11-23 15:39) [6]

http://www.torry.net/quicksearchd.php?SID=204e72a35425071cbf3745542470c5c5&String=GradProgress&Title=Yes

← →
markers © (2004-11-23 17:52) [7]

Спасибо;)

← →
programania © (2004-11-23 19:42) [8]

PROCEDURE POLOSKA(i:tImage;P,MAX:integer); var s: pbytearray; k,n,xx,yy,x1,x2,x3,d3,d2,d1,c1,c2,c3,h,w,cb:integer; st:string[8]; c: boolean; begin w:=i.width; h:=i.height; if p>max then p:=max; with i.canvas do begin st:=" "+intToStr(p*100 div max)+"% "; font.color:=$FF0000; font.style:=[fsBold]; textOut((w-textWidth(st)) div 2,(h-textHeight(st)) div 2,st); n:=w*p div max; d1:=$60*P div max; d2:=$C0*P div max; d3:=$FF*P div max+90;if d3>255 then d3:=255; i.picture.bitmap.pixelformat:=pf24bit; for yy:=0 to h-1 do begin s:=i.picture.bitmap.scanline[yy]; x1:=0; x2:=1; x3:=2; k:=abs(yy-h div 2)*3; c1:=d1-k; if c1<0 then c1:=0; c2:=d2-k; if c2<0 then c2:=0; c3:=d3-k; if c3<0 then c3:=0; cb:=255-k; for xx:=0 to w-1 do begin c:=(s[x1]=255)and(s[x2]=0)and(s[x3]=0); if xx<n then begin if c then begin s[x1]:=$FF;s[x2]:=$FF;s[x3]:=$FF end else begin s[x1]:=c1; s[x2]:=c2;s[x3]:=c3 end; end else if not c then begin s[x1]:=255; s[x2]:=cb;s[x3]:=cb end; inc(x1,3);inc(x2,3);inc(x3,3); end; end; application.processMessages; end; end;

>>programania © (23.11.04 19:42) [8]
А где хоть какой0-нить намёк на стиль программирования?!?!?!
:)))))))))))))))))))))
Как говорится я плакаю:)))

>>Poirot ©
>А где хоть какой0-нить намёк на стиль программирования?!?!?!
А где хоть какой-нить намёк на прогрессбар? Слабо?
Покажите что сами сделали.
Про стиль любой может рассуждать, а тема о прогрессбаре.

Обфускатор :)

Алтернативный прогрессбар, с градиентом... Найти похожие ветки