Блок управления для системы кодового контроля с возможностью внутреннего соединения абонентов, страница 25

Edit1.Text:=IntToStr(Address1)

end

else

begin

Shape10.Brush.Color:=clWhite;

Address1:=Address1 -512;

Edit1.Text:=IntToStr(Address1);

end;

end:

procedure TForml.Shape11MouseDown(Sender: TObject; Button:

TMouseButton; Shift: TShiftState; X, Y: Integer);   {address  11}

begin

IF Shape11.Brush.Color:=clWhitc then

begin

Shape11.Brush.Color:=clLime;

Address1 :=Address1 +1024;

Edit1.Text:=IntToStr(Address1);

Edit2.Text:=IntToStr(Korpus);

end 

else

begin

Shape11.Brush.Color:=clWhite;

Address1:=Address1 -1024;

Edit1.Text:=IntToStr(Address1);

Edit1.Text:=IntToStr(Korpus);

end;

end;

procedure TForml.Shape12MouseDown(Sender: TObject; Button:

TMouseButton;  Shitt: TShiftState; X, Y: Integer);

begin

IF Shape12.Brush.Color:=clWhite then

begin

Shape12.Brush.Color:=clRed;

Address1:=Address1 +2048;

Edit1.Text:=IntToStr(Address1);

Korpus:=Korpus+1;

Edit2.Text:=IntToStr(Korpus);

end

else

begin

Shape12.Brush.Color:=clWhite;

Address1 :=Address1 -2048;

Edit1.Text:=IntToStr(Address1);

Korpus:=Korpus-l;

Edit2.Text:=IntToStr(Korpus);

end;

end;

procedure TForml.ShapeI3MouseDown(Sender: TObject; Button:

TMouseButton;  Shift: TShiftState: X, Y: Integer);

begin

    IF Shape13.Brush.Color=clWhite then

begin

Shape13.Brush.Color:=clRed;

Address1:=Address1 +4096;

Edit1.Text:=IntToStr(Address1);

Korpus:=Korpus+2;

Edit2.Text:=IntToStr(Korpus);

end

else 

begin

Shape13.Brush.Color:=clWhite;

Address1 :=Address1 -4096:

Edit1.Text:=IntToSt(Address1);

Korpus:=Korpus-2;

Edit2.Text:=IntToStr(Korpus);

end;

end;

procedure Tform1.Shape14MouseDown(Sender: TObject; Button:

TMouseButton;  Shift: TShiftState; X, Y: Integer);

begin

IF Shape14.Brush.Color=cIWhite then

begin

Shape 14.Brush.Color:=clRed;

Address1 :=Address1 +8192;

Edit1.Text:=IntToStr(Address1 );

Korpus:=Korpus+4;

Edit2.Text:=IntToStr(Korpus);

end

else

begin

Shape 14.Brush.CoIor:=clWhite;

Address1 :=Address1 -8192;

Edit1.Text:=IntToStr(Addrcss1);

Korpus:=Korpus-4;

Edit2.Text:=lntToStr(Korpus);

end;

end;

procedure TForm1.Shape20MouscDown(Sender: TObject; Button:

TMouseButton;  Shift: TShmStale; X, Y: Integer);

begin

IF Shape20.Brush.Color:=clWhite then

begin

Shape20.Brush.Color:=cIRed;

Datal:=Data1+8;

EditЗ.Text:=IntToStr(Data1);

end

else

begin

Shape20.Brush.Color:=clWhite;

Data1:=Datal-8;

Edit3.Text:=IntToStr(Data1):

end;

end;

procedure TForm1. Shape 17MouseDown(Sender: TObject; Button:

TMouseButton;  Shift: TShiftState; X, Y: Integer);

begin

IF Shape 17.Brush.Color=clWhite then

begin

Shape 17.Brush.Color:=clRed;

Data1:=Data1+1;

Edit3.Text:=IntToStr(Data1)

end

else

begin

Shapel7.Brush.Color:=clWhite;

Dalal:=Data1-1;

EditЗ.Text:=IntToStr(Data1);

end;

end;

procedure TForml.Shapel8MouseDown(Sender: TObject; Button:

TMouseButton;  Shift: TShiftState; X. Y: integer);

begin

IF Shape18.Brush.Color=clWhite then

begin

Shape 18.Brush.Color:=clRed;

Data1:=Data1+2;

Edit3.Text:=IntToStr(Data1);

end

else

begin

Shape18.Brush.Color:=clWhite;

Datal:=Data1-2;

Edit3.Text:=lntToStr(Data1);

end;

end;

procedure TFonnl.Shape19MouseDown(Sender: TObject; Button:

TMouseButton; Shift: TShiftState; X. Y: Integer);

begin

IF Shape19.Brush.Color=clWhite then

begin

Shapel9.Brush.Color:=clRed;

Data1:=Data1+4;

Edil3.Text:=IntToStr(Data1);

end

else

begin

Shape19.Brush.Color:=clWhite;

Data1:=Data1-4;

Edit3.Text:=IntToStr(Data1);

end;

end;

procedureTForm1.Shape21MouseDown(Sender: TObject; Button:

TMouseButton;  Shift: TShiftState; X, Y: Integer);

begin

IF Shape21.Brush.Color:=clWhite then

begin

Shape21.Brush.Color:=clRed;

Data1:=Data1+16;

Edit3.Text:=IntToStr(Data1);

end 

else

begin

Shape21.Brush.Color:=clWhite;

Datal:=Datal-16;

Edit3.Text:=lntToStr(Data1);

end;

end;

procedure TForml.Shape22MouseDown(Sender: TObject; Button:

TMouseButton;  Shift: TShiftState; X, Y: Integer);

begin

IF Shape22.Brush.CoIor=clWhite then

begin

Shape22.Brush.CoIor:=clRed;

Datal:=Datal+32;

EditЗ.Text:=IntToStr(Data1);

end

else

begin

Shape22.Brush.Color:=clWhite;

Datal:=Datal-32;

Edit1.Text:=IntToStr(Data1);

end;

end;

procedure Tform1.Shape23MouseDown(Sender: TObject; Button:

TMouseButton;  Shift: TShiftState; X, Y: Integer);