Чтобы получить для окна контекст дисплея, вызовите функцию Windows GetDC:

     TheDC := GetDC(HWindow);

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

     LineTo(TheDC, Msg.LParamLo, Msg.LParamHi);

    Как только вы закончите работу с контекстом дисплея, освободите его с помощью вызова функции ReleaseDC:

     ReleaseDC(HWindow, TheDC);

    Не вызывайте GetDC в строке дважды, не включив между вызовами вызов ReleaseDC. В итоге это приведет к сбою системы при работе программы, так как она исчерпает все доступные контексты дисплея.

    Перо используется для изображения линий, дуг и ломаных линий, представляющих собой множественные линейные сегменты. Атрибуты пера включают в себя его цвет, ширину и стиль (например, пунктирная линия или линия из точек).

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

    Инструментальное средство шрифта используется при изображения в контексте дисплея текста. Оно задаете высоту шрифта, его ширину, семейство и имя гарнитуры.

    Все три инструментальных средства используют для заполнения пробелов атрибут фонового цвета контекста дисплея. Изобразительные инструментальные средства подробнее освещаются в разделе "Изобразительные средства" данной главы.

    В отличие от логических инструментальных средств основные инструментальные средства не удаляются после использования.

    Определение записи TLogPen имеет следующий вид:

     TLogPen = record
        lopnStyle: Word;
        lopnWidth: TPoint;
        lopnColor: Longint;
     end;

    Поле стиля, lopnStyle, содержит константу, задающую стиль линии.

Рис.17.1 Стили линий для пера.

    Поле толщины, lopnWidth, содержит точку, координата x которой задает толщину линии в координатах устройства. На экране VGA, если задано значение 0, то будет рисоваться линия толщиной в один элемент изображения. Значение координаты y игнорируется. Поле цвета, lopnColor, содержит значение Longint, байты которого задают величины интенсивности основных цветов (красного, зеленого и синего), смешение которых и дает нужный цвет. Значение lopnColor должно иметь вид $00bbggrr, где bb - значение синего цвета, gg значение зеленого цвета, а rr - значение красного цвета. Доступный диапазон интенсивности для каждого первичного цвета от 0 до 255, или от 0 до FF в шестнадцатиричном исчислении. Следующая таблица показывает некоторые примеры значений цвета:

    В качестве альтернативы для воспроизведения цвета можно использовать функцию RGB. RGB(0,0,0) возвратит черный цвет, RGB(255,0,0) возвратит красный и т.д.

    Определение записи TLogBrush имеет следующий вид:

     TLogBrush = record
       lbStyle: Word;
       lbColor: Longint;
       lbHatch: Integer;
     end;

    Поле стиля, lbStyle, содержит константы, задающие стиль кисти:

• bs_DIBPattern указывает, что образец кисти задан аппаратно-независимым побитовым отображением.
• bs_Hatched задает один из заранее определенных образцов штриховки (см. lbHatch).
• bs_Hollow - это пустая кисть.
• bs_Pattern использует левый верхний угол 8 на 8 элементов побитового отображения, которое находится в этот момент в памяти.
• bs_Solid - это непрерывная кисть.

    Поле lbColor содержит значение цвета, аналогично записи TLogPen. Это поле игнорируется кистями со стилями bs_Hollow и bs_Pattern.

    Поле lbHatch содержит целую константу, задающую образец штриховки для кисти со стилем bs_Hatched. Если стиль bs_DIBPattern, то lbHatch содержит описатель побитового отображения.

