setbrushstyle.dfm

利用vc开发gis系统有用的可以下一下哈欢迎大家使用

object BrushStyleDlg: TBrushStyleDlg
  Left = 232
  Top = 149
  Width = 349
  Height = 185
  Caption = '设置面状符号'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image: TImage
    Left = 0
    Top = 41
    Width = 341
    Height = 76
    Align = alClient
  end
  object Panel1: TPanel
    Left = 0
    Top = 117
    Width = 341
    Height = 41
    Align = alBottom
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 40
      Top = 8
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 0
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 176
      Top = 8
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 1
      Kind = bkCancel
    end
  end
  object BrushBar: TPanel
    Left = 0
    Top = 0
    Width = 341
    Height = 41
    Align = alTop
    TabOrder = 1
    object SolidBrush: TSpeedButton
      Left = 8
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Down = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003000000000000000000300003000
        0000000000000003000030000000000000000003000030000000000000000003
        0000300000000000000000030000300000000000000000030000300000000000
        0000000300003000000000000000000300003000000000000000000300003000
        0000000000000003000030000000000000000003000030000000000000000003
        0000300000000000000000030000300000000000000000030000300000000000
        0000000300003000000000000000000300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object ClearBrush: TSpeedButton
      Left = 40
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033333333333333330300003033
        3333333333333303000030333333333333333303000030333333333333333303
        0000303333333333333333030000303333333333333333030000303333333333
        3333330300003033333333333333330300003033333333333333330300003033
        3333333333333303000030333333333333333303000030333333333333333303
        0000303333333333333333030000303333333333333333030000303333333333
        3333330300003033333333333333330300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object HorizontalBrush: TSpeedButton
      Left = 72
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033033033033033030300003033
        0330330330330303000030330330330330330303000030330330330330330303
        0000303303303303303303030000303303303303303303030000303303303303
        3033030300003033033033033033030300003033033033033033030300003033
        0330330330330303000030330330330330330303000030330330330330330303
        0000303303303303303303030000303303303303303303030000303303303303
        3033030300003033033033033033030300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object VerticalBrush: TSpeedButton
      Left = 104
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033333333333333330300003000
        0000000000000003000030333333333333333303000030333333333333333303
        0000300000000000000000030000303333333333333333030000303333333333
        3333330300003000000000000000000300003033333333333333330300003033
        3333333333333303000030000000000000000003000030333333333333333303
        0000303333333333333333030000300000000000000000030000303333333333
        3333330300003033333333333333330300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object FDiagonalBrush: TSpeedButton
      Left = 136
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033303330333033300300003033
        0333033303330303000030303330333033303303000030033303330333033303
        0000303330333033303330030000303303330333033303030000303033303330
        3330330300003003330333033303330300003033303330333033300300003033
        0333033303330303000030303330333033303303000030033303330333033303
        0000303330333033303330030000303303330333033303030000303033303330
        3330330300003003330333033303330300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object BDiagonalBrush: TSpeedButton
      Left = 168
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003003330333033303330300003030
        3330333033303303000030330333033303330303000030333033303330333003
        0000300333033303330333030000303033303330333033030000303303330333
        0333030300003033303330333033300300003003330333033303330300003030
        3330333033303303000030330333033303330303000030333033303330333003
        0000300333033303330333030000303033303330333033030000303303330333
        0333030300003033303330333033300300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object CrossBrush: TSpeedButton
      Left = 200
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033033033033033030300003000
        0000000000000003000030330330330330330303000030330330330330330303
        0000300000000000000000030000303303303303303303030000303303303303
        3033030300003000000000000000000300003033033033033033030300003033
        0330330330330303000030000000000000000003000030330330330330330303
        0000303303303303303303030000300000000000000000030000303303303303
        3033030300003033033033033033030300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object DiagCrossBrush: TSpeedButton
      Left = 232
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033303330333033300300003003
        0303030303030303000030303330333033303303000030030303030303030303
        0000303330333033303330030000300303030303030303030000303033303330
        3330330300003003030303030303030300003033303330333033300300003003
        0303030303030303000030303330333033303303000030030303030303030303
        0000303330333033303330030000300303030303030303030000303033303330
        3330330300003003030303030303030300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object BrushColor: TSpeedButton
      Left = 279
      Top = 8
      Width = 25
      Height = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBFFAAAFFCCCFFFF0000}
      OnClick = BrushColorClick
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 273
    Top = 124
  end
end