BCB XE3 Image 自封闭曲线绘制.doc

BCB XE3 Image 自封闭曲线绘制 //--------------------------------------------------------------------------- #include vcl.h #pragma hdrstop #include ImportPicture.h //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource *.dfm TForm1 *Form1; bool Draw =false; //定义并初始化标志变量,布尔型变量Draw，是否允许绘制直线 int x_First,y_First,x_Old,y_Old,x_New,y_New; //画线第一点坐标，画线起点坐标，画线终点坐标 //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { /*Panel1-Top =0; Panel1-Left =0; Image1 -Top =Panel1 -Top; Image1 -Left =Panel1 -Left; //使Panel1的宽高与Image1的相等 Image1 -Width =Panel1 -Width; Image1 -Height =Panel1 -Height; //禁止Image1根据图形实际大小调整自身宽高 Image1 -AutoSize=False; //使Image1自动适应Panel1的大小 Image1 -Align =alClient; //使图形自动随Image1的大小拉伸或紧缩 Image1-Stretch=True; */ //Image1-Hint=点击左键画线; //显示的提示内容 //Image1-ShowHint=true; } //--------------------------------------------------------------------------- //导入图片 void __fastcall TForm1::N2Click(TObject *Sender) { if(OpenPictureDialog1-Execute()) { Image1-Stretch =true; Image1-Picture-LoadFromFile(OpenPictureDialog1-FileName); } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint MousePos, bool Handled) { //控件的宽高属性是以“像素”为单位的整型值，故通过舍入取整 Panel1-Width=Panel1-Width*1.1; Panel1-Height=Panel1-Height*1.1; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint MousePos, bool Handled) { //控件的宽高属性是以“像素”为单位的整型值，故通过舍入取整 Panel1-Width=Panel1-Width*0.9; Panel1-Height=Panel1-Height*0.9; } //----------------------------------------------