Interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Menus;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Button1 : TButton;

Button2 : TButton;

Button3 : TButton;

PopupMenu1 : TPopupMenu;

N11 : TMenuItem;

N21 : TMenuItem;

N1 : TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N11Click(Sender : TObject);

procedure N21Click(Sender : TObject);

procedure N1Click( Sender : TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var i:Integer;

begin

for i:= 0 to 3 do

begin

StringGrid2.Cells[i,0]:= StringGrid1.Cells[i,3];

StringGrid2.Cells[i,3]:= StringGrid1.Cells[i,0];

StringGrid2.Cells[i,1]:= StringGrid1.Cells[i,1];

StringGrid2.Cells[i,2]:= StringGrid1.Cells[i,2];

end

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

StringGrid2.Rows[0]:= StringGrid1.Rows[3];

StringGrid2.Rows[1]:= StringGrid1.Rows[1];

StringGrid2.Rows[2]:= StringGrid1.Rows[2];

StringGrid2.Rows[3]:= StringGrid1.Rows[0];

end;

procedure TForm1.Button3Click(Sender: TObject);

var i, j: Integer;

begin

for i := 0 to 3 do

for j := 0 to 3 do

StringGrid2.Cells[j, i] := ‘ ‘

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Button1Click(Button1);

end;

procedure TForm1.N21Click(Sender: TObject);

begin

Button2Click(Button2);

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Button3Click(Button3);

end;

end.

7. Диалоговые окна.

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

Решение

1. Создадим новую папку: D:\MyProject\DIALOG.

2. Откроем новый проект с помощью команды главного меню File| New | Application.

3. Разместим на Form1 следующие компоненты: компоненты OpenDialog1, SaveDialog1 и FontDialog1 выберем из страницы Dialogs, a Memo1, Button1, Button2, и ButtonЗ - из страницы Standard Палитры Компонентов.

4. Выберем свойство Lines компонента Memo1 и щелкнем по появившейся кнопке с тремя точками. В появившемся окне удалим текст ‘Memo1’. Нажмем ОК. Мы добились того, что при запуске программы окно редактора будет пустым.

5. Выберем свойство Filter компонента OpenDialog1 и щелкнем по появившейся кнопке с тремя точками. Появится диалоговое окно Filter Editor, с помощью ко­торого можно задать тексты фильтров и сами фильтры.

В первой строке в окне Filter Name введем:

Текстовые файлы (*.txt,*.doc)

а в окне Filter:

*.txt; *.doc

Во второй строке в окне Filter Name введем:

Все файлы (*. *)

а в окне Filter:

* .*

Нажмем кнопку ОК.

6. Для компонента SaveDialog1 значение свойства DefaultExt установим равным txt. Т.е., если при сохранении файла расширение не будет указано, то по умолчанию до­бавится расширение txt.

7. Кнопкам Button1, Button2, и Button3 установим свойство Caption равным ‘Открыть’, ‘Сохранить’ и ‘Шрифт’ соответственно.

8. В обработчик события OnClick для кнопки Button1 вставим следующие операторы:

with OpenDialog1 do

begin

if not Execute then Exit;

Memo1.Lines.LoadFromFile(FileName)

end;

9. В обработчик события OnClick для кнопки Button2 вставим следующие операторы:

with SaveDialog1 do

begin

if not Execute then Exit;

Memo1.Lines.SaveToFile(FileName)

end;

10. В обработчик события OnClick для кнопки Button3 вставим

with FontDialog1 do

begin

if not Execute then Exit;

Memo1.Font := Font

end;

11. Сохраните проект и запустите его на выполнение. Наберите произвольный текст в окне редактора. Сохраните его в папке D:\MyProject\DIALOG.

Очистите с помощью локального меню окно редактора. Для появления локаль­ного меню следует щелкнуть правой клавишей мыши, когда ее указатель нахо­дится в пределах окна редактора. Откройте ранее созданный файл. Измените его шрифт.

Приведем полный код сформированного модуля. Unit1.pas:

unit Unit1;