Рис. 17.2 Стили штриховки для кисти.

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

    Поле lfHight задает необходимую высоту шрифта. Нулевое значение устанавливает размер по умолчанию. Положительное значение есть высота элемента в логических единицах. Отрицательное значение воспринимается как положительное.

    Поле lfWidht задает нужную ширину букв в единицах устройства. Если задан ноль, то коэффициент относительного удлинения сохраняется.

    Для поворачиваемого текста lfEscapement задает значение в десятых долях градуса, на которое поворачивается текст против часовой стрелки. lfOrientation делает аналогичный поворот каждого символа.

    Параметр lfWeight задает нужный вес символов. В качестве значений можно использовать константы fw_Light, fw_Normal, fw_Bold и fw_DontCare.

    Для трех атрибутов шрифта - lfItalic, lfUnderline и lfStrikeOut - нужно задать ненулевые значения.

    В поле lfCharSet требуется задать конкретный набор символов, ANSI_CharSet, OEM_CharSet или Symbol_CharSet. Набор символов ANSI содержится в "Руководстве пользователя по Microsoft Windows", в Приложении B. OEM_CharSet является системно-зависимым.

    Поле lfOutPrecision задает, как точно создаваемый Windows шрифт должен соответствовать запросам на размеры и позиционирование. Значение поля по умолчанию - Out_Default_Precis. Поле lfClipPrecision задает способ рассмотрения частично видимых символов. Значение поля по умолчанию Clip_Default_Precis.

    Поле lfQuality показывает как точно предоставляемый Windows шрифт соответствует запрошенным атрибутам шрифта. Может быть установлено значение Default_Quality, Draft_Quality или Proof_Quality. Для значения Proof_Quality жирные, подчеркнутые, наклонные шрифты и шрифты с надпечаткой синтезируются, даже если их нет. Поле lfPitchAndFamily задает шаг и семейство шрифта. Оно может быть результатом логической операции or между константой шага и константой семейства.

    И, наконец, lfFaceName - это строка, которая задает запрошенный вид букв. Если задано значение 0, то вид букв будет строиться на основании значений других полей TLogFont. Приведем несколько примеров исходного кода, определяющего записи TLogFont:

     procedure MyWindow.MakeFont;
     var
       MyLogFont: TLogFont;
     begin
       with MyLogFont do
       begin
         lfHight := 30;
         lfWidht := 0;
         lfEscapement := 0;
         lfOrientation := 0;
         lfWeight := fw_Bold;
         lfItalic := 0;
         lfUnderline := 0;
         lfStrikeOut := 0;
         lfCharSet := ANSI_CharSet;
         lfOutPrecision := Out_Default_Precis;
         lfClipPrecision := Clip_Default_Precis;
         lfQuality := Default_Quality;
         lfPitchAndFamily := Variable_Pitch or ff_Swiss;
         StrCopy(@FaceName, 'Helv');
      end;
      TheFont := CreateFontInderect(@MyLogFont);
     end;

     procedure MyWindow.MakeFont;
     var
       MyLogFont: TLogFont;
     begin
       with MyLogFont do
       begin
         lfHight := 10;
         lfWidht := 0;
         lfEscapement := 0;
         lfOrientation := 0;
         lfWeight := fw_Normal;
         lfItalic := Ord(True);
         lfUnderline := Ord(True);
         lfStrikeOut := 0;
         lfCharSet := ANSI_CharSet;
         lfOutPrecision := Out_Default_Precis;
         lfClipPrecision := Clip_Default_Precis;
         lfQuality := Default_Quality;
         lfPitchAndFamily := Fixed_Pitch or ff_DontCare;
         StrCopy(@FaceName, 'Courier');
      end;
      TheFont := CreateFontInderect(@MyLogFont);
     end;

     procedure MyWindow.MakeFont;
     var
       MyLogFont: TLogFont;
     begin
       with MyLogFont do
       begin
          lfHight:=30;
          lfWidht:=0;
          lfEscapement:=0;
          lfOrientation:=0;
          lfWeight:=fw_Normal;
          lfItalic:=0;
          lfUnderline:=0;
          lfStrikeOut:=0;
          lfCharSet:=Symbol_CharSet;
          lfOutPrecision:=Out_Default_Precis;
          lfClipPrecision:=Clip_Default_Precis;
          lfQuality:=Proof_Quality;
          lfPitchAndFamily:=Fixed_Pitch or ff_Roman;
          StrCopy(@FaceName, 'Rmn');
      end;
        TheFont:=CreateFontInderect(@MyLogFont);
     end;

    Как показано в данном примере, новый инструмент рисования должен быть создан, а затем удален. Подобно контексту дисплея, элементы хранятся в памяти Windows. Если их не удалить, это приводит к потерям памяти и возможности возникновения сбоя. Как и для контекста дисплея, вы должны хранить описатели инструментальных средств рисования в переменных типа HPen, HBrush, HFont и HPalette.

    Функция Windows DeleteObject удаляет инструментальные средства рисования из памяти Windows. Ни в коем случае не удаляйте инструментальные средства рисования, которые выбраны в данный момент в контекст дисплея!

    Контекст дисплея может хранить только по одному инструменту рисования каждого типа в данный момент времени, поэтому нужно отслеживать доступные инструментальные средства отображения. Очень важно удалить их все до завершения работы вашего приложения. Один из методов, (использован в примере Главы 2) состоит в определении поля объекта окна с именем ThePen для хранения описателя текущего пера. Когда пользователь выбирает новый стиль пера, создается новое перо, а старое удаляется. Следовательно, окончательное перо будет удалено методом основного окна CanClose. Вам не нужно удалять набор инструментальных средств по умолчанию, поставляемый во вновь полученном контексте дисплея.

    Есть два способа создания новых инструментальных средств рисования. Самый простой способ состоит в использовании существующего альтернативного инструмента, называемого основным или опорным. Список основных инструментальных средств приведен в Таблице 17.1.

    Для установки основного инструментального средства в объекте контекста дисплея используются методы SetStockPen, SetStockBrush, SetStockFont и SetStockPalette. Например:

     ThePen:=GetStockObject(Black_Pen);

    Не удаляйте основные инструменты из памяти Windows, поскольку вы будете настраивать их. Иногда возникает ситуация, когда нет основного инструмента, который имел бы нужный вам атрибут. Например, все основные перья воспроизводят тонкие линии, а вам требуется толстая. В этом случае имеется два способа создания настроенных инструментальных средств рисования. Один способ состоит в вызове функций Windows CreatePen, CreateFont, CreateSolidBrush или CreateDIBPatternBrush. Эти функции используют параметры, которые описывают нужный инструмент, и возвращают описатель инструментального средства, который используется в вызовах SelectObject.

    Другой способ создания настроенных инструментальных средств состоит в построении описания атрибутов логического инструмента. Логический инструмент реализуется структурами данных Windows TLogPen, TLogBrush, TLogFont и TLogPalette. Например, TLogPen имеет поля для хранения толщины цвета и стиля. После создания записи данных логического инструмента, она передается в качестве параметра в CreatePenInderect, CreateBrushInderect, CreateFontInderect или CreatePalette. Эти функции возвращают описатели инструментального средства которые могут быть использованы в вызовах SelectObject. В данном примере устанавливается синее перо для изображения в контексте дисплея окна:

     procedure SampleWindow.ChangePenToBlue;
     var
        ALogPen: TLogPen;
        ThePen: HPen;
     
     begin
        ALogPen.lopnColor:=RGB(0, 0, 255);
        ALogPen.lopnStyle:=ps_Solid;
        ALogPen.lopnWidth.X:=0;
        ALogPen.lopnWidth.Y:=0;
        ThePen:=CreatePenInderect(@ALogPen);
        SelectObject(TheDC, ThePen);
     end;

    Одно из правил GDI состоит в том, что для работы функций необходимо в качестве аргумента задавать контекст дисплея. Обычно вы будете вызывать эти функции из методов типа окна. Например, TextOut - это функция рисования текста на контексте дисплея в заданном месте:

     TheDC := GetDC(HWindow);
     TextOut(TheDC, 50, 50, 'Sample Text', 11);
     ReleaseDC(HWindow, TheDC);

    Функция MoveTo перемещает текущую позицию в заданные координаты. Функция LineTo рисует линию из текущей позиции к точке с заданными координатами. Заданные координаты затем становятся текущей позицией. Следующий метод Paint рисует линию от (100,150) до (10,15).

      procedure TMyWindow.Paint(PaintDC: HDC; var PaintINfo:
                                TPaintStruct);
      begin
        MoveTo(PaintDC, 100, 150);
        LineTo(PaintDC, 10, 15);
      end;

