ANTICHAT — форум по информационной безопасности, OSINT и технологиям

image1.picture.loadfromfile('pr_button.bmp');

var picture:tbitmap;
     begin
     picture:=tbitmap.create('pr_button.bmp');
     image1.picture.assign(picture);end;

var
 img:tbitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
 img := tbitmap.Create;
 img.LoadFromFile('c:\1.bmp');
 image1.Canvas.CopyRect(rect(1,1,80,80), img.Canvas, rect(1,1,80,80));
// 1 , 1, 80, 80 - left, top, right, bottom
// первый параметр - регион куда вставлять будем
// второй - канвас откуда будем брать данные
// третий - регион откуда будут браться данные
// изменяя третий параметр как раз и можно
// брать разне области из картинки
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
// сдвигаем left и right на 80 пикселей
 image1.Canvas.CopyRect(rect(1,1,80,80), img.Canvas, rect(80,1,160,80));
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  image1.Canvas.CopyRect(rect(1,1,80,80), img.Canvas, rect(1,1,80,80));
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if Socket.ReceiveText ='Restart' then begin // åñëè ïîëó÷åíûé òåêñò = áóêâå R òî ïåðåçàãðóýàåì êîìï
  //   winexec(pchar('shutdown -r -f -t 02'), sw_hide);
     ShowMessage('1');
     serversocket1.Socket.Connections[0].SendText('Computer restarts at 2 seconds');
  end;
  if socket.ReceiveText = 'Shutdown' then begin    // âûêëþ÷åíèå êîìïà
        serversocket1.Socket.Connections[0].SendText('Computer will be shutdown at 2 seconds');
      //  winexec(pchar('shutdown -s -f -t 02), sw_hide);
        showmessage('2');
  end;

if (ACol == 4 && ARow == 3)
{
  StringGrid1->Canvas->Brush->Color = clLime;
  StringGrid1->Canvas->FillRect(Rect);
  StringGrid1->Canvas->Font->Color = clBlack;
  StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top,
    StringGrid1->Cells[ACol][ARow]);
}

const k = 10;
var
 n:integer;
 s:real;
begin
 s:=0;
for n:=1 to k do s:= s + sqrt(n)/sqrt(n*n*n*n + 1);
writeln('S = ', s);
end.