Практическая работа №6.Создание приложения «Фоторобот»
Цель работы: Создать программу Фоторобот, используя компоненты GroupBox, RadioGroup, Panel, Image.
Краткие теоретические сведения: SaveDialog используется для сохранения проекта. Чтобы разместить на компоненте RadioGroup разместить кнопки 0 и 1, нужно в свойсвах компонента Items .
Формулировка задания: В среде Delphi создать собственный интерфейс для фоторобота, используя компоненты MainMenu(Главное меню программы), GroupBox, RadioGroup(организует несколько групп переключателей), RadioButton(зависимая кнопка, состояние которой определяется состоянием других кнопок группы), Button(командная кнопка), Panel, Image(вывод на поверхность формы иллюстраций), SaveDialog, OpenDialog(выбор файла с целью последующего открытия), ColorDialog(окно выбора цвета).
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, ComCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
RadioGroup4: TRadioGroup;
RadioGroup5: TRadioGroup;
RadioGroup6: TRadioGroup;
RadioGroup7: TRadioGroup;
RadioGroup8: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
Image17: TImage;
Button1: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
Panel1: TPanel;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
ColorDialog1: TColorDialog;
StatusBar1: TStatusBar;
N5: TMenuItem;
N9: TMenuItem;
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup3Click(Sender: TObject);
procedure RadioGroup4Click(Sender: TObject);
procedure RadioGroup5Click(Sender: TObject);
procedure RadioGroup6Click(Sender: TObject);
procedure RadioGroup7Click(Sender: TObject);
procedure RadioGroup8Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Image10MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image10MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image7MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image8MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image8MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image9MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image9MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image11MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image12MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image12MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image13MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image13MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image14MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image14MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image15MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image15MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image16MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image16MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image17MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image17MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure N5Click(Sender: TObject);
procedure N9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Dow:boolean;
ox,oy,X1,Y1:integer;
implementation
{$R *.dfm}
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:
begin
Image8.Visible:=false;
Image9.Visible :=true;
end;
1:
begin
Image8.Visible:=true;
Image9.Visible:=false;
end;
end;
end;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
case RadioGroup2.ItemIndex of
0:
begin
Image7.Visible:=false;
Image6.Visible:=true;
end;
1:
begin
Image7.Visible:=true;
Image6.Visible:=false;
end;
end;
end;
procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
case RadioGroup3.ItemIndex of
0:
begin
Image5.Visible:=false;
Image4.Visible:=true;
end;
1:
begin
Image5.Visible:=true;
Image4.Visible:= false;
end;
end;
end;
procedure TForm1.RadioGroup4Click(Sender: TObject);
begin
case RadioGroup4.ItemIndex of
0:
begin
Image3.Visible:=true;
Image2.Visible:=false;
end;
1: begin
Image3.Visible:=false;
Image2.Visible:=true;
end;
end;
end;
procedure TForm1.RadioGroup5Click(Sender: TObject);
begin
case RadioGroup5.ItemIndex of
0:
begin
Image16.Visible:=false;
Image17.Visible:=true;
end;
1: begin
Image16.Visible:=true;
Image17.Visible:=false;
end;
end;
end;
procedure TForm1.RadioGroup6Click(Sender: TObject);
begin
case RadioGroup6.ItemIndex of
0:
begin
Image14.Visible:= False ;
Image15.Visible:=True ;
end;
1: begin
Image14.Visible:= True;
Image15.Visible:=False;
end;
end;
end;
procedure TForm1.RadioGroup7Click(Sender: TObject);
begin
case RadioGroup7.ItemIndex of
0: begin
Image12.Visible:=False;
Image13.Visible:=True;
end;
1: begin
Image12.Visible:=True;
Image13.Visible:=False;
end;
end;
end;
procedure TForm1.RadioGroup8Click(Sender: TObject);
begin
case RadioGroup8.ItemIndex of
0:
begin
Image10.Visible:=False;
Image11.Visible:=True;
end;
1:
begin
Image10.Visible:=true;
Image11.Visible:=false;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (RadioButton1.Checked=true) then
begin
GroupBox1.Visible:=false;
Button1.Visible:=true;
RadioGroup5.Visible:=true;
RadioGroup6.Visible:=true;
RadioGroup7.Visible:=true;
RadioGroup8.Visible:=true;
end;
If (RadioButton2.Checked=true) then Panel1.Visible:=False;
N6.Enabled:=true;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Panel1.Visible:=true;
Image2.Visible:=true;
Image3.Visible:=true;
Image4.Visible:=true;
Image5.Visible:=true;
Image6.Visible:=true;
Image7.Visible:=true;
Image8.Visible:=true;
Image9.Visible:=true;
Image10.Visible:=true;
Image11.Visible:=true;
Image12.Visible:=true;
Image13.Visible:=true;
Image14.Visible:=true;
Image15.Visible:=true;
Image16.Visible:=true;
Image17.Visible:=true;
RadioGroup5.Visible:=true;
RadioGroup6.Visible:=true;
RadioGroup7.Visible:=true;
RadioGroup8.Visible:=true;
GroupBox1.Visible:=true;
Button1.Visible:=true;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if (Panel1.Visible=true) then
begin
Image10.Visible:=false;
Image11.Visible:=false;
Image12.Visible:=false;
Image13.Visible:=false;
Image14.Visible:=false;
Image15.Visible:=false;
Image16.Visible:=false;
Image17.Visible:=false;
end;
if (Panel1.Visible=false) then
begin
Image2.Visible:=false;
Image3.Visible:=false;
Image4.Visible:=false;
Image5.Visible:=false;
Image6.Visible:=false;
Image7.Visible:=false;
Image8.Visible:=false;
Image9.Visible:=false;
end;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
RadioGroup1.Visible:=false;
RadioGroup2.Visible:=false;
RadioGroup3.Visible:=false;
RadioGroup4.Visible:=false;
RadioGroup5.Visible:=false;
RadioGroup6.Visible:=false;
RadioGroup7.Visible:=false;
RadioGroup8.Visible:=false;
Form1.GetFormImage.SaveToFile(ChangeFileExt(SaveDialog1.FileName,'.jpg'));
if (Panel1.Visible=true) then
begin
RadioGroup5.Visible:=true;
RadioGroup6.Visible:=true;
RadioGroup7.Visible:=true;
RadioGroup8.Visible:=true;
end;
RadioGroup1.Visible:=true;
RadioGroup2.Visible:=true;
RadioGroup3.Visible:=true;
RadioGroup4.Visible:=true;
end;
end;
procedure TForm1.Image10MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
image10.Top:=image10.Top-(oy-y);
image10.Left:=image10.Left-(ox-x);
X1:=Image10.Left+X;
Y1:=Image10.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
procedure TForm1.Image10MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image2.Top:=image2.Top-(oy-y);
image2.Left:=image2.Left-(ox-x);
X1:=Image2.Left+X;
Y1:=Image2.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image3.Top:=image3.Top-(oy-y);
image3.Left:=image3.Left-(ox-x);
X1:=Image3.Left+X;
Y1:=Image3.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image4.Top:=image4.Top-(oy-y);
image4.Left:=image4.Left-(ox-x);
X1:=Image4.Left+X;
Y1:=Image4.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image5.Top:=image5.Top-(oy-y);
image5.Left:=image5.Left-(ox-x);
X1:=Image5.Left+X;
Y1:=Image5.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image5MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image4MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image6.Top:=image6.Top-(oy-y);
image6.Left:=image6.Left-(ox-x);
X1:=Image6.Left+X;
Y1:=Image6.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image6MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image7.Top:=image7.Top-(oy-y);
image7.Left:=image7.Left-(ox-x);
X1:=Image7.Left+X;
Y1:=Image7.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image7MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image8.Top:=image8.Top-(oy-y);
image8.Left:=image8.Left-(ox-x);
X1:=Image8.Left+X;
Y1:=Image8.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image8MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image8MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image9MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image9MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image9.Top:=image9.Top-(oy-y);
image9.Left:=image9.Left-(ox-x);
X1:=Image9.Left+X;
Y1:=Image9.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image11.Top:=image11.Top-(oy-y);
image11.Left:=image11.Left-(ox-x);
X1:=Image11.Left+X;
Y1:=Image11.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image11MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image12.Top:=image12.Top-(oy-y);
image12.Left:=image12.Left-(ox-x);
X1:=Image12.Left+X;
Y1:=Image12.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image12MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image12MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image13.Top:=image13.Top-(oy-y);
image13.Left:=image13.Left-(ox-x);
X1:=Image13.Left+X;
Y1:=Image13.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image13MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image13MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image14.Top:=image14.Top-(oy-y);
image14.Left:=image14.Left-(ox-x);
X1:=Image14.Left+X;
Y1:=Image14.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image14MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image14MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image15.Top:=image15.Top-(oy-y);
image15.Left:=image15.Left-(ox-x);
X1:=Image15.Left+X;
Y1:=Image15.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image15MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image15MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image16.Top:=image16.Top-(oy-y);
image16.Left:=image16.Left-(ox-x);
X1:=Image16.Left+X;
Y1:=Image16.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image16MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image16MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.Image17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image17.Top:=image17.Top-(oy-y);
image17.Left:=image17.Left-(ox-x);
X1:=Image17.Left+X;
Y1:=Image17.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image17MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image17MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.N7Click(Sender: TObject);
var F:textfile;
begin
if SaveDialog1.Execute then
begin
assignfile (F,ChangeFileExt(SaveDialog1.FileName,'.txt'));
rewrite(F);
if Panel1.Visible=true then
begin
writeln(F,'1');
//если данный Image видимый, то в файл записывается 1, иначе 0
if Image10.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image11.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image12.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image13.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image14.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image15.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image16.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image17.Visible=true then writeln(F,'1') else writeln(F,'0');
end;
if Panel1.Visible=false then
begin
writeln(F,'0');
if Image2.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image3.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image4.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image5.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image6.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image7.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image8.Visible=true then writeln(F,'1') else writeln(F,'0');
if Image9.Visible=true then writeln(F,'1') else writeln(F,'0');
end;
closefile(F);
end;
end;
procedure TForm1.N8Click(Sender: TObject);
var
F:textfile;
s:string;
i:integer;
begin
if OpenDialog1.Execute then
begin
assignfile(F,ChangeFileExt(OpenDialog1.FileName,'.txt'));
reset(F);
readln(F,s);
//если флаг имеет значение 1, то панель видима, если 0 - нет
if s='1' then Panel1.Visible:=true else Panel1.Visible:=false;
for i:=2 to 9 do
begin
//если последующие числа 1, то соответствующий компонет ТImage видимый, если 0 - нет
case i of
2: begin
readln(f,s);
if s='1' then begin Image2.Visible:=true; Image10.Visible:=true; end;
if s='0' then begin Image2.Visible:=false; Image10.Visible:=false; end;
end;
3: begin
readln(f,s);
if s='1' then begin Image3.Visible:=true; Image11.Visible:=true; end;
if s='0' then begin Image3.Visible:=false; Image11.Visible:=false; end;
end;
4:begin
readln(f,s);
if s='1' then begin Image4.Visible:=true; Image12.Visible:=true; end;
if s='0' then begin Image4.Visible:=false; Image12.Visible:=false; end;
end;
5: begin
readln(f,s);
if s='1' then begin Image5.Visible:=true; Image13.Visible:=true; end;
if s='0' then begin Image5.Visible:=false; Image13.Visible:=false; end;
end;
6: begin
readln(f,s);
if s='1' then begin Image6.Visible:=true; Image14.Visible:=true; end;
if s='0' then begin Image6.Visible:=false; Image14.Visible:=false; end;
end;
7: begin
readln(f,s);
if s='1' then begin Image7.Visible:=true; Image15.Visible:=true; end;
if s='0' then begin Image7.Visible:=false; Image15.Visible:=false; end;
end;
8: begin
readln(f,s);
if s='1' then begin Image8.Visible:=true; Image16.Visible:=true; end;
if s='0' then begin Image8.Visible:=false; Image16.Visible:=false; end;
end;
9: begin
readln(f,s);
if s='1' then begin Image9.Visible:=true; Image17.Visible:=true; end;
if s='0' then begin Image9.Visible:=false; Image17.Visible:=false; end;
end;
end;
end;
end;
GroupBox1.Visible:=false;
Button1.Visible:=false;
RadioGroup5.Visible:=true;
RadioGroup6.Visible:=true;
RadioGroup7.Visible:=true;
RadioGroup8.Visible:=true;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.SimpleText:='X='+ inttostr(X) + ', Y='+INTTOSTR(Y);
end;
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.SimpleText:='X='+ inttostr(X) + ', Y='+INTTOSTR(Y);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if dow=true then
begin
image1.Top:=image1.Top-(oy-y);
image1.Left:=image1.Left-(ox-x);
X1:=Image1.Left+X;
Y1:=Image1.Top+Y;
StatusBar1.SimpleText:='X='+ inttostr(X1) + ', Y='+INTTOSTR(Y1);
end;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
DoubleBuffered := true;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=false;
DoubleBuffered := false;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
if ColorDialog1.Execute then begin
if Panel1.Visible=true then Panel1.Color:=ColorDialog1.Color
else Form1.Color:=ColorDialog1.Color;
end;
end;
end.