Kirjoittaja: sooda
Kirjoitettu: 25.04.2004 – 25.04.2004
Tagit: koodi näytille, vinkki
settaa järjestelmän värejä ja näkee ne myös =)
kaikki filut on http://sooda.dy.fi/foo/setcolors/
tein tän aika kauan sitte enkä jaksais muutella, nimet on nyt sitten tällaisella soodan-soodaus-kielellä mutta nehän voi muuttaa :P
lisää formille 3 hscrollbaaria r, g, ja b joihin max-arvoksi 255, commandnappi setti jonka styleksi graphical, ja combolaatikko typpe johon listiksi
Vierityspalkki
TyöpöytäTausta
Aktiiviotsikko
Epäaktiivi otsikko
Menu
WinTausta
Ikkunaframe
Ikkunateksti
3dtummavarjo(win95)
Ikkunaotsikko
Aktiivi ikkuna reuna
Epäaktiivi ikkuna reuna
WorkSpace
Highlight
Korostettu teksti
Nappi
3d varjostus napissa
Harmaateksti
Nappiteksti
Teksti epäaktiivista ikkunasta
3d highlight napista
muistaakseni noi värisäädöt motuulissa on laaksosen jotai, mutta tää mahtava ui on mun :P. Tuolla netissä oleva versio on sitte vähän vanhempi, en jaksanut upittaa tätä uudempaa sinne, kannattaa napsaista tästä nämä. Siinä on tyhmällä tavalla tehty yks juttu :P
jess, tämä on mun 30. vinkki!
formiin
Private Sub Form_Load() typpe.ListIndex = 2 End Sub Private Sub R_Change() Caption = "Säädä värit - väri on " & r.Value & "," & g.Value & "," & b.Value setti.BackColor = RGB(r.Value, g.Value, b.Value) End Sub Private Sub R_Scroll() Caption = "Säädä värit - väri on " & r.Value & "," & g.Value & "," & b.Value setti.BackColor = RGB(r.Value, g.Value, b.Value) End Sub Private Sub g_Change() Caption = "Säädä värit - väri on " & r.Value & "," & g.Value & "," & b.Value setti.BackColor = RGB(r.Value, g.Value, b.Value) End Sub Private Sub g_Scroll() Caption = "Säädä värit - väri on " & r.Value & "," & g.Value & "," & b.Value setti.BackColor = RGB(r.Value, g.Value, b.Value) End Sub Private Sub b_Change() Caption = "Säädä värit - väri on " & r.Value & "," & g.Value & "," & b.Value setti.BackColor = RGB(r.Value, g.Value, b.Value) End Sub Private Sub b_Scroll() Caption = "Säädä värit - väri on " & r.Value & "," & g.Value & "," & b.Value setti.BackColor = RGB(r.Value, g.Value, b.Value) End Sub Private Sub setti_Click() t& = SetSysColors(1, typpe.ListIndex, RGB(r.Value, g.Value, b.Value)) End Sub Private Sub typpe_Click() c = GetSysColor(typpe.ListIndex) cR = c And 255 cG = c And (65535 - 255) cG = cG / 256 cB = c And (16777215 - 65535) cB = cB / 65536 r.Value = cR g.Value = cG b.Value = cB setti.BackColor = c End Sub
motuuliin
Public Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Public Declare Function SetSysColors Lib "user32" _ (ByVal nChanges As Long, lpSysColor As _ Long, lpColorValues As Long) As Long Public Const COLOR_SCROLLBAR = 0 'Vierityspalkin väri Public Const COLOR_BACKGROUND = 1 'Värit taustasta ilman taustakuvaa Public Const COLOR_ACTIVECAPTION = 2 'Otsikko aktiivisesta ikkunasta Public Const COLOR_INACTIVECAPTION = 3 'Otsikko ei-aktiivisesta ikkunasta Public Const COLOR_MENU = 4 'Menu Public Const COLOR_WINDOW = 5 'Windowsin tausta Public Const COLOR_WINDOWFRAME = 6 'Ikkuna frame Public Const COLOR_MENUTEXT = 7 'Ikkunan teksti Public Const COLOR_WINDOWTEXT = 8 '3D tumma varjo (Win95) Public Const COLOR_CAPTIONTEXT = 9 'Ikkunan otsikko Public Const COLOR_ACTIVEBORDER = 10 'Reunat aktiivisesta ikkunasta Public Const COLOR_INACTIVEBORDER = 11 'Reunat ei-aktiivisesta ikkunasta Public Const COLOR_APPWORKSPACE = 12 Public Const COLOR_HIGHLIGHT = 13 Public Const COLOR_HIGHLIGHTTEXT = 14 'Valittu menu tavara Public Const COLOR_BTNFACE = 15 'Nappi Public Const COLOR_BTNSHADOW = 16 '3D varjostus napissa Public Const COLOR_GRAYTEXT = 17 Public Const COLOR_BTNTEXT = 18 'Nappi teksti Public Const COLOR_INACTIVECAPTIONTEXT = 19 'Teksti ei-aktiivisesta ikkunasta Public Const COLOR_BTNHIGHLIGHT = 20 '3D highlight napista
Kommentoikaa nyt vähän, jookosta?
Melko hyvä!
Mut menin säätelee vähä kaikkee ja nyt on värit sekasin :(
Jee, laitoitha ton vinkiks :P
Määkin menin tekeen kaikke tyhmää.
Koko kone on ihan sekasin.
Sun olisi pitänyt laitta tohon nappi, että saa laitettua kaikki asetukset takasin.
:D mitäs örvellätte, ei kannattaisi rikkoa kaikkia värejä xD noh näytön asetuksista ne saa palautettua kun valitsee jonku "windows-standardi" -setin siitä eräästä valikosta, ettikäätten se niin se pelastaa. Koulussa on jännää tän kanssa kun säätää joka värin mustaksi tms. niin saa nauraa :DD
Mukava saada lisää WinAPI-vinkkejä. :) Niillä kun voi tehdä Windowsissa helposti kaikenlaista kivaa.
Hyvin toimii!
Hyvin voi myös käyttää pilailu ohjelmiin.