Рис. 17.4. Результат выполнения функции LineTo.

    Функция Polyline рисует последовательность линий, соединяющих заданные точки. По действию она аналогична выполнению последовательности функций MoveTo и LineTo, однако, Polyline выполняет эту операцию намного быстрее и никак не воздействует на текущую позицию пера. Следующий метод Paint рисует прямой угол.

     procedure TMyWindow.Paint(PaintDC: HDC; var PaintInfo:
                               TPaintStruct);
     var
      Points: array[0..2] of TPoint;
     begin
      Points[0].X:=10;
      Points[0].Y:=15;
      Points[1].X:=10;
      Points[1].Y:=150;
      Points[2].X:=100;
      Points[2].Y:=150;
      Polyline(PaintDC, @Points, 3);
     end;

Рис. 17.5. Результат выполнения функции Polyline.

    Функция Arc рисует дуги по периметру эллипса, ограниченного заданным прямоугольником. Дуга начинается в точке пересечения эллипса и линии из центра эллипса в заданную точку начала. Дуга рисуется против часовой стрелки до тех пор, пока она не достигнет точки пересечения эллипса с линией из центра эллипса к заданной точке конца.

    Следующий метод Paint рисует верхнюю четверть окружности с началом в (40,25) и окончанием в (10,25), используя ограничивающий прямоугольник (10,10), (40,40), начальную точку (0,0) и конечную точку (50,0). Действие производится даже в том случае, если заданная начальная и конечная точка не лежат на дуге.

     procedure TMyWindow.Paint(PaintDC: HDC;
                               var PaintInfo: TPaintStruct);
     begin
        Arc(PaintDC, 10, 10, 40, 40, 50, 0, 0, 0);
     end;

    Функция Rectangle рисует прямоугольник от его левого верхнего угла к правому нижнему. Например, следующий оператор метода Paint рисует прямоугольник от (10,15) до (100,150).

     Rectangle(PaintDC, 10, 15, 100, 150);

