svetlija nijansa sistemske boje

[ MACTEPx @ 25.11.2005. 14:30 ] @

na formi je label. kako da label ima npr. 10% svetliju boju od boje pozadine(forme) na svakoj color schemi?

[ Pastorius @ 25.11.2005. 18:55 ] @

Ne znam bas tacno da ti odgovorim (mrzi me da probam), ali evo ti hint :

Daj formi novi BackColor uz pomoc RGB funkcije, npr. RGB(100,200,210), pa onda sam dodaj, za Label kontrolu, vrednost crvene, zelene ili plave.

[ Shadowed @ 26.11.2005. 07:52 ] @

Povecaj vrednosti R, G i B za 10%. Naravno ako je pozadina veoma svetla tekst ce se "zakucati" u belu boju iako je to mozda manje od 10% svetlijeg, ali svetlije od belog ipak ne moze :). BTW, na to obrati paznju da moras da zaokruzis na 255 ako je vise od toga ili ce doci do greske.

[ MACTEPx @ 26.11.2005. 09:11 ] @

ali kako da saznam vrednosti r,g,b za formu(sistemsku boju) posto se
razlikuje na svakoj temi?

[ Shadowed @ 26.11.2005. 09:31 ] @

Recimo ovako nesto:

Code:

Private Sub Form1_Load
    Dim r as integer
    Dim g as integer
    Dim b as integer
    r=int(me.backcolor/65536)
    g=int((me.backcolor-r*65536)/256)
    b=int(me.backcolor-r*65536-g*256)
    r=int(r*1.1)
    if r>255 then r=255
    g=int(g*1.1)
    if g>255 then g=255
    b=int(b*1.1)
    if b>255 then b=255
    Label1.ForeColor=FromRGB(r, g, b)
End sub

_{[Ovu poruku je menjao Shadowed dana 26.11.2005. u 10:31 GMT+1]}

[ MACTEPx @ 26.11.2005. 17:35 ] @

Code:
    r=int(me.backcolor/65536)
    g=int((me.backcolor-r*65536)/256)
    b=int(me.backcolor-r*65536-g*256)

Code:
Label1.ForeColor=FromRGB(r, g, b)

nisam siguran da ovo radi

[ Marko_L @ 26.11.2005. 18:30 ] @

A jesi li probao

Code:
Label1.ForeColor=RGB(r, g, b)

[ Shadowed @ 26.11.2005. 22:00 ] @

E, sorry, pisao sam napamet (bez VB-a) pa sam pokupio ime finkcije iz VB.NET-a.

[ MACTEPx @ 27.11.2005. 09:22 ] @

probao sam ali se ne odredjuju tacno vrednosti za r,g,b

[ Shadowed @ 27.11.2005. 09:56 ] @

Pomislio sam da bi se to moglo dogoditi. Ima jedna uvrnuta stvar u VB-u koju sam skoro primetio a to je zamenjeno mesto R i B vrednosti. Bar je to bilo kod mene tako i to u GUI designer-u.
Probaj da zamenis R i B.

[ MACTEPx @ 27.11.2005. 16:20 ] @

ma nije problem u zameni r i b nego backcolor je negativan veliki broj(bar
kod mene) i kad se podeli sa 65xxx ne moze da bude mani od 255

[ Marko_L @ 27.11.2005. 16:58 ] @

Samo ti zameni R i B i biće sve u redu :)
Znači

Code:
Label1.ForeColor=RGB(b, g, r)