Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Плещёв ВУМИП 2012-07-06.doc
Скачиваний:
66
Добавлен:
13.05.2015
Размер:
9.35 Mб
Скачать

2.2.3. Экран (Screen)

2.2.3.1. Свойства

ActiveControl/ ActiveForm ‑ объект/форма, имеющий фокус.

Можно менять свойства формы.

Пример.Screen.ActiveForm:=clGreen; //зеленый цвет фона формы

Cursor‑ текущая форма указателя мышки в приложении (п.2.1.7.9).

Пример.Screen.Cursor:=crHourglass; // указатель ‑ песочные часы.

FormCount‑ число форм на экране.

DeskTopWidth, DeskTopHeight‑ ширина и высота стола в пикселях.

DeskTopLeft,DeskTopTop‑ левая и верхняя координаты стола.

Fonts‑ массив имен шрифтов вывода текста на экран, без шрифтов прин­тера (Edit1.Font.Name:=Screen.Fonts[0]).

Width, Height‑ ширина и высота экрана в пикселях.

HintFont,IconFont,MenuFont‑ шрифт подсказки, подписи под значком в окне выбора файла и пунктов меню соответственно.

Monitors, MonitorCount‑ массив мониторов и их число.

PixelsPerInch‑ число пикселей на один дюйм экрана.

2.2.3.2. Методы

EnableAlign/DisableAlign‑ разрешение/запрет выравнивания форм по раз­ме­рам экрана.

Realign‑ переупорядочение формы в зависимости от свойстваAlign.

ResetFonts‑ обновление списка текущих шрифтов.

2.2.3.3. События

OnActiveControlChange‑ перемещение фокуса в текущей форме.

OnActiveFormChange‑ перемещение фокуса на новую форму.

2.2.4. Принтер (Printer)

Для работы с принтером следует подключить модуль Printers.

2.2.4.1. Свойства

Aborted‑ печать досрочно прекращена (True).

Capabilties‑ настройка режима печати.

Canvas‑ канва принтера для создания изображения на бумаге.

Copies‑ указывает число требуемых копий документа.

Fonts‑ массив имен шрифтов вывода текста на печать

Пример: Label1.Caption:=Printer.Fonts[0].

Orientation‑ указывает ориентацию листа бумаги:poPortrait(вертикаль­ная),poLandscap(горизонтальная).

PageWidth, PageHeight‑ ширина и высота листа в пикселях принтера.

PageNumber‑ номер выводимой страницы документа.

Printers‑ массив доступных принтеров.

PrinterIndex‑ номер принтера из массиваPrinters.

Handle‑ идентификатор принтера в системеWindows.

Printing‑ принтер занят печатью документа (True).

Title‑ содержит имя задания на печать.

2.2.4.2. Методы

Abort, Begin, End, NewPage‑ досрочно прекратить, начать, закончить пе­чать документа и перейти на следующий лист соответственно.

Refresh‑ обновление массива шрифтов и принтеров.

GetPrinter(Device,Driver,Port:PChar;Var DeviceMode:Thandle) ‑ получе­ние информации о текущем принтере.

SetPrinter(Device,Driver,Port:PChar; Var DeviceMode:Thandle) ‑ указанный принтер становится текущим.

2.2.5. Буфер обменаWindows(Clipboard)

Для работы с буфером обмена следует подключить модуль Clipbrd.

2.2.5.1. Свойства

AsText‑ содержимое буфера в виде строки (Clipboard:=’Иванов’).

FormatCount,Formats‑ число форматов данных буфера в массивеFormats.

2.2.5.2. Методы

Assign(S:Tpersistent), Clear‑ копировать объект в буфер и, наоборот, восстановить, очистить буфер соответственно.

Пример: Clipboard.Assign (Bitmap2); Bitmap2.Assign(Clipboard);

GetComponent(O,P:TComponent):TComponent‑ вставка из буфера в объект (O) с родителем (P, обычно форма или контейнер).

SetComponent(O:TComponent)‑ запись в буфер объекта (O).

Пример. Clipboard.SetComponent(Button2); //копирование Button2

Clipboard.GetComponent(Self,GroupBox1); //восстан. Button2 в GroupBox1

GetTextBuf(S,N:Integer):Integer ‑ вывести данные из буфера в S .

SetTextBuf(S)‑ вывести данныеSв буфер.

HasFormat(F:Word):Boolean‑ возвращаетTrue, если данные в буфере фор­матаF:cf_Text(текст),cf_Bitmap(точечное изображение),cf_MetaFilePict(графический метафайл),cf_Picture(объект типаPicture),cf_Component(другой стандартный объект).

Open/Close‑ открытие/закрытие буфера обмена при записи данных в несколько приемов в виде стека:Open/Closeувеличивает/уменьшает на единицу счетчик блокировок буфера и открывает/закрывает его, если счетчик равен нулю. После закрытия новая запись удаляет старые данные.