setlinestyle.cpp

来自「利用vc开发gis系统有用的可以下一下哈欢迎大家使用」· C++ 代码 · 共 64 行

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

#include <vcl.h>
#pragma hdrstop

#include "SetLineStyle.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TLineStyleDlg *LineStyleDlg;
//---------------------------------------------------------------------------
__fastcall TLineStyleDlg::TLineStyleDlg(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::SetPenStyle(TObject *Sender)
{
  if (Sender == SolidPen){
     Image->Canvas->Pen->Style = psSolid;
  }
  else if (Sender == DashPen){
          Image->Canvas->Pen->Style = psDash;
  }
  else if (Sender == DotPen){
       Image->Canvas->Pen->Style = psDot;
  }
  else if (Sender == DashDotPen){
       Image->Canvas->Pen->Style = psDashDot;
  }
  else if (Sender == DashDotDotPen){
       Image->Canvas->Pen->Style = psDashDotDot;
  }
  else if (Sender == ClearPen){
       Image->Canvas->Pen->Style = psClear;
  }
  Image->Canvas->MoveTo(20,Image->Height/2);
  Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::PenColorClick(TObject *Sender)
{
  ColorDialog1->Color = Image->Canvas->Pen->Color;
  if (ColorDialog1->Execute())  {
    Image->Canvas->Pen->Color = ColorDialog1->Color;
    Image->Canvas->MoveTo(20,Image->Height/2);
    Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
  }
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::PenSizeChange(TObject *Sender)
{
  Image->Canvas->Pen->Width = PenWidth->Position;
  Image->Canvas->MoveTo(20,Image->Height/2);
  Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::FormShow(TObject *Sender)
{
  Image->Canvas->MoveTo(20,Image->Height/2);
  Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
}
//---------------------------------------------------------------------------