АРХИВ СТАТЕЙ ЖУРНАЛА «МОЙ КОМПЬЮТЕР» ЗА 2003 ГОД

Вопрос, конечно, интерфейсный…

Все журналы \ Номер 39/262 `2003 от 29.09.2003 \ Вопрос, конечно, интерфейсный…

Продолжение, начало см. в МК №33-34 (256-257).

ToolBar

Неплохой control для создания панели инструментов входит в состав Microsoft Windows Common Controls 6.0. Он так и называется — Toolbar. Но размер файла mscomctl.ocx — 1 062 704 байт, поэтому предпочтительно создавать toolbar с помощью CommandButton.

Существуют, насколько мне известно, API-функции для создания toolbar, но хорошего я о них сказать ничего не могу, поскольку такой способ создания крайне трудоемок и едва ли себя оправдывает в Visual Basic.

О том, как создать «подставку» для кнопок, будет рассказано в разделе «О рельефных control’ах Delphi». Если вы не в курсе, где VB прячет картинки для toolbar’а, загляните в папку C:\Program Files\Microsoft Visual Studio\Сommon\Graphics\Bitmaps\OffCtlBr\Small\Color. Во всяком случае, в VB 6.0 Enterprise Edition и Professional Edition они лежат именно там. Но вы могли их и не установить: по умолчанию флажок Графика в инсталляторе отключен. Впрочем, графика нужна далеко не вся: почти никогда не используются файлы из папок Video и Cursors. Вообще же, желательно ограбить винт какой-нибудь программой типа Restorator (увы, Restorator не работает под XP) на предмет иконок, картинок и курсоров. Такой запас весит не так уж и много, а нужен регулярно.

Примечание: как это ни удивительно, но у многих начинающих VB-программистов возникают вопросы по поводу размещения картинки на кнопке. Для этого необходимо установить свойство Style=Graphical, Picture=нужная картинка и, если вам нужно, чтобы какой-то цвет был прозрачным, UseMaskColor=True; MaskColor=нужный цвет.

О «драных» формах

Популярным вопросом во многих FAQ является создание «драной» формы, т.е. такой, которая имеет непрямоугольную форму. Технология создания таких форм состоит в объявлении региона с помощью API-функций CreateEllipticRgn, CreatePolygonRgn, CreatePolyPolygonRgn, CreateRectRgn, CreateRoundRectRgn, их комбинированием с помощью API-функции CombineRgn и присвоении этого региона форме. Вот пример, демонстрирующий создание «драной» формы. Если вы запустите его, вы сразу поймете, что я хотел изобразить:

Dim rgn(7) As Long	'Объявляем массив регионов

Private Sub Form_Load()
  Dim p(7) As POINTAPI	'Объявляем массив координат
  'Объявляем координаты опорных точек
  p(1).X = 0: p(1).Y = 0
  p(2).X = 20: p(2).Y = 80
  p(3).X = 40: p(3).Y = 80
  p(4).X = 60: p(4).Y = 0
  p(5).X = 50: p(5).Y = 0
  p(6).X = 30: p(6).Y = 70
  p(7).X = 10: p(7).Y = 0
  'Объявляем регионы
  rgn(0) = CreatePolygonRgn(p(1), 7, 1)
  rgn(1) = CreateRectRgn(70, 0, 105, 80)
  rgn(2) = CreateEllipticRgn(80, 0, 130, 45)
  rgn(3) = CreateEllipticRgn(80, 35, 130, 80)
  rgn(4) = CreateEllipticRgn(90, 10, 120, 35)
  rgn(5) = CreateEllipticRgn(90, 40, 120, 70)
  rgn(6) = CreateRectRgn(80, 10, 105, 35)
  rgn(7) = CreateRectRgn(80, 40, 105, 70)
  'Объединяем четыре первых региона
  For i = 1 To 3
    CombineRgn rgn(0), rgn(0), rgn(i), RGN_OR
  Next
  'Вычитаем четыре последних региона
  For i = 4 To 7
    CombineRgn rgn(0), rgn(0), rgn(i), RGN_DIFF
  Next
  SetWindowRgn Me.hWnd, rgn(0), True	'Присваиваем форме регион
End Sub
'Удаляем использованные регионы
Private Sub Form_Unload(Cancel As Integer)
  For i = 0 To 7
    DeleteObject rgn(i)
  Next
End Sub

Вот что должно появиться (см. Рис. 1).

Еще совет: форме желательно иметь свойство BorderStyle=0, т.к. регион отображается и для non-client области, т.е. для заголовка. Очень забавно смотреть на «обрезанную» кнопку закрытия окна. «Драные» формы можно использовать в играх, программах-оболочках для CD, каких-то небольших утилитах, плейерах и crack’ах. Они придают вашему приложению легкую несерьезность, поэтому ни в коем случае не используйте этот совет для создания, скажем, текстового редактора или программы для регулировки высоты кадмиевых стержней в ядерном реакторе!

О рельефных control’ах Delphi

Таких, кажется, два: Panel и Inset, или что-то в этом роде. Их несложно имитировать с помощью Shape и двух Line:

для Panel —Shape c BorderColor = ButtonShadow, как вам угодно по размеру, затем на его верхней и левой стороне Line c BorderColor = ButtonHighlight. Проверьте левую верхнюю точку — она должна принадлежать Line, если нет — исправьте вручную;

для Inset — аналогично, только Line надо размещать на нижней и правой стороне Shape.

Можно написать User Control, который позволит вам особо не утруждать себя слежкой за координатами — он будет делать все сам (если вам в design-time потребуется изменить размер Inset’а или Panel’а, это придется весьма кстати). Весит такая программа в скомпилированном виде 24 Кб (сравните с Delphi!), в OCX’ах эти control’ы весят оба по те же 24 Кб, но это не учитывая самой программы. Какой же из этого надо сделать вывод? Создайте свою библиотеку нужных вам пользовательских управлений CTL, а затем по мере надобности добавляйте их в свой проект. Вообще же, даже новичкам-программистам следует уже сейчас начинать создавать свою библиотеку компонентов, функций и методов. Опыт показывает: серьезные программисты пишут только 10% программы, остальные 90% были уже написаны ими ранее. Действительно, в каждой программе встречаются стандартные задачи, а повторение не всегда мать учения. В данном случае разумно руководствоваться принципом «трудолюбивой лени» — сделать один раз, чтобы потом не делать ни разу.

О разделителях в меню

Как это ни удивительно, но среди писем начинающих KVB’шников (Крутых VB’шников?) частенько попадаются вопросы, как добавить разделитель в меню. Загляните в любое меню «Файл» и почти наверняка вы увидите перед «Выходом» такой разделитель. Создать его совсем не сложно — достаточно в редакторе меню в свойстве Caption прописать символ -.

(Продолжение следует)

Рекомендуем ещё прочитать:

Язык, на котором говорят везде. (№3/226 `2003) Тихон Тарнавский
Решить задачу раз плюнуть. (№8/231 `2003) Олег Данилюк
Sкажи Mне, Sивилла…. (№13/236 `2003) Леонид Яицкий
Кидаем пальцы. (№21/244 `2003) Александр Камоцкий
Выпадение… списка. (№28/251 `2003) Александр Чабан
Электронная алгебра. (№30/253 `2003) А. Д. Тетерко
Язык, на котором говорят везде. (№31/254 `2003) Тихон Тарнавский
Генератор-инсталлятор. (№33/256 `2003) Петр «Roxton» Семилетов
100! (№36/259 `2003) Дмитрий Ельчанинов
Мысли о Паскале. (№42/265 `2003) Владислав Демьянишин

Предыдущая статья Назад К списку журналов Следующая статья