animatefrm.dfm

这是书上的代码

object aForm: TaForm
  Left = 189
  Top = 103
  BorderIcons = []
  BorderStyle = bsNone
  Caption = '屏幕动画'
  ClientHeight = 64
  ClientWidth = 339
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 48
    Height = 55
    Picture.Data = {
      07544269746D6170261F0000424D261F00000000000036000000280000003000
      0000370000000100180000000000F01E0000C40E0000C40E0000000000000000
      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA5AD
      AD848484525A52FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFCED6DEB5A5B58C9494424242525A52FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB5B5
      BD9C8C7B4242425A6363525A52FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6DED6CECE
      CE84847B949C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFC5B5CEA5ADAD525A525A6363424242292929
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFEFEFEFCED6DE949C9C848484424242FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6DE
      D6B5A5B56B6B6B63635A424242292929313131FFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6DE
      D6A5ADAD9C8C7B525A52313131FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFD6DED6CECECE7B736B73527B424242313131
      313131FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF191919191919FFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFE6DED6CECECEA5ADAD6B6B6B424242525A52
      424242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDE
      E6D6DED6949C9C84847B424242525A52424242313131FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      00000019191919191952315AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDE
      E6D6DED6C5B5CE6B6B6B6B6B6B737B7B424242313131FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6DED6949C9C949C9C525A5263635A
      424242313131424242B5A5B5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF191919191919424242525A526B6B6B6B
      6B6BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDEE6CECECE8484846B6B6B737B7B
      424242424242525A52FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFE6DED6B5A5B58C948C6B6B6B73527B63635A292929424242424242FFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF191919
      00000031313142424242424252315A7B736BFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFE6DED6D6DED6949C9C84847B8484846B6B6B63635A5A6363313131292929FF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6DED6CECECE949C9C6B6B6B84847B
      525A52292929424242313131292929000000FFFFFF000000FFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFF191919000000292929292929191919525A52737B7BA5
      ADADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFD6DED6CECECE8C948C8C948C
      6B6B6B73527B84847B313131424242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFEFEFEFB5B5BDA5ADAD6B6B6B6B6B6B424242313131525A5229292931313131
      3131000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF292929292929292929
      1919192929296B6B6B848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFEFEFEFD6DED6B5B5BDC5B5CE525A5284847B84848442424242424252
      5A52424242FFFFFFFFFFFFFFFFFFFFFFFFD6DED6CECECEB5A5B5525A52525A52
      525A52525A52525A5229292931313131313163635A000000FFFFFFFFFFFFFFFF
      FFFFFFFF313131424242313131313131292929525A52848484FFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFD6DED6D6DED6C5B5CE
      737B7B949C9C8484846B6B6B6B6B6B6B6B6B424242FFFFFFFFFFFFFFFFFFFFFF
      FFEFEFEFCECECEA5ADAD6B6B6B525A5252315A6B6B6B42424231313131313129
      2929191919000000292929191919313131424242525A52424242525A526B6B6B
      737B7B949C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFEFEFEFEFEFEFE6DED6CECECEA5ADADA5ADAD9C8C7B737B7B8C949484
      8484525A524A2152210831FFFFFFFFFFFFEFEFEFCECECEA5ADAD84847B52315A
      525A526B6B6B424242424242313131292929292929424242313131525A524242
      426B6B6B737B7B737B7B9C8C7B949C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFEFEFD6DED6
      C5B5CECECECE949C9C949C9C6B6B6BA563B59C5AB5080010311042FFFFFFFFFF
      FFFFFFFFCECECEA5ADAD737B7B6B6B6B6B6B6B525A52424242525A5242424229
      2929313131424242B5A5B57B736B84847B9C8C7BA5ADADB5B5BDFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFEFEFEFEFEFEFDEDEE6D6DED6D6DED6DEE6E6A563B59C5AB5A5
      63B5A563B531103A8C42AD9C42ADFFFFFF848484CECECEA5ADBD9C8C7B9C8C7B
      6B6B6B313131525A524242424242423131314242424242428C948C8C948C8C94
      8CB5B5BDB5B5BDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFEFEFEFEFEF
      EFEFEF8C42AD9C5AADA563B5A563B5AD73C56B4A7373428CA55ABD8C42AD8C94
      8C9C8C7BCECECEA5ADADA5ADAD8C948C84847B3131316B6B6B42424231313142
      4242525A52313131949C9CB5B5BDB5B5BDB5B5BDCECECEFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFF9C5AB5944AB59C5AB5A563B5AD73C5A563B5AD73BDAD
      73BD311042A563B5A563B5944AB59C42AD8C948CCECECECECECEB5B5BD8C948C
      6B6B6B525A526B6B6B63635A42424252315A525A52424242A5ADADB5B5BDBDC5
      C5CECECEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAD73BDAD73BDAD73BDA563B5B57BC5
      A563B5AD73C5AD73BDAD73BDA563B56331738C6B94A563B5A563B59C5AB5944A
      B5B5B5BDD6DED6C5B5CEB5B5BDA5ADAD6B6B6B737B7B84847B525A5231313152
      5A52525A52525A52B5A5B5CECECECECECEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB58CBDBD8C
      C5BD8CC5BD8CC5B57BC5BD8CC5B57BC5A584ADAD73BDA563B5AD73BDA563B54A
      2152A563B5AD73BDA563B59C5AB59C5AADB5A5B5CECECECECECEB5B5BD9CA5A5
      9C8C7B84848484847B52315A525A525A636363635A63635A949C9CCECECEFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF4A215263316B73428C946B9CBD8CC5BD8CC5BD9CC5B57BC59C73AD
      7B21946B198C7B21947B199429103A8C5294AD73C5A563B5A563B5A563B5A55A
      BDAD73BDD6DED6CECECEB5B5BDB5A5B58C948C8C948C6B6B6B525A5263635A73
      527B6B6B6B63635AA5ADADC5B5CEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBD9CC5BD8CC59C73
      AD6B4A736B4A738C5294B5A5B584219C7B21947B21947B21946B198C6B198C7B
      19944A21529C5AADA563B5A55ABDA55ABDA55ABDD6DED6D6DED6CECECEB5B5BD
      949C9C949C9C6B6B6B6B6B6B737B7B7B736B6B6B6B6B6B6BA5ADADFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFBD8CC5BD8CC5BD8CC5BD9CC5BD8CC5946B9C52315A84219C
      84219C84219C84219C8C52947B19946B198C7B19946B198C3110426B4A73A563
      B5A563B5BD8CC5E6DED6CECECEB5B5BDA5ADAD9C8C7B738CA584847B73527B73
      7B7B6B6B6B737B7BB5A5B5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB5A5B5C59C
      CEBD9CC5BD8CC5B5A5B5943AAD9C42AD84219C8C31A584219C84219C7B21947B
      199473198C6B198C73198C73198C3110424A2152633173E6DED6CECECECECECE
      A5ADAD949C9C9C8C7B8C9494848484737B7B737B7B949C9CFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFC5A5CEC5A5CEC5A5CEC59CCEB5A5B5943AAD84219C
      84219C8C529484219C84219C84219C73428C6B198C6B198C6B198C6B198C7319
      8C73198C421952210821D6DED6B5B5BDB5B5BDA5ADAD949C9C9C8C7B8C949484
      8484848484848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC5B5
      CEC5A5CEB5A5B5A584AD9C42AD8C52949C42AD84219C9C42AD84219C84219C7B
      21947B21947B21946B198C73198C6B198C7B19944219526B198CCECECECECECE
      B5B5BD9CA5A59C8C7B949C9C9C8C7B949C9C9C8C7BFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFC5A5CEC5B5CEC5A5CE8C6B94A55ABD9C42AD
      84219C9C42AD00296B6B4A7384219C84219C84219C84219C7B21946B198C6B19
      8CC5B5CEEFEFEFD6DED6CECECECECECEB5A5B59C8C7BA5ADAD8C948C949C9C94
      9C9C949C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFC5A5CEC5B5CE73527BA55ABD9C42AD9C42AD9C42AD103A634242428C31A584
      219C84219C73198CCED6DEEFEFEFDEDEE6E6DED6E6DED6D6DED6D6DED6CECECE
      B5B5BDB5A5B5949C9CA5ADAD949C9CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC5A5CEC5B5CEA584ADA55ABD8C5294
      9C42AD943AAD00215200215200194284847BCECECEEFEFEFE6DED6EFEFEFEFEF
      EFD6DED6CECECECECECECECECECED6DECECECEB5B5BDA5ADADA5ADADFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFC5A5CEA563B5A563B59C42AD943AAD6B6B6B00215200195A00215200
      195AEFEFEFDEDEE6EFEFEFEFEFEFE6DED6D6DED6CECECECED6DEB5B5BDC5B5CE
      CECECECECECECECECEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA563B5A55ABDEFEFEF
      FFFFFFFFFFFF00193A00195A00296B9CA5A5DEDEE6EFEFEFDEDEE6DEDEE6E6DE
      D6D6DED6CECECEB5B5BDB5B5BDA5ADADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF738CA5105284A5
      ADBDDEDEE6DEDEE6D6DED6D6DED6E6DED6D6DED6CECECEB5A5B5949C9CFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFD6DED6C5B5CEEFEFEFD6DED69C8C7B6B6B6BCECECED6DE
      D6CECECEB5B5BDA5ADADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEDEE6E6DED6C5
      B5CED6DED6525A520000007B736BD6DED6CECECEB5B5BDFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFD6DED6D6DED6D6DED6D6DED6949C9C292929B5A5B5CECE
      CEB5B5BDA5ADADFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE6DED6D6DED6D6
      DED6EFEFEFDEDEE6D6DED6D6DED6CECECEB5B5BDFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF