unit1.dfm

使用canvas组件写的可拖拽东西使用canvas组件写的可拖拽东西使用canvas组件写的可拖拽东西使用canvas组件写的可拖拽东西

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 796
  Height = 572
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pbMachines: TPaintBox
    Left = 0
    Top = 0
    Width = 788
    Height = 512
    Align = alClient
    PopupMenu = pmMachines
    OnContextPopup = pbMachinesContextPopup
    OnMouseDown = pbMachinesMouseDown
    OnMouseMove = pbMachinesMouseMove
    OnMouseUp = pbMachinesMouseUp
    OnPaint = pbMachinesPaint
  end
  object imgS2: TImage
    Left = 616
    Top = 8
    Width = 17
    Height = 25
    Picture.Data = {
      0A544A504547496D61676591030000FFD8FFE000104A46494600010101006000
      600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
      0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
      3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
      3232323232323232323232323232323232323232323232323232323232323232
      32323232323232323232323232FFC0001108001A001403012200021101031101
      FFC4001F0000010501010101010100000000000000000102030405060708090A
      0BFFC400B5100002010303020403050504040000017D01020300041105122131
      410613516107227114328191A1082342B1C11552D1F02433627282090A161718
      191A25262728292A3435363738393A434445464748494A535455565758595A63
      6465666768696A737475767778797A838485868788898A92939495969798999A
      A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
      D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
      01010101010101010000000000000102030405060708090A0BFFC400B5110002
      0102040403040705040400010277000102031104052131061241510761711322
      328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
      292A35363738393A434445464748494A535455565758595A636465666768696A
      737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
      A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
      E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00B371
      A85E5DDE5CC92DDCE6432BE4F9ADFDE3DB357747F114BA3437AF7170ED13EC0B
      E6234B86F9BA00091C03F9558B5D0AD269E69EE67096A9E6492B003CC3862321
      7DD8633EBC7BD61BB4B6B14A6D8CAAECCA3F74393C3F519E9F98AF6AB4E32C2B
      B2DAC79B46328D5D59E95E0FD62E751D2A6B87958A19CF9595DB85D8A7A1E9C9
      34550F878F24BA05C3CD9F30DC9DDBBAE762515E29E91CE47AA24FA7DCDB0994
      482E64C263E6085B7119C74C80719AA01BCB69B3C7C83F99AEAFE22E99610DBF
      DA22B1B68E76C9322C4A189CFAE335E61A6B35DF886D20B9266848506390EE53
      C9EC78AF4655F9B0F28D8E28D2E5ACB53B5F0D78B5346B19E016FE7079CC9B83
      7FB2A31FA515EA5A7697A7DB594715BD85AC5181C2C70AA8FC80A2BCE3B4FFD9}
    Visible = False
  end
  object imgS1: TImage
    Left = 584
    Top = 8
    Width = 22
    Height = 24
    Picture.Data = {
      0A544A504547496D616765C5030000FFD8FFE000104A46494600010101006000
      600000FFE1001645786966000049492A0008000000000000000000FFDB004300
      080606070605080707070909080A0C140D0C0B0B0C1912130F141D1A1F1E1D1A
      1C1C20242E2720222C231C1C2837292C30313434341F27393D38323C2E333432
      FFDB0043010909090C0B0C180D0D1832211C2132323232323232323232323232
      3232323232323232323232323232323232323232323232323232323232323232
      3232323232FFC0001108001A001603012200021101031101FFC4001F00000105
      01010101010100000000000000000102030405060708090A0BFFC400B5100002
      010303020403050504040000017D010203000411051221314106135161072271
      14328191A1082342B1C11552D1F02433627282090A161718191A25262728292A
      3435363738393A434445464748494A535455565758595A636465666768696A73
      7475767778797A838485868788898A92939495969798999AA2A3A4A5A6A7A8A9
      AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE1E2E3E4
      E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F010003010101010101010101
      0000000000000102030405060708090A0BFFC400B51100020102040403040705
      040400010277000102031104052131061241510761711322328108144291A1B1
      C109233352F0156272D10A162434E125F11718191A262728292A35363738393A
      434445464748494A535455565758595A636465666768696A737475767778797A
      82838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6
      B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2
      F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F6CB9BCB896431D904DA
      AFB1E46EF8CE42751918239E846315C869BE2AB3BBF11CB05A44F0C97491A5BC
      CD20CCAEA651FBCEB9070D81F37CA0118CE1796F106ADA8DADDD8C36F295482D
      6D8DB5A46C330B3272A71F2A9EE39C638040AC384A5B5CDA5CC0E8B7A2145051
      885F33CC9CB3E71CE15F6F41B42A019E0000F7AB1BC79710DC2AACFB03E57857
      1DCAE79E3233D7191CD15E43A6DF5DEA3E18B88AF205D4E0B6BA856DAD5CC65A
      3531B92E44840C13F773CE3381834500741E2AF010BCBAB478DFCB8CB7973DCE
      D2E7CA5CEC0C4B641030BBB3CE324E6B92B4D22E2FF5EFB0CFA7490347141E76
      79FB2A092E8E4F4DCD248598772194A960C40F78AE6B4600F8C3C431903643F6
      5F297B4798CE768ED9C9E94018FE15F01C569A485D43CDDF3132CDE549240EED
      C04FB8C0A851B863A1DD9201028AEF68A00FFFD9}
    Visible = False
  end
  object imgS3: TImage
    Left = 648
    Top = 8
    Width = 17
    Height = 25
    Picture.Data = {
      0A544A504547496D61676592030000FFD8FFE000104A46494600010101006000
      600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
      0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
      3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
      3232323232323232323232323232323232323232323232323232323232323232
      32323232323232323232323232FFC0001108001A001403012200021101031101
      FFC4001F0000010501010101010100000000000000000102030405060708090A
      0BFFC400B5100002010303020403050504040000017D01020300041105122131
      410613516107227114328191A1082342B1C11552D1F02433627282090A161718
      191A25262728292A3435363738393A434445464748494A535455565758595A63
      6465666768696A737475767778797A838485868788898A92939495969798999A
      A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
      D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
      01010101010101010000000000000102030405060708090A0BFFC400B5110002
      0102040403040705040400010277000102031104052131061241510761711322
      328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
      292A35363738393A434445464748494A535455565758595A636465666768696A
      737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
      A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
      E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F006EBD
      7335D78A35579DBCC65BB95016C121558A81F8000568E8FAB43A3E9F793C90A1
      46D83FD48739C39E98E3807F2AD41E1ED3EE758BEBABC92E2DECE296E4CD2121
      A494A3905FA6002D8E83393803B8E75F7DAD9B496A93160E84A43C16F95FA903
      A74EC7B57B75AA46585692D524697F759EA1E01D41B57D025B962427DA196352
      A176AED53C01D3924FE34556F86124927866E0CDBBCCFB6303BBAFDC4A2BC433
      382BDD7A492E351B0677557BC9A6DA5970AACFBB6F4CF2429EB8E3A1A2190470
      4849C7CA3FAD7B26AB6369796929BAB5827280EDF3630DB78ED9AF26F01E9D63
      73E26DB71676F2AC7CA0922560BF4C8E2BB9E294A83A7CBD8ABE9625F0EF8C25
      D16CA682241224939933C7A28FFD968AF62455450AA0051C000600A2B8493FFF
      D9}
    Visible = False
  end
  object imgS4: TImage
    Left = 680
    Top = 8
    Width = 17
    Height = 25
    Picture.Data = {
      0A544A504547496D616765A7030000FFD8FFE000104A46494600010101006000
      600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
      0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
      3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
      3232323232323232323232323232323232323232323232323232323232323232
      32323232323232323232323232FFC0001108001A001503012200021101031101
      FFC4001F0000010501010101010100000000000000000102030405060708090A
      0BFFC400B5100002010303020403050504040000017D01020300041105122131
      410613516107227114328191A1082342B1C11552D1F02433627282090A161718
      191A25262728292A3435363738393A434445464748494A535455565758595A63
      6465666768696A737475767778797A838485868788898A92939495969798999A
      A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
      D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
      01010101010101010000000000000102030405060708090A0BFFC400B5110002
      0102040403040705040400010277000102031104052131061241510761711322
      328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
      292A35363738393A434445464748494A535455565758595A636465666768696A
      737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
      A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
      E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00EBB4
      EF105FDDC71C93DF4A65750CC1642A338F4078AD0D4FC52741B779E6B9911640
      ABB9FCC930402781CE38CF3ED54343D12D9ECCDC5E18D6148CB7DC566207038C
      E7DBEBC7BD54F1407B682216A1A366E3746A719C1C6E0A464671D723DABE730D
      1A91C6C6F27677EBE47AF8974E54345AAB7E876DE09D627D73479EEE698CA05C
      948C94DB85DAA7A119EA4F5A2A9FC34677F0BB3C80891AE18B64639DAA0FF2A2
      BE8CF20C2D3F528A7D2A1B7257CE85DB80483B73CA91E9939FAFEB0788A40B14
      649C7C86B7BC73A5E9F67A435CDAD85AC170CE332C50AAB9FC40CD7997852797
      53F1A456B7F2BDDDB968C7953B1913049C8C1E2BC88E1B9719195EFBFE4CF467
      594E8356FEB43D33E19DF8B8D2AF2D82F10CA1F77AEECFFF00134575F65A7596
      9B118AC6CEDED6327252089501FC00A2BD73CE3FFFD9}
    Visible = False
  end
  object imgS5: TImage