Отправляет email-рассылки с помощью сервиса Sendsay

СообЧА. Программирование на Delphi

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование в Delphi" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2000   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

10.085 подписчиков
-9 за неделю
←   Все выпуски   →

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

  Выпуск №6  Подписчиков: 449 
   
.:: СообЧа - Программирование на Delphi ::.
  © 2000 COOLer и AzYx  Дизайн: Yoghurt 
   

 

Оглавление
  В выпуске  Рассылка СообЧА 
    
  • Практикум - Написание приложения с измененным графическим интерфейсом.
    		•
    		 
    Рассылки Subscribe.Ru
    СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.
     Назад к оглавлению  
      
      Практикум - Написание приложения с измененным графическим интерфейсом. 
     
      

    Добрый день (если нет, то {local time} :))!

         Это уже наш шестой выпуск рассылки, в котором мы расскажем о создании программы с интерфейсом, схожим на Winamp.

         Для написания этой программы Вам необходим компонент Skin Form, который лежит по адресу: http://delphi.bos.ru/subs/sf.zip. Итак, если вы его уже скачали и установили его - тогда приступим:

    Создаем новый проект Delphi. Добавляем на форму компонент Skin Form. Теперь загружайте Pint, Corel или другой графический редактор и создайте рисунок (формата *.gif, *.jpg, *.bmp), нарисуйте на нём форму с кнопками и т.д. и т.п. Сохраните рисунок (например 1.jpg). Теперь этотже рисунок переведите в монохромный и сохраните с именем back.bmp (черный цвет - видимая часть формы, а белый - прозрачная). Нарисуйте также рисунки 2.jpg и 3.jpg, на которых изображена ваша форма при наведении на неё мышкой и при нажатии мышкой соответственно. Два раза кликаем на компонент SkinForm1. В появившемся окне пишем:
    Mask Bitmap:1.bmp
    Mouse Up Bitmap:1.jpg
    Mouse Over Bitmap:2.jpg
    Mouse Down Bitmap:3.jpg
    Каждый элемент рисунка должен быть описан: в разделе "Button" - каждая задействованная кнопка на рисунке, в разделе "Track Bar" - все окошки со скроллерами и т.д.
    Нажимаем в этом же окне кнопку "Save". Выбираем имя для файла скина (например, skin/skin.ini).

    Теперь самое главное (!):
    В окне Object Inspector находим Form1 выбираем раздел "Events" и кликаем два раза на "окно для ввода" справа от OnCreate. В появившемся окне пишем такую строку:
         skinform1.LoadSkinFile(extractfilepath(application.exename)+'skin\skin.ini'); //строка при загрузке формы загружает файл скина. А вот эта строка: extractfilepath(application.exename) показывает адрес запущенного экзешника.

    Ещё один важный момент:
    Каждой описанной кнопке нужно присвоить какое - либо действие. Для этого в окне Object Inspector находим SkinForm1 выбираем раздел "Events" и кликаем два раза на "окно для ввода" справа от OnMouseUpNotify. В появившемся окне пишем:
              if ID = 'BUTTON_minimize' then
                   Form1.Perform(WM_SYSCOMMAND, SC_MINIMIZE, 0); //Если пользователь кликает мышкой на кнопку с именем BUTTON_minimize (!ВНИМАНИЕ! регистр имеет значение тоесть кнопка с именем 'BUTTON' и кнопка с именем 'button' могут иметь разные действия) то выполняется действие, описанное ниже, а именно - сворачивание формы.

    Зарускайте свой проект и наслаждайтесь своим творением.

    Если у Вас есть предложения - пишите на адрес: delphi@xak.ru

    © AzYx & COOLer

    COOLer    - ведущий проекта    "Мир Delphi"

    Наш спонсор - лучший интернет магазин:

    о3он
    http://subscribe.ru/
    E-mail: ask@subscribe.ru
    Поиск
    В избранное