În piața software-ului, tot mai multe programe au început să apară folosind interfața lor elegantă. WinAMP, Windows Media Player, Nero Smart Start și multe altele. O caracteristică distinctă a programelor pe care le-am enumerat este capacitatea lor de a schimba culoarea interfeței, și anume culoarea, și nu design-ul propriu-zis.
Cel mai recent, m-am confruntat cu provocarea de a crea în Delphi 7 o interfață de stil Windows Media Player (WMP), oferind utilizatorului posibilitatea de a alege culoarea panourilor (la fel ca în WMP). După ce am petrecut câteva ore pe Internet, am găsit doar piei finite și componente pentru utilizarea lor în aplicațiile scrise în Delphi. Folosirea modificării paletei de culori a tuturor imaginilor din program a fost lentă și nu este foarte potrivită pentru nevoile mele. Deci, am decis sa ma gandesc cu creierul meu :-)
După câteva reflecții și experimentări, am decis să folosesc png-graphics. Decizia a fost luată în favoarea PNG, deoarece acest format sprijină transparența și transluciditatea. După ce am creat mai multe eșantioane în Photoshop cu efecte diferite precum gradientele, transparența, îmbinarea gradientelor transparente și alte lucruri, am început să experimentez cu Delphi. Pentru încântarea întregii integrări a graficii png a fost redusă la plasarea pe forma componentei TImage și încărcarea în ea png -images :-)
Acum, despre cum să o faceți singur.
Creați o imagine nouă, apoi pentru cel mai simplu exemplu, faceți o umplere cu un gradient alb.
Umpleți stratul de fundal cu negru (sau orice altă culoare închisă).
Apoi creați un nou strat. umpleți-l cu un gradient alb. După ce ați terminat de lucru cu gradiente și înainte de a salva png, eliminați sau dezactivați stratul de fundal.
Salvați imaginea ca fișier png.
Aceasta completează crearea celui mai simplu exemplu din Photoshop, începem să lucrăm în Delphi.
Adăugarea de suport PNG către Delphi
Creați un nou proiect, plasați componentele pe formularul: TColorBox și TPanel, setați TPanel la TShape (acesta va fi fundalul imaginii noastre png) setați proprietatea Alpha TShape la alClient.
Mai departe, pe același panou, l-am pus pe TImage, de asemenea, i-am pus la proprietate Align equal alClient.
Apoi, încărcate într-un TImage nostru png-imagine, și dacă ai făcut ceea ce în Photoshop, apoi, după descărcarea imaginilor nu vedeți nimic - doar un fundal alb (gradient de alb pe un TShape alb - Acum vezi de ce este imposibil de a face un clearance-ul WMP complet alb :-)). Acum să scrie o procedură pentru a schimba TColorBox - onchange. Pur și simplu (în exemplul nostru):
procedura TForm1.ColorBox1Change (expeditor: TObject);
începe
Shape1.Brush.Color: = ColorBox1.Selected;
se încheie;
Acum rulați aplicația și încercați să schimbați culoarea în TColorBox1. Acum totul ar trebui să vă fie clar. Folosirea panourilor vă permite să schimbați culoarea interfeței în părți sau să creați zone mai întunecate sau mai deschise în aplicația dvs.