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

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

Використовуючи усі компоненти середовища Delphi створити довідкову програму для певної групи компонент кожної закладки компонент. В довідці повинно бути вказано до якої саме закладки належить дана компонента.

Додаток А.1 Лістинг довідкової програми компонентів 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;

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('В даній довідковій програмі представлені компоненти вкладки Samples.');

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

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Text := '';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Text := '';

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Memo1.Text := '';

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

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

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Memo1.Text := '';

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

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

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

Memo1.Text := '';

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

Memo1.Lines.Add('Є частиною SpinEdit, проте може використовуватись окремо, як компонент зміни значень, частіше числових, призначених для вибору ітерації тощо.');

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

Memo1.Text := '';

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

Memo1.Lines.Add('Пара кнопок з двома протилежно спрямованими стрілками, призначена для збільшення/зменшення значень натисканням.');

end;

procedure TForm1.RadioButton5Click(Sender: TObject);

begin

Memo1.Text := '';

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

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

end;

procedure TForm1.RadioButton6Click(Sender: TObject);

begin

Memo1.Text := '';

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

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

end;

procedure TForm1.RadioButton7Click(Sender: TObject);

begin

Memo1.Text := '';

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

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

end;

procedure TForm1.RadioButton8Click(Sender: TObject);

begin

Memo1.Text := '';

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

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

end;

procedure TForm1.RadioButton9Click(Sender: TObject);

begin

Memo1.Text := '';

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

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

end;

procedure TForm1.RadioButton10Click(Sender: TObject);

begin

Memo1.Text := '';

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

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

end;

procedure TForm1.RadioButton11Click(Sender: TObject);

begin

Memo1.Text := '';

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

Memo1.Lines.Add('Компонент призначений для візуальної роботи з каталогами Windows. Сповіщає про зміни в каталогах.');

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Close;

end;

end.