janshapeeditor.dfm

更好用的 shape 控件 delphi 3.0, 4.0, 5.0, 6.0, 7.0 適用

      7777709907777707777770000777777777777777777777700007777777777770
      7707777777777770770777777777777000077777777777777777}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = Insert1Click
  end
  object btnload: TSpeedButton
    Left = 144
    Top = 336
    Width = 23
    Height = 22
    Hint = 'Load ShapeList'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADADADADADADAD00000000000ADADA003333333330ADAD0B0333333333
      0ADA0FB03333333330AD0BFB03333333330A0FBFB000000000000BFBFBFBFB0A
      DADA0FBFBFBFBF0DADAD0BFB0000000ADADAA000ADADADAD000DDADADADADADA
      D00AADADADAD0DAD0D0DDADADADAD000DADAADADADADADADADAD}
    ParentShowHint = False
    ShowHint = True
    OnClick = btnloadClick
  end
  object btnsave: TSpeedButton
    Left = 168
    Top = 336
    Width = 23
    Height = 22
    Hint = 'Save ShapeList'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAAD0000000000000DD03300000088030AA03300000088030DD03300000088
      030AA03300000000030DD03333333333330AA03300000000330DD03088888888
      030AA03088888888030DD03088888888030AA03088888888030DD03088888888
      000AA03088888888080DD00000000000000AADADADADADADADAD}
    ParentShowHint = False
    ShowHint = True
    OnClick = btnsaveClick
  end
  object btnnew: TSpeedButton
    Left = 120
    Top = 336
    Width = 23
    Height = 22
    Hint = 'New'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADADADADADADADDA00000000000ADAAD0FFFFFFFFF0DADDA0FFFFFFFFF
      0ADAAD0FFFFFFFFF0DADDA0FFFFFFFFF0ADAAD0FFFFFFFFF0DADDA0FFFFFFFFF
      0ADAAD0FFFFFFFFF0DADDA0FFFFFFFFF0ADAAD0FFFFFF0000DADDA0FFFFFF0F0
      DADAAD0FFFFFF00DADADDA00000000DADADAADADADADADADADAD}
    ParentShowHint = False
    ShowHint = True
    OnClick = btnnewClick
  end
  object btnall: TSpeedButton
    Left = 184
    Top = 304
    Width = 23
    Height = 22
    Hint = 'Select All'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000003333
      3333333099903333333333309990033333333330999030333333333000003033
      3333333330333303333333330333333033333333033333330333333033333333
      0333333033333330000033033333333099900000033333009990099903000030
      9990099900333330000009990333333333330000033333333333}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btnallClick
  end
  object janShape1: TjanShape
    Left = 8
    Top = 256
    Width = 73
    Height = 73
    UserVectorString = 'usrRectangle=0,0,1,0,1,1,0,1'
    Brush.Color = 12647673
    GradientColor = clBlack
    Shape = jstUser
    FillDirection = jgdUp
    CaptionX = 0
    CaptionY = 0
    CaptionCentered = True
    CaptionAngle = 0
    byUser = False
    ActiveMouse = False
    MouseMode = mmfixed
    PolyLineMode = False
  end
  object btnsymver: TSpeedButton
    Left = 216
    Top = 280
    Width = 23
    Height = 22
    Hint = 'Symmetry'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777707777
      7777777777707777777777C777707777C7777CCCCCC0CCCCCC7777C777707777
      C777777777707777777700000770770000070999077077099907099907707709
      9907099907707709990700000770770000077777777077777777777777707777
      7777777777707777777777777770777777777777777077777777}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btnsymverClick
  end
  object SpeedButton13: TSpeedButton
    Left = 216
    Top = 256
    Width = 23
    Height = 22
    Hint = 'Symmetry'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77777777770000077777777C77099907777777CCC70999077777777C77099907
      7777777C770000077777777C777777777777777C777777777777000000000000
      0000777C777777777777777C777777777777777C770000077777777C77099907
      777777CCC70999077777777C7709990777777777770000077777}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton13Click
  end
  object btnctrver: TSpeedButton
    Left = 216
    Top = 304
    Width = 23
    Height = 22
    Hint = 'Center Vertical'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFFF
      FFFFFFFFF00000FFFFFFFFFFF09990FFFFFFFFFFF09990FFFFFFFFFFF09990FF
      FFFFFFFFF00000FFFFFFFFFFFFF0FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF0FFFF
      FFFFFFFFF00000FFFFFFFFFFF09990FFFFFFFFFFF09990FFFFFFFFFFF09990FF
      FFFFFFFFF00000FFFFFFFFFFFFF0FFFFFFFFFFFFFFF0FFFFFFFF}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btnctrverClick
  end
  object btnctrhor: TSpeedButton
    Left = 216
    Top = 328
    Width = 23
    Height = 22
    Hint = 'Center Horizontal'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFF00000FFF00000FFF09990FFF09990FF009990000099
      9000F09990FFF09990FFF00000FFF00000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btnctrhorClick
  end
  object box: TScrollBox
    Left = 8
    Top = 8
    Width = 233
    Height = 233
    TabOrder = 0
    object polyimage: TImage
      Left = 10
      Top = 10
      Width = 200
      Height = 200
      OnMouseDown = polyimageMouseDown
      OnMouseMove = polyimageMouseMove
      OnMouseUp = polyimageMouseUp
    end
  end
  object GroupBox1: TGroupBox
    Left = 256
    Top = 8
    Width = 201
    Height = 377
    Caption = 'Shapes'
    TabOrder = 1
    object SpeedButton3: TSpeedButton
      Left = 16
      Top = 312
      Width = 49
      Height = 22
      Caption = 'Add'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton6: TSpeedButton
      Left = 69
      Top = 312
      Width = 57
      Height = 22
      Caption = 'Update'
      Flat = True
      OnClick = SpeedButton6Click
    end
    object SpeedButton10: TSpeedButton
      Left = 132
      Top = 312
      Width = 57
      Height = 22
      Caption = 'Delete'
      Flat = True
      OnClick = SpeedButton10Click
    end
    object Label1: TLabel
      Left = 17
      Top = 256
      Width = 37
      Height = 16
      Caption = 'Name'
    end
    object SpeedButton11: TSpeedButton
      Left = 69
      Top = 347
      Width = 57
      Height = 22
      Caption = 'OK'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      OnClick = SpeedButton11Click
    end
    object SpeedButton12: TSpeedButton
      Left = 132
      Top = 347
      Width = 57
      Height = 22
      Caption = 'Cancel'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      OnClick = SpeedButton12Click
    end
    object UserList: TListBox
      Left = 16
      Top = 24
      Width = 177
      Height = 225
      ItemHeight = 16
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnDblClick = UserListDblClick
      OnDrawItem = UserListDrawItem
    end
    object username: TEdit
      Left = 16
      Top = 280
      Width = 177
      Height = 24
      TabOrder = 1
    end
  end
  object ckPolyLine: TCheckBox
    Left = 17
    Top = 368
    Width = 80
    Height = 17
    Caption = 'PolyLine'
    TabOrder = 2
    OnClick = ckPolyLineClick
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'psf'
    Filter = 'Poly Shape Files|*.psf'
    Left = 192
    Top = 360
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'psf'
    Filter = 'Poly Shape Files|*.psf'
    Left = 144
    Top = 368
  end
end