play.dfm

纸牌程序代码源于一个古老的纸牌算命

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 417
  Height = 281
  AutoSize = True
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Animate1: TAnimate
    Left = 16
    Top = 0
    Width = 393
    Height = 80
    Active = True
    AutoSize = False
    FileName = 'D:\Program Files\ICQ\ICQworking.avi'
    Repetitions = 100
    StopFrame = 13
  end
  object playButton: TButton
    Left = 0
    Top = 192
    Width = 75
    Height = 25
    Caption = 'playButton'
    TabOrder = 1
    OnClick = playButtonClick
  end
  object stopButton: TButton
    Left = 101
    Top = 192
    Width = 75
    Height = 25
    Caption = 'stopButton'
    TabOrder = 2
    OnClick = stopButtonClick
  end
  object forwardButton: TButton
    Left = 202
    Top = 192
    Width = 75
    Height = 25
    Caption = 'forwardButton'
    TabOrder = 3
  end
  object backButton: TButton
    Left = 304
    Top = 192
    Width = 75
    Height = 25
    Caption = 'backButton'
    TabOrder = 4
  end
  object frameTrack: TTrackBar
    Left = 16
    Top = 88
    Width = 377
    Height = 45
    Orientation = trHorizontal
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 5
    TickMarks = tmBottomRight
    TickStyle = tsAuto
  end
  object MainMenu1: TMainMenu
    Left = 488
    Top = 16
    object file1: TMenuItem
      Caption = #25991#20214'&F'
      object open1: TMenuItem
        Caption = #25171#24320'&O'
        OnClick = open1Click
      end
      object close1: TMenuItem
        Caption = #20851#38381'&C'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object exit1: TMenuItem
        Caption = #36864#20986'&X'
      end
    end
    object control1: TMenuItem
      Caption = #25511#21046'&T'
      object play1: TMenuItem
        Caption = #25773#25918'&P'
      end
      object stop1: TMenuItem
        Caption = #20572#27490'&S'
      end
      object forward1: TMenuItem
        Caption = #21069#36827
      end
      object backward1: TMenuItem
        Caption = #21518#36864
      end
    end
    object display1: TMenuItem
      Caption = #26174#31034
      object tool1: TMenuItem
        Caption = #24037#20855#26639
      end
      object frame1: TMenuItem
        Caption = #26722#25968
      end
    end
  end
  object ImageList1: TImageList
    Left = 488
    Top = 264
  end
  object ImageList2: TImageList
    Left = 512
    Top = 224
  end
  object OpenDialog1: TOpenDialog
    Left = 504
    Top = 160
  end
end