Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков КРЭКЕРСТВО + ПРОГРАММИРОВАНИЕ 2017
(актуальность: май 2017)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Размер диалогового окна

Автор: Steve Schafer

Давайте начнем с Microsoft Windows User Interface Guidelines (Руководящие Принципы Построения Интерфейса Пользователя Microsoft Windows) и допустим, что мы создаем диалоговое окно, содержащее компонент TMemo, занимающий большую часть площади формы и кнопки OK и Cancel, размещенные в ее нижней части.

Несколько примечаний из "Принципов":

  1. Диалоговые окна должны быть основаны на базовых диалоговых модулях, dialog base units (DBU), которые создаются с учетом размера шрифта и разрешения экрана.
  2. Диалоговые окна должны быть созданы, по возможности, на основе одного из нескольких стандартных размеров. Для нашего окна мы используем размер 212x188 DBU.
  3. Все элементы управления должны распологаться как минимум на расстоянии 7 DBU от края окна.
  4. Все элементы управления должны иметь между друг другом зазор размером минимум 4 DBU.
  5. Кнопки должны иметь высоту 14 DBU. (Про ширину кнопок "принципы" умалчивают; в обычном случая я использую кнопки шириной 40 DBU.)

Вот необходимая для создания формы и элементов управления информация, которую мы можем получить во время выполнения приложения:


 procedure TMyForm.FormCreate(Sender: TObject);
 var
   BaseUnit, Margin, Spacing, BtnW, BtnH: Integer;
 begin
   BaseUnit := Canvas.TextHeight('0'); { 1 BaseUnit = 8 DBU определениям }
   Width := (212 * BaseUnit) div 8;
   Height := (188 * BaseUnit) div 8;
   Margin := (7 * BaseUnit) div 8 - GetSystemMetrics(SM_CXFIXEDFRAME);
   Spacing := (4 * BaseUnit) div 8;
   BtnW := (40 * BaseUnit) div 8;
   BtnH := (14 * BaseUnit) div 8;
   Memo1.SetBounds(Margin, Margin, ClientWidth - 2 * Margin, ClientHeight -
     2 * Margin - Spacing - BtnH);
   OkButton.SetBounds(ClientWidth - Margin - Spacing - 2 * BtnW, ClientHeight -
     Margin - BtnH, BtnW, BtnH);
   CancelButton.SetBounds(ClientWidth - Margin - BtnW, ClientHeight - Margin -
     BtnH, BtnW, BtnH);
 end;
 

Данный код позволяет создать диалоговое окно с правильными размерами и пропорциями, независимо от разрешения экрана и шрифтов.




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS