|
|
|
| |
Определяет текущий экран Windows.
Доступ к объекту
Объект доступен через системную переменную Screen:
scrObj=Screen;
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| Cursors[]
| Enum
| индексированный список доступных курсоров (см. ниже)
|
| HintFont
| TFont
| шрифт подсказок
|
| IconFont
| TFont
| шрифт подписей под иконками рабочего стола
|
| MenuFont
| TFont
| шрифт меню
|
| MessageFont
| TFont
| шрифт системных сообщений
|
| Только чтение
| [TYPE]
| [DESC]
|
| CursorCount
| Number
| количество доступных курсоров
|
| DesktopRect
| TRect
| прямоугольник рабочего стола
|
| DesktopHeight
| Number
| высота рабочего стола, px
|
| DesktopLeft
| Number
| левая граница рабочего стола
|
| DesktopTop
| Number
| верхняя граница рабочего стола
|
| DesktopWidth
| Number
| ширина рабочего стола, px
|
| Fonts
| TStrings
| список доступных экранных шрифтов
|
| FormCount
| Number
| количество имеющихся экранных форм
|
| Forms[]
| Enum
| индексированный список имеющихся экранных форм
|
| Height
| Number
| высота экрана, px
|
| MonitorCount
| Number
| количество мониторов
|
| PixelsPerInch
| Number
| разрешение экрана, пикселей на дюйм (ppi)
|
| Width
| Number
| ширина экрана, px
|
| WorkAreaRect
| TRect
| прямоугольник рабочей области экрана
|
| WorkAreaHeight
| Number
| высота рабочей области экрана, px
|
| WorkAreaLeft
| Number
| левая граница рабочей области экрана
|
| WorkAreaTop
| Number
| верхняя граница рабочей области экрана
|
| WorkAreaWidth
| Number
| ширина рабочей области экрана, px
|
|
| Собственные методы
|
| Метод
| Описание
|
| DisableAlign
| запрещает выравнивание форм на экране
|
| EnableAlign
| разрешает выравнивание форм на экране
|
| Realign
| выравнивает формы на экране в зависимости от значения их свойства Align
|
| ResetFonts
| обновляет список экранных шрифтов
|
|
Стандартные методы
// Главная форма
frm=new TForm();
frm.Caption="JS+ - системный компонент TScreen";
frm.Width =600;
frm.Height=450;
// Строка состояния
stb=new TStatusBar(frm);
// Заголовок списка шрифтов
lbl=new TLabel(frm);
lbl.Left=lbl.Top=10;
lbl.Caption="Список доступных экранных шрифтов:";
lbl.Font.Style=fsBold;
// Список шрифтов
lsb=new TListBox(frm);
lsb.BorderStyle=bsSingle;
lsb.Left=lbl.Left;
lsb.Top =lbl.Top+lbl.Height+10;
lsb.Width =frm.ClientWidth/2-5;
lsb.Height=stb.Top-lsb.Top-10;
lsb.Items.Assign(Screen.Fonts);
lsb.ItemIndex=0;
lsb.OnClick=lsb_Click;
// Пример текста
lbl=new TLabel(frm);
lbl.Caption="JS+";
lbl.Font.Size*=5;
lsb_Click(lsb);
frm.ShowModal();
// Обработчик события OnClick
function lsb_Click(lsb)
{
var fnt_Name=lsb.Items[lsb.ItemIndex];
var x=lsb.Left+lsb.Width+10;
stb.SimpleText=" Выбран шрифт: "+(lbl.Font.Name=fnt_Name);
lbl.Left=x+(frm.ClientWidth-x-lbl.Width)/2;
lbl.Top =lsb.Top+(lsb.Height-lbl.Height)/2;
lsb.SetFocus();
}
|
// Главная форма
frm=new TForm();
frm.Caption="JS+ - системный компонент TScreen";
frm.Width =600;
frm.Height=450;
// Строка состояния
stb=new TStatusBar(frm);
// Заголовок списка форм
lbl=new TLabel(frm);
lbl.Left=lbl.Top=10;
lbl.Caption="Заголовки имеющихся экранных форм:";
lbl.Font.Style=fsBold;
// Список форм
lsb=new TListBox(frm);
lsb.BorderStyle=bsSingle;
lsb.Left=lbl.Left;
lsb.Top =lbl.Top+lbl.Height+10;
lsb.Width =frm.ClientWidth-lsb.Left*2;
lsb.Height=stb.Top-lsb.Top-10;
lsb.ItemIndex=0;
stb.SimpleText=" Обнаружено экранных форм: "+(n=Screen.FormCount);
for (i=0;i<n;i++)
lsb.AddItem(Screen.Forms[i].Caption);
frm.ShowModal();
|
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
