Получение сведений о режимах экрана. Эффекты прозрачности

Очевидно, что, прежде чем программировать графические задачи, необходимо знать текущее разрешение экрана, цветовую глубину и другие параметры. Для этого в каждом приложении на Delphi существует системная переменная-объект Screen типа TScreen. Объявлять ее не надо, это делается автоматически.

Рассмотрим основные свойства объекта TScreen:

Width – ширина экрана в пикселах;

Height – высота экрана в пикселах;

DesktopWidth – ширина виртуального рабочего стола в пикселах;

DesktopHeight – высота виртуального рабочего стола в пикселах;

PixelsPerInch – разрешение экрана, точек на дюйм.

Чем отличаются размеры экрана от размеров виртуального рабочего стола? Если на компьютере установлен один монитор, то ничем. Если же видеокарта поддерживает несколько устройств (например, монитор и телевизор, подключаемый к выходу TV-out), то Windows создает так называемый виртуальный рабочий стол, часть которого может отображаться на одном мониторе, а часть – на другом. Размеры такого виртуального стола в пикселах могут в два раза превышать размеры экрана.

Следующий фрагмент программы при нажатии на кнопку Button1 выводит в объект Label1 информацию о текущем состоянии экрана:

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:=IntToStr(Screen.Width)+'x'+

IntToStr(Screen.Height)+', '+

IntToStr(Screen.PixelsPerInch)+'dpi'

end;

Объект "форма" (типа TForm) тоже имеет ряд свойств, относящихся к графике. Наиболее интересны из них те, что обеспечивают эффекты прозрачности всей формы или отдельных ее элементов. Следует иметь в виду, что эти эффекты работают только в операционных системах Windows2000/XP. При этом используется так называемый альфа-канал – дополнительный "невидимый" цветовой канал в дополнение к базовым красному, зеленому и синему каналам.

Свойство AlphaBlend (Boolean) включает/выключает режим прозрачности всей формы, а свойство AlphaBlendValue (BYTE) задает уровень прозрачности. При AlphaBlendValue=255 форма полностью непрозрачна и отображается, как обычно, а при AlphaBlendValue=0 форма вообще невидима.

Напишем следующий обработчик события создания формы OnActivate:

procedure TForm1.FormActivate(Sender: TObject);

var i:byte;

begin

AlphaBlend:=True;

for i:=0 to 127 do

begin

AlphaBlendValue:=i*2;

Repaint

end

end;

Предварительно установим у формы значение AlphaBlendValue=0. После запуска программы будет наблюдаться интересный эффект постепенного "проявления" формы. Аналогично можно сделать постепенное "выцветание" формы при завершении работы программы.

Чтобы сделать прозрачным отдельный элемент на форме, следует использовать свойства TransparentColor (Boolean) и TransparentColorValue (TColor). Если TransparentColor=True, то все элементы на форме, имеющие цвет, равный заданному в свойстве TransparentColorValue, будут прозрачными.

Создадим форму с круглым прозрачным окном посередине. Поместим на форму компонент Shape с палитры компонентов Additional и установим его свойство Shape в значение stCircle. Разместим полученную окружность в центре формы и поменяем ее цвет (свойство Brush.Color) на clSkyBlue. В свойствах формы зададим TransparentColor=True и TransparentColorValue=clSkyBlue. Запустим приложение и получим очень интересный эффект (Рис.16.1).

Рис. 16.1. Форма с прозрачной областью.

Дата добавления: 2014-01-06