janshapeeditor.dfm

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

object ShapeEditorForm: TShapeEditorForm
  Left = 222
  Top = 160
  Width = 473
  Height = 425
  Caption = 'Jans PolyEdit'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object addPoint: TSpeedButton
    Left = 16
    Top = 336
    Width = 23
    Height = 22
    Hint = 'Add Point'
    AllowAllUp = True
    GroupIndex = 1
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777777777770000777777777777033077777777777703307777
      7777777703307777777700000330000077770333333333307777033333333330
      7777000003300000777777770330777777777777033077700007777703307770
      9907777700007770990777777777777000077777777777777777}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
  end
  object SpeedButton1: TSpeedButton
    Left = 64
    Top = 336
    Width = 23
    Height = 22
    Hint = 'Delete Point'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777777777777777777777777777777777777777777777777777
      7777777777777777777700000000000077770333333333307777033333333330
      7777000000000000777777777777777777777777777777700007777777777770
      9907777777777770990777777777777000077777777777777777}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton1Click
  end
  object btntop: TSpeedButton
    Left = 120
    Top = 256
    Width = 23
    Height = 22
    Hint = 'Top'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F333333333333330333333333333333733333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btntopClick
  end
  object btnright: TSpeedButton
    Left = 144
    Top = 280
    Width = 23
    Height = 22
    Hint = 'Right'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333FF3333333333333003333
      3333333333773FF3333333333309003333333333337F773FF333333333099900
      33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
      99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
      33333333337F3F77333333333309003333333333337F77333333333333003333
      3333333333773333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btnrightClick
  end
  object SpeedButton5: TSpeedButton
    Left = 120
    Top = 280
    Width = 23
    Height = 22
    Hint = 'Center'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333000000333333333099999903333333099999999
      03333309999CC9999033330999CCCC99903333099CCCCCC9903333099CCCCCC9
      9033330999CCCC9990333309999CC99990333330999999990333333309999990
      3333333330000003333333333333333333333333333333333333}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton5Click
  end
  object SpeedButton7: TSpeedButton
    Left = 120
    Top = 304
    Width = 23
    Height = 22
    Hint = 'Bottom'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333300033333333333337773333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton7Click
  end
  object btnleft: TSpeedButton
    Left = 96
    Top = 280
    Width = 23
    Height = 22
    Hint = 'Left'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333FF3333333333333003333333333333F77F33333333333009033
      333333333F7737F333333333009990333333333F773337FFFFFF330099999000
      00003F773333377777770099999999999990773FF33333FFFFF7330099999000
      000033773FF33777777733330099903333333333773FF7F33333333333009033
      33333333337737F3333333333333003333333333333377333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btnleftClick
  end
  object SpeedButton2: TSpeedButton
    Left = 144
    Top = 256
    Width = 23
    Height = 22
    Hint = 'UpperRight'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333033333333333333190333333333333309103333333333333090033033
      3333333309030003333333330190191333333333309999033333333300999993
      3333333019999900333333331099999333333333B30099103333333333B30090
      333333333333B30033333333333333B303333333333333333333}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton2Click
  end
  object SpeedButton4: TSpeedButton
    Left = 96
    Top = 256
    Width = 23
    Height = 22
    Hint = 'UpperLeft'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333330033333333333330090333333303330090333333300030090
      3333333339100910333333330191910333333333199990333333333309999900
      3333333399999190333333301991103333333330901033333333333003333333
      3333330333333333333333333333333333333333333333333333}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton4Click
  end
  object SpeedButton8: TSpeedButton
    Left = 96
    Top = 304
    Width = 23
    Height = 22
    Hint = 'BottomLeft'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333033333333333333330033333333333333190003333
      3333333019900033333333339999901033333330099999103333333319999033
      3333333309999033333333333190090333333333000301903333333330333019
      0333333333333309103333333333333003333333333333333333}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton8Click
  end
  object SpeedButton9: TSpeedButton
    Left = 144
    Top = 304
    Width = 23
    Height = 22
    Hint = 'BottomRight'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333330333333333333000333333333330009
      1333333333010991033333330109999933333333019999903333333330099991
      3333333333099990333333333091099333333333091030003333333019033303
      3333330090333333333333300333333333333333333333333333}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton9Click
  end
  object btnalignhor: TSpeedButton
    Left = 184
    Top = 280
    Width = 23
    Height = 22
    Hint = 'Align Vertical'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888888888888888888888888848800888888444444480088888888888488
      008888888888888800888800000000080088880FFFFFFF080088880FFFFFFF08
      00888800000000080088888888888888008888888000000800888888808F8F08
      0088888880000008008888888888888888888888888888888888}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btnalignhorClick
  end
  object btnalignver: TSpeedButton
    Left = 184
    Top = 256
    Width = 23
    Height = 22
    Hint = 'Align Horizontal'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888888888888888888888800008888888888880FF08888888888880FF088
      48888800080FF0884888880F080FF08848888808080FF0884888880F080FF088
      48888808080FF084448888000800008848888888888888888888880000000000
      0088880000000000008888888888888888888888888888888888}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = btnalignverClick
  end
  object Insert1: TSpeedButton
    Left = 40
    Top = 336
    Width = 23
    Height = 22
    Hint = 'Insert Point'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777777777777777777777777777000077777777777707707777777777770
      7707777777777770000777777777777777777000077777077777709907000000