Delphi. Трюки и эффекты. Александр Чиртик

//Окно «О программе»

      begin

      ShowAbout('Standart windows',

      'Демонстрация использования стандартных ' +

      'окон диалога из чистого API-приложения');

      end;

      end;

      end;

      else

      begin

      //Обработка по умолчанию

      WindowFunc := DefWindowProc(hWnd, msg, wParam, lParam);

      Exit;

      end;

      end;

      WindowFunc := S_OK; //Сообщение обработано

      end;

      Обработка сообщений здесь довольно проста, за исключением изменения шрифта текстового поля. Обратите внимание на следующий отрывок листинга 2.34:

      //Замена шрифта в Edit

      hOldFont := HFONT(SendDlgItemMessage(hMainWnd,2001,WM_GETFONT, 0,0));

      hCurFont := CreateFontIndirect(font);

      SendDlgItemMessage(hMainWnd, 2001, WM_SETFONT,

      Integer(hCurFont), Integer(True));

      SetEditText(2001, 'Текст, записанный выбранным шрифтом');

      if (hOldFont <> 0) then DeleteObject(hOldFont);

      Этот довольно объемный фрагмент кода всего лишь заменяет шрифт в текстовом поле. Подобную операцию можно использовать для задания шрифта любого элемента управления. В частности, в приведенных в этой главе примерах текст на кнопках, надписях и т. д. выглядит довольно невзрачно потому, что используется системный шрифт, установленный по умолчанию.

      Способ, которым можно установить шрифт всех элементов управления окна, показан далее. Теперь еще один существенный момент: не забывайте удалять объекты GDI (в данном случае – шрифт) после того, как они стали не нужны. Дело в том, что приложение может владеть не более чем 65 000 объектов GDI. И при наличии так называемой «утечки» ресурсов GDI может наступить момент (при продолжительной работе программы), когда вдруг окна приложения начинают отрисовываться по меньшей мере странно (если вообще отрисовываются).

      2.5. Установка шрифта элементов управления

      Есть множество способов установки шрифта текста, отображаемого в элементах управления. Можно, например, при создании каждого элемента управления посылать ему сообщение WM_SETFONT, передавая дескриптор (HFONT) созданного ранее объекта шрифта. В таком случае код создания и установки шрифта элементов управления (с использованием рассмотренных в этой главе функций) может выглядеть, как в листинге 2.35.

Листинг 2.35. Установка шрифта по ходу создания элементов управления

      //Шрифт для элементов управления

      font := CreateFont(16, 0, 0, 0, FW_NORMAL, 0, 0, 0, ANSI_CHARSET,

      OUT_CHARACTER_PRECIS, CLIP_DEFAULT_PRECIS,

      DEFAULT_QUALITY, DEFAULT_PITCH, 'Courier new');

      //Создание элементов управления

      ctrl := CreateButton(20, 30, 70, 30, 1001, 'Кнопка 1');

      SendMessage(ctrl, WM_SETFONT, HFONT(font), 1);

      ctrl := CreateButton(100, 30, 70, 30, 1002,'Кнопка 2');

      SendMessage(ctrl, WM_SETFONT, HFONT(font), 1);

      ctrl := CreateCheck(210, 30, 180, 20, 2001, 'Флажок 1');

      SendMessage(ctrl, WM_SETFONT, HFONT(font), 1);

      ctrl := CreateCheck(210, 60, 180, 20, 2001, 'Флажок 2', True);

      SendMessage(ctrl, WM_SETFONT, HFONT(font), 1);

      ctrl := CreateOption(210, 100, 180, 20, 3001, 'Переключатель 1',

      True);

      SendMessage(ctrl, WM_SETFONT, HFONT(font), 1);

      ctrl := CreateOption(210,130,180,20,3002, 'Переключатель 2',

      False, True);

      SendMessage(ctrl, WM_SETFONT, HFONT(font), 1);

      ctrl := CreateOption(210, 160, 180, 20, 3003, 'Переключатель 3',

      True);

      SendMessage(ctrl, WM_SETFONT, HFONT(font), 1);

      //Запуск цикла обработки сообщений

      while (Longint(GetMessage(mess, 0, 0, 0)) <> 0)

      do begin

      TranslateMessage(mess);

      DispatchMessage(mess);

      end;

      //Удаление шрифта

      DeleteObject(font);

      Выглядит окно с элементами управления, шрифт которых установлен любым из рассмотренных способов, так, как показано на рис. 2.9.

      Рис. 2.9. Шрифт элементов управления, отличный от системного

      Способ