dzielenie wartosci z alpha blend

0

Czy moze mi ktos napisac procedure która dzieli wartość pokazywana w lebelu:
Label1.Caption:='Współczynnik procentowy przeźroczystości: '+IntToStr(AlphaBlendValue)+'%';
najpierw na 5,1 a następnie mnoży wynik razy 2 dzieki czemu uzyskam skale procentową od 0 do 100% a nie jak teraz od 0 do 255%
Za pomoc z góry dziękuje.

0

mhmm

procent:=round(alphablendvalue*100/255); //sproboj

sproboj tego:]
[dop] na kalkulatorze działa:P

0

Dzięki juz działa. :)

0

procent:=alphablendvalue*100 div 255;

Będzie działać szybciej :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1