setlinestyle.~cpp

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

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

#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::SolidPenClick(TObject *Sender)
{
  Image->Canvas->Pen->Style = psSolid;
  Image->Canvas->MoveTo(20,Image->Height/2);
  Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::DashPenClick(TObject *Sender)
{
  Image->Canvas->Pen->Style = psDash;
  Image->Canvas->MoveTo(20,Image->Height/2);
  Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::DotPenClick(TObject *Sender)
{
  Image->Canvas->Pen->Style = psDot;
  Image->Canvas->MoveTo(20,Image->Height/2);
  Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::DashDotPenClick(TObject *Sender)
{
  Image->Canvas->Pen->Style = psDashDot;
  Image->Canvas->MoveTo(20,Image->Height/2);
  Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::DashDotDotPenClick(TObject *Sender)
{
  Image->Canvas->Pen->Style = psDashDotDot;
  Image->Canvas->MoveTo(20,Image->Height/2);
  Image->Canvas->LineTo(Image->Width-20,Image->Height/2);
}
//---------------------------------------------------------------------------
void __fastcall TLineStyleDlg::ClearPenClick(TObject *Sender)
{
  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);
}
//---------------------------------------------------------------------------