ASPImage - Add PNG

Fundet her

TransparentColor Determines the color used for transparencies when saving a GIF, or PNG image. (PNG require version >= 2.26)
Example:

Image.TransparentColor = vbWhite

ref: http://www.serverobjects.com/comp/Aspimage.htm

mvh
Brock

Ja, men det er til når du gemme dit billede... ikke AddImage...

Du kan godt hente transparente png'er, men aspimage har aldrig haft support for alpha-channels i nogen formater.
Så nej - det kan du ikke.

Jeg mener da ellers det virker fint med addimage og transparente billeder.

det virker ikke på mine servere, som kører den nyeste aspimage...

måske der så er ande forslag til så at lave runde hjørner på sit billede, som var planen med at hente billedet ind... De skal gå 5 px ind i billedet...

eks:
http://www.gamersplace.dk/resources/images/news/keyboard.jpg

Ahh - nej, du kan ikke overføre en transparens fra et billede du henter, til det eksisterende billede.

Den eneste mulighed du har, er selv at "fjerne" nogle pixels i hjørnerne, med Setpixel. Du ved jo hvilke pixels du vil lave om.

hmm... hvordan gør jeg så det ?

Groft sagt:
Image.SetPixel 0,0,vbWhite
Image.SetPixel 1,0,vbWhite
Image.SetPixel 0,1,vbWhite

Så er der lige det med de næste pixels, som jo gerne skulle have noget at farven med fra det oprindelige billede.
BrightnessRGB er skrevet ud fra hukommelsen, men den er vist ikke helt galt.

Function BightenessRGB(lColor As Long, lAmount as Long)
'lAmount: -100 - 100
    r = CByte(lColor And &HFF&)
    g = CByte((lColor And &HFF00&) \ &HFF&)
    b = CByte((lColor And &HFF0000) \ &HFFFF&)
    r=r+round(lAmount*(255-r)/100)
    g=g+round(lAmount*(255-r)/100)
    b=b+round(lAmount*(255-r)/100)
    BightenessRGB=RGB(r,g,b)
End Function

Image.SetPixel 0,2,BrightnessRGB(Image.GetPixel(0,2),70)
Image.SetPixel 1,1,BrightnessRGB(Image.GetPixel(0,2),40)
Image.SetPixel 2,0,BrightnessRGB(Image.GetPixel(0,2),70)

Du kan jo så selv bestemme om du vil gå en tak videre.

Ovenstående kan du så repetere for de fire hjørner, eller lave en lille funktion som du kalder med parametre for hvilket hjørne det er, eller laver et loop til det.

Function BightenessRGB(lColor As Long, lAmount as Long)
'lAmount: -100 - 100
    r = CByte(lColor And &HFF&)
    g = CByte((lColor And &HFF00&) \ &HFF&)
    b = CByte((lColor And &HFF0000) \ &HFFFF&)
    if lAmount>=0 then
      r=r+round(lAmount*(255-r)/100)
      g=g+round(lAmount*(255-r)/100)
      b=b+round(lAmount*(255-r)/100)
    else
      r=r+round(lAmount*r/100)
      g=g+round(lAmount*r/100)
      b=b+round(lAmount*r/100)
    end if
    BightenessRGB=RGB(r,g,b)
End Function

jeg kigger på det...

Hmmm - Hvorfor gav du Brock point?

Ja, godt spørgsmål ?

ADMIN

hvordan giver vi pointene tilbage, det er jo forbudt at give point til hinanden, hvordan er reglerne ved fejlgivning ?

mvh

Brock

brock -> Du kan ikke direkte give point tilbage, men det er nu tilladt at oprette spørgsmål med det formål at overdrage point, hvis man henviser til det spørgsmål hvor pointene er uddelt.

sorry... trode det car mortrr der havde svarede, så jeg accepterede bare...

[ncp]

oki - hvem skal have point?

mortrr

oprettet med ref.: http://www.eksperten.dk/spm/345586