Компоненты страницы System

TTimer – таймер, служит для отсчета интервалов реального времени. Данный компонет не видим и имеет следующие свойства:

Interval – определяет интервал времени в миллисекундах, который должен пройти с момента включения таймера;

Enabled – при установке значения истина таймер включен;

Пример: Программа имитирует работу электронных часов.

procedure TForm4.Timer1Timer(Sender: TObject);

var DateTime: TDateTime;

begin

DateTime:= Time; // возвращает текущее время

label1.Caption:= TimeToStr(DateTime);

end;

TPaintBox – окно для рисования произвольных изображений. Рисование осуществляется в обработке события OnPaint.

Графические инструменты содержатся в свойствах:

Font – шрифт;

Pen – перо;

Brush – кисть;

Пример: использования данного компонента (рисует верхнюю половинку эллипса)

procedure TForm4.PaintBox1Paint(Sender: TObject);

var x, y: integer;

begin

with PaintBox1.Canvas do

begin

brush.Color:= clRed;

Ellipse (0,0, width, height);

font.Name:= 'Arial';

font.Size:= height div 5;

font.Style:= [fsBold, fsItalic];

font.Color:=clWhite;

x:= (width - TextWidth ('Delphi'))div 2;

y:= (height - TextHeight ('D'))div 2;

TextOut (x,y,'Delphi');

end;

end;

Кроме пера, кисти и шрифта существует еще графический объект Regions (область). Область образуется с помощью комбинации простейших геометрических фигур – прямоугольников, эллипсов. С их помощью можно создать непрямоугольные кнопки, цветные области окна.

Пример: создание эллиптического окна программы.

procedure TForm4.PaintBox1Paint(Sender: TObject);

var Rgn: Cardinal;

begin

Application.CreateForm(TForm4.Form4); // создать обычное окно

with Form4.Canvas do

begin

Rgn:= create EllepticRgn (0,0,Width,Height); // в нем эллипс

SetWindowRgn (Handle,Rgn,true); // показать вместо окна

end;

Application.Run;

end;

Функции для работы с объектами:

CombireRgn – объединяет две области в одну;

Create EllepticRgn – создает эллиптическую область;

Create PolygonRgn 0 создает область в виде многоугольника;

Create RoundRectRgn – создает область со скругленными углами;

FillRgn – закрашивает область кистью;

FrameRgn – обводит (но не заполняет) область кистью.

TMediaPlayer – медиаплеер, представляет собой набор кнопок, предназначенных для управления различными мультимедийными устройствами. Тип мультимедийного файла, который будет воспроизводится задается в свойстве DeviceType и имя файла в свойстве – FileName.

Если проигрыватель должен воспроизводить видеоинформацию, то ему необходимо указать область формы, в которой будет демонстрироваться видео, используя компонент TPanel.

Пример: как можно программно извлечь диск из дисковода, например по щелчку на форме.

procedure TForm1.FormClick(Sender: TObject);

begin

MediaPlayer1.DeviceType:=dtCDAudio;

MediaPlayer1.Open;

MediaPlayer1.Eject;

MediaPlayer1.Close;

end;

Компоненты страницы Dialogs

На данной панели расположен ряд невизуальных компонентов, позволяющих использовать в программе стандартные диалоговые окна Windows, например окна выбора и сохранения файлов или изображений, окна выбора цвета и шрифта, окно настройки принтера и другие.

Работа со стандартными диалоговыми окнами осуществляется в три этапа:

- на форму помещается соответствующий компонент и осуществляется настройка его свойств;

- вызов метода Execute, который создает и показывает на экране диалоговое окно;

- использование введенных с помощью диалогового окна данных – имя файла, выбранный шрифт.

Пример: программа для просмотра содержимого текстового файла.

procedure TForm1.Button1Click(Sender: TObject);

var s: string;

f: TextFile;

begin

OpenDialog1.Filter:='Текстовые файлы (*.txt)'+'Файлы Pascal (*.pas)';

if OpenDialog1.Execute and FileExists (OpenDialog1.FileName) then

begin

AssignFile (f,OpenDialog1.FileName);

Reset(f); // открываем

Memo1.Lines.Clear; // очистка текстового поля

while not Eof(f) do // наполняем его

begin

readln (f,s);

Memo1.Lines.Add(s);

end;

closefile (f);

end;

end;

TOpenDialog – открытие файла.

TSaveFile – сохранение файла.

Свойства:

FileName – путь к файлу;

InitialDir – устанавливает начальный каталог;

OpenDialog1.InitialDir:= ‘C:\programfile\borland’;

DefaultExt – формирует полное имя файла, если при ручном вводе пользователь не указал расшифровку;

TOpenPicteruDialog – открытие изображения.

TSavePicteruDialog – сохранение изображения.

Отличается от двух предыдущих в том, что:

- в них предусмотрены стандартные фильтры для выбора графических файлов;

- в диалоговые окна включены панели для предварительного просмотра выбранного файла.

TFontDialog – окно выбора шрифта.

Свойства:

Device – устройство, для которого выбирается шрифт:

fdScreen – экран;

fdPrinter – принтер;

fdBoth – шрифты поддерживаемые экраном и принтером.

TColorDialog – окно выбора цвета.

TPrintDialog – окно настроек параметров печати.

TPrinterSetupDialog – окно настроек параметров принтера.

TFindDialog – окно поиска.

Свойства:

Options – настройки диалогового окна:

frDown – поиск вперед по тексту;

frDisableUpDown – запрещает выбор направления поиска;

FindText – определяет образец поиска.

Пример: при нажатии на кнопку «найти далее» возникнет событие OnFind. Обработчик события должен найти образец в тексте и показать его.

procedure TForm1.FindDialog1Find(Sender: TObject);

var SelPos: integer;

begin

with TFindDialog (Sender) do

begin

SelPos:= Pos (FindText,Memo1.Lines.Text);

if SelPos>0 then

begin

Memo1.SelStart:= SelPos-1; // выделяем найденный текст

Memo1.SelLength:= Length (FindText);

end

else

ShowMessage ('Текст' +FindText+ 'не найден');

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

FindDialog1.Execute;

end;

TReplaceDialog – окно поиска и замены.

ReplaceText – содержит текст замены.

Событие OnReplace возникает при нажатии на кнопку «Заменить».