ychatu18.dfm

来自「Yahoo Messenger for Mobile」· DFM 代码 · 共 239 行

object Form18: TForm18
  Left = 218
  Top = 39
  AutoScroll = False
  BorderIcons = [biMinimize]
  Caption = 'Emotes'
  ClientHeight = 496
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnActivate = FormActivate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 419
    Height = 496
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 287
      Top = 1
      Width = 3
      Height = 356
      Cursor = crHSplit
    end
    object Panel3: TPanel
      Left = 1
      Top = 357
      Width = 417
      Height = 138
      Align = alBottom
      TabOrder = 0
      object Panel4: TPanel
        Left = 1
        Top = 1
        Width = 415
        Height = 32
        Align = alTop
        Caption = 'Panel4'
        TabOrder = 0
        object Edit1: TEdit
          Left = 6
          Top = 6
          Width = 405
          Height = 21
          TabOrder = 0
          Text = 
            'Example Emote: Hey %s the time is %time and i have %ignored on i' +
            'gnore!'
        end
      end
      object Panel8: TPanel
        Left = 1
        Top = 106
        Width = 415
        Height = 37
        Align = alTop
        Caption = 'Panel8'
        TabOrder = 1
        object Edit3: TEdit
          Left = 6
          Top = 2
          Width = 271
          Height = 21
          TabOrder = 0
          Text = 
            'Removes %s from the clutches of the iggy bin remaining %ignored ' +
            'to be removed :|'
        end
        object CheckBox2: TCheckBox
          Left = 294
          Top = 6
          Width = 103
          Height = 17
          Caption = 'Unignore Emote'
          TabOrder = 1
        end
      end
      object Panel6: TPanel
        Left = 1
        Top = 74
        Width = 415
        Height = 32
        Align = alTop
        Caption = 'Panel6'
        TabOrder = 2
        object Edit2: TEdit
          Left = 6
          Top = 4
          Width = 271
          Height = 21
          TabOrder = 0
          Text = 
            'Puts %s in the iggy bin along with the other %ignored idiots @ %' +
            'time'
        end
        object CheckBox1: TCheckBox
          Left = 296
          Top = 6
          Width = 97
          Height = 17
          Caption = 'Ignore Emote'
          TabOrder = 1
        end
      end
      object Panel7: TPanel
        Left = 1
        Top = 33
        Width = 415
        Height = 41
        Align = alTop
        TabOrder = 3
        object Button2: TButton
          Left = 80
          Top = 6
          Width = 85
          Height = 25
          Caption = 'Delete Selected'
          TabOrder = 0
          OnClick = Button2Click
        end
        object Button1: TButton
          Left = 8
          Top = 6
          Width = 65
          Height = 25
          Caption = 'Add Emote'
          TabOrder = 1
          OnClick = Button1Click
        end
        object Button3: TButton
          Left = 172
          Top = 6
          Width = 55
          Height = 25
          Caption = 'Close'
          TabOrder = 2
          OnClick = Button3Click
        end
        object Button4: TButton
          Left = 236
          Top = 6
          Width = 75
          Height = 25
          Caption = 'Edit && Save'
          TabOrder = 3
          OnClick = Button4Click
        end
      end
    end
    object Panel5: TPanel
      Left = 290
      Top = 1
      Width = 128
      Height = 356
      Align = alClient
      Caption = 'Panel5'
      TabOrder = 1
      object ListBox2: TListBox
        Left = 1
        Top = 1
        Width = 126
        Height = 354
        Align = alClient
        ItemHeight = 13
        TabOrder = 0
        OnDblClick = ListBox2DblClick
      end
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 286
      Height = 356
      Align = alLeft
      Caption = 'Panel2'
      TabOrder = 2
      object ListBox1: TListBox
        Left = 1
        Top = 1
        Width = 284
        Height = 354
        Align = alClient
        ItemHeight = 13
        Items.Strings = (
          'agrees'
          'apologizes'
          'stands up and applauds'
          'begs like a dog'
          'blushes'
          'is extremely bored'
          'bows gracefully'
          'cheers'
          'chuckles in amusement'
          'considers investing in mutual funds'
          'yells "Hey Kool Aid!" and crashes into a brick wall'
          'yells, "For Crying out loud!"'
          'busts a move'
          'ducks out of the way'
          'faints'
          'has fallen and can'#39't get up'
          'flirts with the room'
          'washes and folds the laundry'
          'frowns in disgust'
          'groans loudly '
          'hiccups and then searches for a glass of water'
          'gives everyone a big hug'
          'screams, "They killed kenny!"'
          'knows that the truth is out there'
          'laughs out loud'
          'listens attentively'
          'mumbles incoherently'
          'says, "Pardon me, do you have any Grey Poupon?'
          'pokes you in the chest'
          'ponders the meaning of life'
          'wants a raise'
          'screams in a mad fit'
          'sings, "Tell me what you want, what you really, really want"'
          'smiles happily'
          'waves at everyone in the room'
          'Yahoo!s')
        TabOrder = 0
        OnClick = ListBox1Click
        OnDblClick = ListBox1DblClick
      end
    end
  end
end