Excel. Трюки и эффекты
Шрифт:
• в верней области постоянная альфа = 50 %, но нет никакой исходной альфы;
• в средней области постоянная альфа = 100 % и исходная альфа = 0 %;
• в нижней области постоянная альфа = 75 % и исходная альфа переменная.
Добавим в описание нашей формы процедуру со следующим форматом заголовка:
procedure DrawAlphaBlend(hWnd: HWND; hdcwnd: HDC);
В самой процедуре объявим ряд переменных, которые нам понадобятся в процессе работы. Объявление приведено в листинге 6.9.
Листинг 6.9.
Объявление переменных
var
hCurDC: HDC; //описатель контекста устройства,
//который мы создадим
bf: BLENDFUNCTION; //запись альфа-смешивания
hbmp: HBITMAP; //дескриптор точечного рисунка
bmi: BITMAPINFO; //заголовок точечного рисунка
pvBits: Pointer; //pointer to DIB section
ulWindowWidth, ulWindowHeight: ULONG; //ширина/высота
//клиентской области
ulBitmapWidth, ulBitmapHeight: ULONG; //ширина/высота
//точечного
rt: TRect; //используется для получения размера
//клиентской области
x,y: Integer; //циклические переменные
ubAlpha: UCHAR; //используется для создания
//прозрачного градиента
ubRed: UCHAR;
ubGreen: UCHAR;
ubBlue: UCHAR;
fAlphaFactor: Real;
r, g, b: UCHAR;
В самом начале процедуры осуществляем подготовку необходимых данных для альфа-смешивания. Данные содержат информацию о требуемых размерах, а также необходимые данные точечного рисунка. Рассмотрите листинг 6.10 с необходимыми комментариями.
Листинг 6.10.
Подготовка необходимых данных
//получаем размеры клиентской области
Windows.GetClientRect(hWnd, rt);
//рассчитываем ширину и высоту клиентской области
ulWindowWidth := rt.right – rt.left;
ulWindowHeight := rt.bottom – rt.top;
if (ulWindowWidth = 0) or (ulWindowHeight = 0) then
Exit;
//делим окно на три горизонтальные области
ulWindowHeight := ulWindowHeight div 3;
//создаем контекст устройства для нашего точечного рисунка
hCurDC := CreateCompatibleDC(hdcwnd);
ZeroMemory(@bmi, sizeof(BITMAPINFO));
//Устанавливаем параметры точечного рисунка.
//Указываем ширину и высоту точечного рисунка для каждой
//из трех горизонтальных областей
//равными 60 % ширины и высоты главного окна.
//Смешивание в центре каждой из этих трех областей
with bmi.bmiHeader do
begin
biSize := sizeof(BITMAPINFOHEADER);
biWidth := ulWindowWidth – (ulWindowWidth div 5) * 2;
ulBitmapWidth := biWidth;
biHeight := ulWindowHeight – (ulWindowHeight div 5) * 2;
ulBitmapHeight := biHeight;
biPlanes := 1;
biBitCount := 32; //четыре восьмибитных составляющих
biCompression := BI_RGB;
biSizeImage := ulBitmapWidth * ulBitmapHeight * 4;
end;
//создаем DIB секцию и выбираем точечный рисунок в контексте
устройства
hbmp := CreateDIBSection(hCurDC, bmi, DIB_RGB_COLORS, pvBits,
0, 0);
SelectObject(hCurDC, hbmp);
Далее осуществляем описанное ранее альфа-смешивание для каждой из областей. Для первой области в точечном рисунке мы устанавливаем синий цвет точки. Задаем необходимые параметры альфа-смешивания и выполняем его (листинг 6.11).
Листинг 6.11.
Альфа-смешивание верхней области
//в верхней области постоянная альфа = 50 %,
//но исходная альфа отсутствует
//цветовой формат для каждого пиксела 0xaarrggbb
//установим пикселы в синий цвет и альфу в ноль
for y := 0 to ulBitmapHeight – 1 do
for x := 0 to ulBitmapWidth – 1 do
PULONG(Integer(pvBits) +
(x + y * ulBitmapWidth) * sizeof(ULONG))^ := $000000ff;
bf.BlendOp := AC_SRC_OVER;
bf.BlendFlags := 0;
bf.AlphaFormat := 0; //игнорировать исходный альфа-канал
bf.SourceConstantAlpha := $7f; //половина $ff = 50 %
//прозрачности
if not Windows.AlphaBlend(hdcwnd, ulWindowWidth div 5,
ulWindowHeight div 5,
ulBitmapWidth, ulBitmapHeight,
hCurDC, 0, 0, ulBitmapWidth,
ulBitmapHeight, bf) then
begin
DeleteObject(hbmp);
DeleteDC(hCurDC);
Exit;
end;
По аналогии выполняем необходимые действия со средней областью. В центре точечного рисунка прозрачность отсутствует, поэтому там будет только указанный цвет. Установим в центре красный цвет, а остальную часть сделаем синей. Далее опять задаем необходимые параметры альфа-смешивания и выполняем его (листинг 6.12).
Листинг 6.12.
Альфа-смешивание средней области
//в средней области постоянная альфа = 100 %, а исходная равна 0
for y := 0 to ulBitmapHeight – 1 do
for x := 0 to ulBitmapWidth – 1 do
if (x > Integer(ulBitmapWidth div 5)) and
(x < (ulBitmapWidth – ulBitmapWidth div 5)) and
(y > Integer(ulBitmapHeight div 5)) and
(y < (ulBitmapHeight – ulBitmapHeight div 5)) then
//в середине точечного рисунка альфа равна нулю,
//это означает, что каждый цветной компонент умножается на 0.
//Таким образом, после альфа-смешивания мы получим 0 * r,
//0x00 * g, 0x00 * b ($00000000)
//установим сейчас цвет пикселов в красный
PULONG(Integer(pvBits) +
(x + y * ulBitmapWidth) * eof(ULONG))^ := $00ff0000
else
//остальную часть точечного рисунка сделаем синей
PULONG(Integer(pvBits) +
(x + y * ulBitmapWidth) * sizeof(ULONG))^ := $000000ff;
bf.BlendOp := AC_SRC_OVER;
bf.BlendFlags := 0;
bf.AlphaFormat := AC_SRC_ALPHA; //используем исходную альфа
bf.SourceConstantAlpha := $ff; //непрозрачный
if not Windows.AlphaBlend(hdcwnd, ulWindowWidth div 5,
ulWindowHeight div 5 + ulWindowHeight, ulBitmapWidth,
ulBitmapHeight,
hCurDC, 0, 0, ulBitmapWidth, ulBitmapHeight, bf) then
begin
DeleteObject(hbmp);
DeleteDC(hCurDC);
Exit;
end;
В последней части происходит градиентное альфа-смешивание. Соответствующий код приведен в листинге 6.13.
Листинг 6.13.
Альфа-смешивание
нижней области//нижняя область. Используем альфа = 75 % и переменную исходную альфу
//создаем градиентный эффект, используя исходную альфа
ubRed := $00;
ubGreen := $00;
ubBlue := $ff;
for y := 0 to ulBitmapHeight – 1 do
for x := 0 to ulBitmapWidth – 1 do
begin
ubAlpha := Trunc(x / ulBitmapWidth * 255) and $FF;
fAlphaFactor := ubAlpha / $ff;
r := (Round(ubRed * fAlphaFactor) * (1 shl 16)) and $FF;
g := (Round(ubGreen * fAlphaFactor) * (1 shl 8)) and $FF;
b := Round(ubBlue * fAlphaFactor) and $FF;
PULONG(Integer(pvBits) +
(x + y * ulBitmapWidth) * sizeof(ULONG))^ :=
(ubAlpha shl 24) or //0xaa000000
r or //0x00rr0000
g or //0x0000gg00
b; //0x000000bb
end;
bf.BlendOp := AC_SRC_OVER;
bf.BlendFlags := 0;
bf.AlphaFormat := AC_SRC_ALPHA;
bf.SourceConstantAlpha := $bf;
Windows.AlphaBlend(hdcwnd, ulWindowWidth div 5,
ulWindowHeight div 5 + 2 * ulWindowHeight,
ulBitmapWidth, ulBitmapHeight, hCurDC, 0, 0,
ulBitmapWidth, ulBitmapHeight, bf);
DeleteObject(hbmp);
DeleteDC(hCurDC);
Обработчик события OnPaint нашей формы использует написанную функцию каждый раз, когда требуется ее обновить. Для этого он получает контекст устройства нашей формы, производит заливку фона темно-синим цветом, а после вызывает функцию альфа-смешивания трех областей. Соответствующий исходный код приведен в листинге 6.14.
Листинг 6.14.
Обработчик события OnPaint
procedure TfmAlphaBlending.FormPaint(Sender: TObject);
var
hCurDC: HDC;
hCurBrush, hOldBrush: HBRUSH;
begin
hCurDC := GetDC(Handle);
hCurBrush := CreateSolidBrush(RGB(0, 0, 64));
FillRect(hCurDC, Rect(0, 0, Width, Height), hCurBrush);
DrawAlphaBlend(Handle, hCurDC);
DeleteObject(hCurBrush);
ReleaseDC(Handle, hCurDC);
end;
Теперь осталось только взглянуть на результат нашей работы, запустив приложение (рис. 6.4).
Рис. 6.4. Результат работы приложения «Alpha-смешивание точечного рисунка»
На этом закончим рассмотрение работы с графикой в Delphi.
Глава 7 Системная информация и реестр Windows
• Системная информация
• Системное время
• Реестр
Возникала ли у вас необходимость программно определить текущее состояние компьютера или узнать какие-нибудь сведения об операционной системе? Можно только удивляться, как близко – практически «под носом» у программиста – находятся средства для получения системной информации и как сложно о них узнать. Речь идет о средствах, которые всегда доступны при программировании для Windows – функции Windows API.
В данной главе мы рассмотрим некоторые способы, при помощи которых можно «добыть» информацию, касающуюся операционной системы. Это может пригодиться, например, если вы используете в своих приложениях возможности, отличающиеся в различных платформах Windows. Но и не только в этих случаях.
Рассмотренные в данной главе функции Windows API являются самыми обычными во всех смыслах этого слова. Просто они часто упоминаются вскользь либо вообще не упоминаются в книгах для программирования в таких средах, как Borland Delphi.
В примерах представленной вашему вниманию главы, кроме получения информации о самой Windows, некотором оборудовании компьютера, также рассмотрена работа с системным реестром Windows – этакой базой данных, в которой хранится много всего полезного и не очень: от параметров ОС и настроек приложений до сведений о работе компьютера в реальном времени. Правда, по определенным причинам последние сведения хранятся не в реальных, а в виртуальных ключах реестра. Но обо всем по порядку.7.1. Системная информация
Начнем с несложных примеров, позволяющих получить информацию об операционной системе, установленном на компьютере оборудовании и такие сведения реального времени, как загрузка памяти компьютера, состояние питания и т. д.
Версия операционной системы
Получение сведений об операционной системе хотя и не является повседневной необходимостью, но все же в некоторых специфичных случаях может пригодиться. Например, когда ваша программа ведет себя по-разному при разных установленных обновлениях Windows. Либо когда вы самостоятельно пишете инсталлятор, который способен устанавливать версии программы, скомпилированные для Windows Me (95, 98) или Windows NT (2000, ХР).
Одним из способов узнать версию Windows является использование API-функции GetVersionEx. Она принимает в качестве параметра структуру OSVERSIONINFO (или OSVERSIONINFOEX, но об этом позже), заполняет поля этой структуры и в случае удачи возвращает ненулевое значение.
Объявление ANSI-версии структуры OSVERSIONINFO в библиотеке Delphi 7 выглядит следующим образом:
OSVERSIONINFOA = record
dwOSVersionInfoSize: DWORD; //Размер структуры
dwMajorVersion: DWORD; //Старшая часть версии ОС Windows
dwMinorVersion: DWORD; //Младшая часть версии
dwBuildNumber: DWORD; //Номер сборки операционной системы
dwPlatformId: DWORD; //Идентификатор платформы Windows
szCSDVersion: array[0..127] of AnsiChar; //Дополнительные
//сведения, например, установленный пакет обновлений
end;
Не будем вдаваться в подробное описание возможных значений полей этой структуры: практически все будет ясно из приведенного далее примера. Напомним лишь, чтобы вы не забывали заполнять поле dwOSVersionInf oSize перед вызовом функции GetVersionEx.
Итак, пример обработки данных, помещаемых в структуру OSVERSIONINFO, приведен в листинге 7.1. При загрузке формы элемент управления ListView с именем lvwVerlnf о заполняется сведениями о версии системы, представленными в читабельной форме.