Додаток А1. Лістинг довідкової програми компонентів Delphi

Додаток А Довідкова програма компонентів Delphi

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

RadioButton9: TRadioButton;

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

RadioButton10: TRadioButton;

RadioButton11: TRadioButton;

Image1: TImage;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure RadioButton7Click(Sender: TObject);

procedure RadioButton8Click(Sender: TObject);

procedure RadioButton9Click(Sender: TObject);

procedure RadioButton10Click(Sender: TObject);

procedure RadioButton11Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('ДОВІДКА.');

Memo1.Lines.Add('В даній довідковій програмі представлені компоненти вкладки Стандарт.');

Memo1.Lines.Add('Для отримання інформації про компоненти достатньо обрати його на панелі зліва.');

Image1.Visible: = false;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Text: = '';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Text: = '';

Image1.Visible: = false;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Компонент призначений для показу тексту на формі програми які не буде змінюватися протягом роботи програм.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\1.bmp');

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Компонент призначений для додавання до програми головного меню, елемента, без якого не обходиться жодна з програм для windows.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\2.bmp');

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Компонент це стандартна кнопка Делфі, кнопка має на поверхні напис(описує її призначення при натисканні).');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\3.bmp');

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Це Спливаюче контексне меню, яке виникає при натисканні користувача правою кнопкою миші.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\4.bmp');

end;

procedure TForm1.RadioButton5Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Компонент є вікном редагування багаторядкового тексту який можна завантажувати з файлу або зберігати введену інформацію в файл текстового формату.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\5.bmp');

end;

procedure TForm1.RadioButton6Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Це радіо кнопка, як випливає з назви, являє собою елемент управління відображається у вигляді кружка з текстом розмішається на формі як правила два і більше перемикачів.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\6.bmp');

end;

procedure TForm1.RadioButton7Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Компонент служить для відображення списків рядків.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\7.bmp');

end;

procedure TForm1.RadioButton8Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Компонент являє собою комбінацію поля редагування (Edit)і список (ListBox), що дає можливість ввести дані шляхом набору на клавіатурі або вибору зі списку.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\8.bmp');

end;

procedure TForm1.RadioButton9Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Це панель, яка може містити регулярно розташовані стовпцями і рядками радіокнопки.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\9.bmp');

end;

procedure TForm1.RadioButton10Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Компонент являє собою панель, на поверхні якої модна помістити інші компоненти.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\10.bmp');

end;

procedure TForm1.RadioButton11Click(Sender: TObject);

begin

Memo1.Text: = '';

Memo1.Lines.Add('Призначення: ');

Memo1.Lines.Add('Компонент призначений для введення даних користувача і являє собою однорядкове поле.');

Image1.Visible: = true;

Image1.Picture.LoadFromFile('D: \_college\practice\11.bmp');

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.