Рис. 17.6. Результат выполнения функции Rectangle.

    Функция RoundRect рисует прямоугольник со скругленными углами. Скругления углов определены как четверти эллипса. Например, следующий оператор метода Paint рисует прямоугольник от (10,15) до (100,150), углы которого будут скруглены четвертями эллипса шириной 9 и высотой 11.

     RoundRect(PaintDC, 10, 15, 100, 150, 9, 11);

    Функция Ellipse рисует эллипс, задаваемый ограничивающим его прямоугольником. Следующий пример рисует эллипс в прямоугольнике от (10,15) до (110,70).

     Ellipse(PaintDC, 10, 50, 100, 150);

    Функции Pie и Chord рисуют секторы эллипса. Они рисуют дугу, подобно функции Arc. Однако, результатом Pie и Chord будут области. Функция Pie соединяет центр эллипса с его граничными точками. Следующая функция Pie рисует верхнюю четверть круга, заключенного в прямоугольник от (10,10) до (40,40).

     Pie(PaintDC, 10, 10, 40, 40, 50, 0, 0, 0);

    Функция Chord соединяет две граничные точки дуги.

     Chord(PaintDC, 10, 10, 40, 40, 50, 0, 0, 0);

    Функция Polygon рисует непрерывную последовательность сегментов линий, аналогично функции Polyline, но в конце работы замыкает область, рисуя линию от последней заданной точки к первой заданной точке. И, наконец, он заполняет полученный многоугольник текущей кистью, используя установленный режим закрашивания многоугольника. Следующий метод Paint рисует и закрашивает прямоугольный треугольник.

     procedure TMyWindow.Paint(PaintDC: HDC;
                               var PaintInfo: TPaintStruct);
     var
      Points: array[0..2] of TPoint;
     begin
      Points[0].X:=10;
      Points[0].Y:=15;
      Points[1].X:=10;
      Points[1].Y:=150;
      Points[2].X:=100;
      Points[2].Y:=150;
      Polygon(PaintDC, @Points, 3);
     end;

Рис. 17.7. Результат выполнения функции Polygon.

    RealizePalette помещает цвета из вашей логической палитры в системную палитру устройства. Сначала Windows проверяет соответствие цветов с уже имеющимися в системной палитре, а затем добавляет ваши новые цвета в палитру системы, если для этого есть место. Цветам, которым не нашлись идентичные цвета в системной палитре, подбирается наиболее соответствующий цвет из палитры системы. Ваше приложение должно реализовать свою палитру до рисования, как это делается для других инструментальных средств рисования.

    Если ваше дисплейное устройство допускает использование полного 24-битового цвета без системной палитры, то использование индекса палитры неоправданно ограничивает вас цветами вашей логической палитры. Чтобы избежать этого ограничения, вы можете задать цвет палитры косвенно, используя относительное значение палитры TColorRef. Относительное значение TColorRef почти совпадает с абсолютным значением RGB TColorRef, но байт старшего разряда установлен в 2. Три младших байта содержат значение цвета RGB. Например, $020000FF задают значение чистого красного цвета. Если устройство поддерживает системную палитру, то Windows подберет максимально соответствующий цвет RGB логической палитры. Если устройство не поддерживает системную палитру, то TColorRed используется так, как если бы он задавал явное значение RGB.

    Вместо AnimatePalette мы могли бы использовать:

     SetPaletteEntries(ThePalette, 0, 10, @PaletteEntries);
     RealizePalette(ThePalette);

и затем перерисовать окно, чтобы увидеть изменения цветов.