setlinestyle.dfm

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

object LineStyleDlg: TLineStyleDlg
  Left = 535
  Top = 117
  Width = 339
  Height = 163
  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 = 331
    Height = 54
    Align = alClient
  end
  object PenBar: TPanel
    Left = 0
    Top = 0
    Width = 331
    Height = 41
    Align = alTop
    TabOrder = 0
    object SolidPen: TSpeedButton
      Left = 8
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Down = True
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333700333333333333333333333000300000000000000000003F003333
        33333333333333333000333333333333333333333000}
      OnClick = SetPenStyle
    end
    object DashPen: TSpeedButton
      Left = 33
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333700333333333333333333333000300000300000030000033F003333
        33333333333333333000333333333333333333333000}
      OnClick = SetPenStyle
    end
    object DotPen: TSpeedButton
      Left = 58
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333003333333333333333333333003030303030303030303033003333
        33333333333333333300333333333333333333333300}
      OnClick = SetPenStyle
    end
    object DashDotPen: TSpeedButton
      Left = 83
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333330003333333333333333333330003000003030000030300030003333
        33333333333333333F00333333333333333333333700}
      OnClick = SetPenStyle
    end
    object DashDotDotPen: TSpeedButton
      Left = 108
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333003333333333333333333333003000003030300000303033003333
        33333333333333333300333333333333333333333300}
      OnClick = SetPenStyle
    end
    object ClearPen: TSpeedButton
      Left = 133
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333003333333333333333333333003FFFFFFFFFFFFFFFFFFF33003333
        33333333333333333300333333333333333333333300}
      OnClick = SetPenStyle
    end
    object PenColor: TSpeedButton
      Left = 174
      Top = 8
      Width = 25
      Height = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBFFAAAFFCCCFFFF0000}
      OnClick = PenColorClick
    end
    object PenSize: TEdit
      Left = 280
      Top = 12
      Width = 29
      Height = 21
      TabOrder = 1
      Text = '1'
      OnChange = PenSizeChange
    end
    object PenWidth: TUpDown
      Left = 309
      Top = 12
      Width = 15
      Height = 21
      Associate = PenSize
      ArrowKeys = False
      Min = 0
      Position = 1
      TabOrder = 0
      Wrap = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 95
    Width = 331
    Height = 41
    Align = alBottom
    TabOrder = 1
    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 ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 280
    Top = 103
  end
end