Image prostokat

[Frytek18]

Kod: Zaznacz cały


void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
               prost_s.x = X;
                prost_s.y = Y;
                FPierwszyPro = true;
                FRysuj_pro = true;

Kod: Zaznacz cały

void __fastcall TForm1::ImageMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
   // kwadrat
    if (narzedzie == 8) {
    Image->Canvas->Pen->Mode = pmNotCopy;
    prost_k.x = X;
    prost_k.y = Y;
    FRysuj_pro = false;
    }


Kod: Zaznacz cały

void __fastcall TForm1::ImageMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
     case 8:
                     if (FRysuj_pro == true)
    {
           Image->Canvas->Pen->Mode = pmNotXor;
                         //to klucz do wymazywania
      if (FPierwszyPro == false) Prostokat()   ;
                         //wymazuje poprzedni prostokąt
       prost_k.x = X;
       prost_k.y = Y;
       FPierwszyPro = false;
       Prostokat(); //rysuje nowy prostokąt
        }


        break;



Kod: Zaznacz cały

void TForm1::Prostokat(void)       //Do kwaratu procedura
{
Image->Canvas->Pen->Width = suwak->Position;
Image->Canvas->Brush->Style = bsClear;
Image->Canvas->Pen->Style = bsDiagCross;
Image->Canvas->Rectangle(prost_s.x, prost_s.y, prost_k.x, prost_k.y);
}


Panowie jak zrobic aby rysowany kwadrat drugi nie robił sie w negatywie jak najadę na inny kwadrat?

[Cyfrowy Baron]

Przetestuj podany niżej kod i powiedz, czy o to Tobie chodzi, bo zadajesz pytania tak, że nie wiem o co pytasz.

Plik nagłówkowy np. Unit1.h

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:        // User declarations
        bool FDrawing;
        bool FFirstRect;

        TPoint F1, F2;

        void __fastcall DrawRect();
        void __fastcall DrawRectangle();

Plik źródłowy np. Unit1.cpp

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::DrawRect()
{
 Image->Canvas->Rectangle(F1.x, F1.y, F2.x, F2.y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DrawRectangle()
{
 DrawRect();

 Image->Canvas->Pen->Mode = pmCopy;

 Image->Canvas->Pen->Width = 5;
 Image->Canvas->Pen->Color - clBlack;
 Image->Canvas->Brush->Style = bsClear;
 //Image->Canvas->Pen->Style = bsDiagCross;
 Image->Canvas->Rectangle(F1.x, F1.y, F2.x, F2.y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{

        F1.x = X;
    F1.y = Y;
        FFirstRect = true;
        FDrawing = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
                  int X, int Y)
{
        F2.x = X;
        F2.y = Y;
        FDrawing = false;

        DrawRectangle();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ImageMouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
        if (FDrawing == true)
        {
           Image->Canvas->Pen->Mode = pmNotXor;
                         //to klucz do wymazywania
          if (FFirstRect == false) DrawRect();
                         //wymazuje poprzedni prostokąt
       F2.x = X;
       F2.y = Y;
           FFirstRect = false;
           DrawRect(); //rysuje nowy prostokąt

        }
}

Nie mogę jednak zmienić koloru pisaka, nie wiem dlaczego.