basic_graph.cpp

基于c++build的填充裁剪的源代码

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Basic_graph.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString  filename;
long width , height;    // BMP图尺寸
int X0=100, Y0=100;
int Ymax=450, Xmax=600;


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
     Label2->Caption = "";
     Label4->Caption = "";
     Label6->Caption = "";
     Image1->Picture->LoadFromFile("windclr.bmp");

}
//---------------------------------------------------------------------------







//---------------------------------------------------------------------------
// 选择BMP文件，在对话框上显示
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   OpenDialog1->DefaultExt = "BMP";
   OpenDialog1->FileName = "*.bmp";

  if (OpenDialog1->Execute())
  {
     filename = OpenDialog1->FileName;
     Image1->Picture->LoadFromFile(filename);
     Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
     pBitmap->LoadFromFile(filename);
     width = pBitmap->Width;
     height = pBitmap->Height;
     Label2->Caption = filename;
     Label4->Caption = IntToStr(width);
     Label6->Caption = IntToStr(height);
     delete pBitmap;
  }

}
//---------------------------------------------------------------------------
// 缩放图形
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (!filename.IsEmpty())
  {
  if (Image1->Stretch==true)
    {
    Image1->Stretch=false;
    Image1->Picture->LoadFromFile(filename);
    }
  else
    {
    Image1->Stretch=true;
    Image1->Picture->LoadFromFile(filename);
    }
  }
}
//---------------------------------------------------------------------------
 //多边形填充
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  Form4->Show();

}


//--------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
     Label2->Caption = "";
     Label4->Caption = "";
     Label6->Caption = "";
     Image1->Picture->LoadFromFile("windclr.bmp");
}
//---------------------------------------------------------------------------
   //矩形填充
/*void __fastcall TForm1::Button5Click(TObject *Sender)
{
  //Image1->Canvas->Pen->Color = clRed;
  Image1->Canvas->Pen->Color = clWhite;

   int x1=200;
   int y1=200;
   int x,y;
    y=x1;
   Image1->Canvas->MoveTo(x1,y);
   for(x=x1;x<400;x++)
   Image1->Canvas->Pixels[x][y] = clWhite;



}*/
//---------------------------------------------------------------------------
   //矩形填充
void __fastcall TForm1::Button5Click(TObject *Sender)
{
     Form2->Show();
}
 //----------------------------------------------------------------
 //裁剪线段
void __fastcall TForm1::Button6Click(TObject *Sender)
{
  Form3->Show();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
 //Image1->Canvas->Pen->Color = clRed;
  Image1->Canvas->Pen->Color = clWhite;
    int x1=200,y1=200,x2=300,y2=300;
    Image1->Canvas->Rectangle(x1,y1,x2,y2);

}
//---------------------------------------------------------------------------