⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 setbrushstyle.~cpp

📁 利用vc开发gis系统有用的可以下一下哈欢迎大家使用
💻 ~CPP
字号:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SetBrushStyle.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TBrushStyleDlg *BrushStyleDlg;
//---------------------------------------------------------------------------
__fastcall TBrushStyleDlg::TBrushStyleDlg(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TBrushStyleDlg::SetBrushStyle(TObject *Sender)
{
   if (Sender == SolidBrush)
  {
     Image->Canvas->Brush->Style = bsSolid;
  }
  else if (Sender == ClearBrush)
  {
       Image->Canvas->Brush->Style = bsClear;
  }
  else if (Sender == HorizontalBrush)
  {
       Image->Canvas->Brush->Style = bsHorizontal;
  }
  else if (Sender == VerticalBrush)
  {
       Image->Canvas->Brush->Style = bsVertical;
  }
  else if (Sender == FDiagonalBrush)
  {
       Image->Canvas->Brush->Style = bsFDiagonal;
  }
  else if (Sender == BDiagonalBrush)
  {
       Image->Canvas->Brush->Style = bsBDiagonal;
  }
  else if (Sender == CrossBrush)
  {
       Image->Canvas->Brush->Style = bsCross;
  }
  else if (Sender == DiagCrossBrush)
  {
       Image->Canvas->Brush->Style = bsDiagCross;
  }
  TRect rect;
  rect.Left = 10;
  rect.Top = 10;
  rect.Right = Image->Width - 10;
  rect.Bottom = Image->Height- 10;
  Image->Canvas->FillRect(rect);
  Image->Canvas->Rectangle(rect);
}
//---------------------------------------------------------------------------
void __fastcall TBrushStyleDlg::BrushColorClick(TObject *Sender)
{
  ColorDialog1->Color = Image->Canvas->Brush->Color;
  if (ColorDialog1->Execute())
  {
    Image->Canvas->Brush->Color = ColorDialog1->Color;
    TRect rect;
    rect.Left = 10;
    rect.Top = 10;
    rect.Right = Image->Width - 10;
    rect.Bottom = Image->Height- 10;
    Image->Canvas->FillRect(rect);
    Image->Canvas->Rectangle(rect);
  }
}
//---------------------------------------------------------------------------

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -