О чём не пишут в книгах по Delphi

Самые интересные для нас параметры — это третий (nEscapement) и четвертый (nOrientation), которые и определяют угол наклона шрифта. Они задаются в десятых долях градуса, т.е., чтобы получить нужное значение параметра, следует требуемое число градусов умножить на 10) (в нашем примере оба эти параметра равны 600, что означает 60 градусов). Параметр nEscapement задает угол поворота базовой линии текста относительно горизонтальной оси. Параметр nOrientation задаст угол поворота отдельных букв относительно своего нормального положения. По умолчанию в контекст устройства включен режим GM_COMPATIBLE при котором эти два значения должны совпадать, т.е. угол поворота надписи в целом и угол поворота отдельной буквы всегда совпадают. В Windows NT/2000/ХР с помощью функции SetGraphicsMode можно установить для контекста устройства режим GM_ADVANCED, при котором, в частности, параметры (nOrientation и nEscapement могут принимать различные значения (в Windows 9х/МЕ тоже есть функция SetGraphicsMode, но установить режим GM_ADVANCED она не позволяет). Когда мы присваиваем значение свойству TFont.Handle, все прочие свойства объекта TFont меняют свои значения в соответствии с тем, какой шрифт установлен. Так как в Delphi до 7-й версии свойство TFont.Orientation отсутствует, направление шрифта, установленное нами, в этом классе не запоминается, и поэтому при дальнейшем изменении шрифта с помощью свойств Canvas.Font.Name, Canvas.Font.Size и т.п. мы снова получим горизонтальный шрифт. Другое дело — BDS 2006 и выше. В этих версиях направление шрифта тоже запоминается, и поэтому дальнейшие манипуляции со свойствами Canvas.Font будут снова давать наклонный шрифт, пока мы явно не присвоим значение 0 свойству Canvas.Font.Orientation. В нашем случае это означает, что при повторном вызове события OnPaint при вызове функции GrayString будет выведен наклонный текст, если не принять дополнительные меры. Как мы уже сказали, проблема легко решается присваиванием нуля свойству Canvas.Font.Orientation, но, т.к. наши примеры должны работать во всех версиях Delphi, начиная с пятой, этот вариант нам не подходит. Поэтому мы здесь вновь вручную создаем шрифт, на этот раз не важно, какой именно, главное, чтобы его параметры nOrientation и nEscapement были равны нулю. В Delphi до 7-й версии программа GDIDraw будет корректно работать и без второго вызова функции CreateFont.

Отметим, что во всех версиях до Delphi 2007 как минимум, класс TFont имеет свойство Orientation, но не имеет свойства Escapement. Это означает, что если вы хотите вывести надпись, у которой угол наклона букв и угол наклона базовой линии будут разными, вам все-таки придется самостоятельно вызывать функцию CreateFont.

1.2.8. Пример BitmapSpeed

Программа BitmapSpeed предназначена для сравнения скорости работы с растровыми изображениями в формате DDB и DIB через класс TBitmap. Тестируются три операции: рисование прямых линий, вывод растра на экран и работа со свойством ScanLine. Окно программы показано на рис 1.12.

Рис. 1.12. Окно программы BitmapSpeed после завершения теста

Одна отдельно взятая операция выполняется настолько быстро, что измерить время ее выполнения можно только с большой погрешностью. Чтобы уменьшить погрешность, нужно повторить операцию много раз и измерить общее время. Все три теста выполняются методом DoTest, показанном в листинге 1.40.

Листинг 1.40. Метод DoTest, выполняющий тесты скорости

procedure TForm1.DoTest(Cnt, XOfs, ColNum: Integer; PixelFormat: TPixelFormat);
{ Cnt - число повторов операции при тестах
 XOfs - X-координата области, в которой будет выполняться вывод изображения во втором тесте
 ColNum - номер колонки в GridResults, в которую будут выводиться результаты
 Pixel Format - формат изображения }
var
 Pict: TBitmap;
 I: Integer;
 P: Pointer;
 Freq, StartTime, EndTime: Int64;
begin
// Узнаем частоту условного счетчика тактов
 QueryPerformanceFrequency(Freq);
 // Создаем изображение
 Pict := TBitmap.Create;
 try
 Pict.PixelFormat := PixelFormat;
 Pict.Width := PictSize;
 Pict.Height := PictSize;
 Pict.Canvas.Pen.Width := 0;
 // Вывод линий на картинку
 // Выводится Cnt линий со случайными координатами
 QueryPerformanceCounter(StartTime);
 for I := 1 to Cnt do
 begin
 Pict.Canvas.Pen.Color :=
 RGB(Random(256), Random(256), Random(256));
 Pict.Canvas.MoveTo(Random(PictSize), Random(PictSize));
 Pict.Canvas.LineTo(Random(PictSize), Random(PictSize));
 end;
 QueryPerformanceCounter(EndTime);
 GridResults.Cells[ColNum, 1] :=
 FloatToStrF((EndTime - StartTime) / Freq * 1000, ffFixed, 10, 2);
 // Вызываем Application.ProcessMessages, чтобы GridResults
 // перерисовался в соответствии с новым значением ячейки
 Application.ProcessMessages;
 // Второй тест - вывод рисунка на экран
 QueryPerformanceCounter(StartTime);
 // Повторяем вывод рисунка на экран Cnt раз
 // Чтобы пользователь мог видеть, когда вывод
 // заканчивается, каждый раз добавляем к координатам
 // случайную величину
 for I := 1 to Cnt do
 Canvas.Draw(XOfs + Random(50), 10 + Random(50), Pict);
 QueryPerformanceCounter(EndTime);
 GridResults.Cells[ColNum, 2] :=
 FloatToStrF((EndTime - StartTime) / Freq + 1000, ffFixed, 10, 2);
 Application.ProcessMessages;
 // Третий тест - доступ к свойству ScanLine
 QueryPerformanceCounter(StartTime);
 // Обращаемся к случайной строке свойства ScanLine
 // Cnt раз
 for I := 1 to Cnt do
 P := Pict.ScanLine(Random(PictSize));
 QueryPerformanceCounter(EndTime);
 GridResults.Cells[ColNum, 3] :=
 FloatToStrF((EndTime - StartTime) / Freq * 1000, ffFixed, 10, 2);
 Application.ProcessMessages;
 finally
 Pict.Free;
 end;
end;

Для измерения скорости работы будем использовать счетчик производительности — это высокопроизводительный счетчик, поддерживаемый системой для измерения производительности. Текущее значение счетчика можно узнать с помощью функции QueryPerformanceCounter, число тактов счетчика в секунду — с помощью функции QueryPerformanceFrequency. Этот счетчик позволяет получить более точные результаты, чем традиционно применяющаяся для таких целей функция GetTickCount. Теоретически, счетчик производительности может не поддерживаться аппаратной частью (в этом случае функция QueryPerformanceFrequency вернет нулевую частоту), однако все современные компьютеры такой счетчик поддерживают, поэтому его можно применять без опасений.

В зависимости от параметра PixelFormat метод DoTest создает DDB- или DIB-изображение и тестирует скорость исполнения операций с ним. В первом тесте Cnt раз рисуется линия случайного цвета со случайными координатами — так проверяется скорость рисования на картинке. Разумеется, это весьма односторонний тест, т.к. при рисовании других примитивов будет, скорее всего, иное соотношение скоростей для DIB и DDB. Но общее представление о соотношении скоростей он все же дает.