Пазарът на софтуер, все повече и повече започват да се появяват програми с помощта на своя стилен интерфейс. WinAMP, Windows Media Player, Nero Smart Start и много други. Отличителна черта на програмата споменах е тяхната способност да промените цвета на интерфейса е цветът, а не на самия проект.
Съвсем наскоро, проблемът стана за мен да се създаде в Delphi 7 интерфейс в Windows стил Media Player (WMP), давайки на потребителя да избира цвят на панела (точно както в WMP). След като прекара няколко часа в интернет, намерих готови кожи и компоненти за използване в приложения, написани на Delphi. Използването на промяната на цветовата палитра на всички изображения, в програмата е бавен и не е много подходящ за моите нужди. Затова реших да се мисли, мозъците им :-)
След известен размисъл и експерименти, реших да се използва PNG-графика. Решението е взето в полза на PNG, защото този формат поддържа прозрачност и прозрачност. Създаден в Photoshop няколко проби с различни видове градиенти, ефекти, прозрачност, смесване прозрачни наклони и други неща, аз започнах да експериментирам в Делфи. За радост на цялата интегрирането PNG графика е била ограничена до поставяне върху компонента форма TImage и вмъкване на PNG -снимка :-)
Сега, как да го направите сами.
Създаване на нов образ, а след това в продължение на най-прост пример, вземете градиент запълнете с бял цвят.
Напълнете фоновия слой с черен (или всеки друг тъмен цвят).
След това създайте нов слой. запълнете с бял градиент. Когато завърши с градиенти и преди да се съхранява в PNG, премахване или деактивиране на основния слой.
Запазване на изображението като PNG файл.
По този начин, най-простият пример е завършен в Photoshop, да започне да работи в Делфи.
Добавянето на подкрепа за PNG в Делфи
Създаване на нов проект, поставен върху формата на компонентите: TColorBox и TPanel, на TPanel настроен TShape (това ще бъде на фона на нашите PNG изображения) задаване на имот TShape Align равен alClient.
По-нататък на същия панел сложи TImage и сложи го Изравнете имот равен alClient.
Тогава зареден в TImage ни PNG изображение, а ако е постъпил правилно в Photoshop, а след това, след като изтеглите изображенията, които не виждат нищо - само на бял фон (бял градиент на бял TShape - Сега ще видите защо е невъзможно да се направи уравняване WMP напълно бяло :-)). Сега нека да напише процедура за промяна на TColorBox - OnChange. Много просто (в нашия пример):
процедура TForm1.ColorBox1Change (Sender: TObject);
започвам
Shape1.Brush.Color: = ColorBox1.Selected;
приключи;
Сега стартирате приложението и се опитайте да промените цвета на TColorBox1. Сега, всичко, което трябва да стане ясно. Използването на панели позволява да промените цвета на интерфейса частично или да създадете по-тъмен или по-светъл площ в молбата Ви.
Примери интерфейси с променливи цветове:
Свързани статии