Квадраты

[SashaKrugliak]

Есть квадрат на форма... Я его определённую область и мне нужно проверить входит ли этот квадрат в обведённую область... прошу помочь.. буду благодарен

[nick42]

По моему здесь начало паники и ничего больше... Выделенная область имеет координаты (left right top bottom - Xa Xz Ya Yz); если хотя бы одна вершина квадрата попадает в эту область (условие x>Xa x<Xz y>Ya y<Yz), то квадрат частично или полностью в зоне. Чтоб не путаться с длинными операндами, лучше ввести булеву переменную и по "или" определить ее значение поочередно для всех четырех вершин.

[nick42]

вот и пример с квадратом__ [SPOILER]//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
     TPoint p;
     bool push;

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Form1->DoubleBuffered = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if(Button!=mbLeft) return;
  p.x = X;  p.y = Y;
  push=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if(Button!=mbLeft) return;
  Form1->Repaint();
  push=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  TPoint p1, p2, k1,k2,k3,k4;
  bool intro;
  p1.x=p2.x=X; p1.y=p2.y=Y;    
  k1.x=k3.x=Shape1->Left; k2.x=k4.x=Shape1->Left+Shape1->Width ;
  k1.y=k2.y=Shape1->Top;  k3.y=k4.y=Shape1->Top+Shape1->Height ;
  if (p.x < X) p1.x=p.x; else p2.x=p.x;
  if (p.y < Y) p1.y=p.y; else p2.y=p.y;
  if (push) {
   Form1->Repaint();
   Form1->Canvas->DrawFocusRect(Rect(p1.x,p1.y,p2.x,p2.y));
   intro  = k1.x > p1.x && k1.x < p2.x && k1.y > p1.y &&  k1.y < p2.y ;
   intro |= k3.x > p1.x && k3.x < p2.x && k3.y > p1.y &&  k3.y < p2.y ;
   intro |= k2.x > p1.x && k2.x < p2.x && k2.y > p1.y &&  k2.y < p2.y ;
   intro |= k4.x > p1.x && k4.x < p2.x && k4.y > p1.y &&  k4.y < p2.y ;
  }
   if (intro) Caption="Form1  Yes";
   else       Caption="Form1  No";
}

//---------------------------------------------------------------------------[/SPOILER]