Предыдущая страница реферата | 1  2  3  4  5  6  7  8



{ Public declarations } end;

var

Form1: TForm1;i:integer; b,b1,b2,b4:boolean;

Data: array[1..20] of record x1,y1:integer;end; matr,matr_edit:array[1..40,1..40] of integer; mas_x,mas_y : masiv; x2,y2:integer; implementation

{$R *.DFM}

//************************esli mouse najata***************************** procedure TForm1.Image1MouseDown(Sender: TObject; Button:

TMouseButton;

Shift: TShiftState; X, Y: Integer); begin canvas.MoveTo(x,y); x2:=x;y2:=y; if (ssleft in Shift) then b:=true else if (ssRight in Shift) then b:=false else end; procedure TForm1.Image1MouseUp(Sender: TObject; Button:

TMouseButton;

Shift: TShiftState; X, Y: Integer); var k,k1:integer; begin if b then begin

Canvas.Brush.Color := clRed; canvas.Ellipse(x-10,y-10,x+10,y+10); inc(i); canvas.TextOut(x-3,y-6,inttostr(i));

Data[i].x1:=x;Data[i].y1:=y; combobox1.items.Append(inttostr(i)); end else

//risovanie peteli if (x=x2) and (y=y2) then begin for k:=1 to i do if (sqr(X-data[k].x1)+sqr(Y-data[k].y1)

Скачали данный реферат: Эзрин, Ханцев, Akinfeev, Кудашев, Уваров, Марат.
Последние просмотренные рефераты на тему: выборочное изложение, тезис, процесс реферат, антикризисное управление предприятием.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8

Поделитесь этой записью или добавьте в закладки