mainwindow.lfm

Переключить прокрутку окна
Загрузить этот исходный код

object MainForm: TMainForm
  Left = 0
  Height = 480
  Top = 0
  Width = 640
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Малик Эмулятор'
  ClientHeight = 460
  ClientWidth = 640
  Menu = mainMenu
  OnClose = FormClose
  OnShow = formShow
  ShowInTaskBar = stAlways
  LCLVersion = '1.2.6.0'
  Visible = True
  object programmesTabs: TPageControl
    Left = 4
    Height = 450
    Top = 6
    Width = 452
    ActivePage = recentTab
    Align = alCustom
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabIndex = 0
    TabOrder = 0
    OnChange = programmesTabsChange
    object recentTab: TTabSheet
      Caption = 'Недавние'
      ClientHeight = 422
      ClientWidth = 444
      inline recentList: TProgrammesList
        Height = 422
        Width = 444
        Align = alClient
        ClientHeight = 422
        ClientWidth = 444
        inherited programmesList: TListBox
          Height = 422
          Width = 444
          OnSelectionChange = programmesListSelectionChange
        end
      end
    end
    object gamesTab: TTabSheet
      Caption = 'Игры'
      ClientHeight = 422
      ClientWidth = 444
      inline gamesList: TProgrammesList
        Height = 422
        Width = 444
        Align = alClient
        ClientHeight = 422
        ClientWidth = 444
        inherited programmesList: TListBox
          Height = 422
          Width = 444
          OnSelectionChange = programmesListSelectionChange
        end
      end
    end
    object appsTab: TTabSheet
      Caption = 'Приложения'
      ClientHeight = 422
      ClientWidth = 444
      inline appsList: TProgrammesList
        Height = 422
        Width = 444
        Align = alClient
        ClientHeight = 422
        ClientWidth = 444
        inherited programmesList: TListBox
          Height = 422
          Width = 444
          OnSelectionChange = programmesListSelectionChange
        end
      end
    end
  end
  object menuBevel: TBevel
    Left = 0
    Height = 2
    Top = 0
    Width = 640
    Align = alTop
    Shape = bsTopLine
  end
  object infoPanel: TPanel
    Left = 460
    Height = 450
    Top = 6
    Width = 176
    Anchors = [akTop, akRight, akBottom]
    BevelOuter = bvNone
    ClientHeight = 450
    ClientWidth = 176
    Color = clWindow
    ParentColor = False
    TabOrder = 1
    object infoIcon: TImage
      Left = 24
      Height = 128
      Top = 0
      Width = 128
      Anchors = [akTop, akLeft, akRight]
      Stretch = True
    end
    object infoName: TMemo
      Left = 0
      Height = 48
      Top = 132
      Width = 176
      Alignment = taCenter
      Anchors = [akTop, akLeft, akRight]
      BorderStyle = bsNone
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object infoDescription: TMemo
      Left = 0
      Height = 236
      Top = 184
      Width = 176
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderStyle = bsNone
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object infoLaunch: TButton
      Left = 38
      Height = 25
      Top = 425
      Width = 100
      Anchors = [akLeft, akRight, akBottom]
      Caption = 'Запустить'
      Default = True
      Enabled = False
      OnClick = programmeLaunchClick
      TabOrder = 2
    end
    object infoAgeCatBack: TImage
      Left = 132
      Height = 26
      Top = 12
      Width = 44
      Anchors = [akTop, akRight]
      AutoSize = True
      Picture.Data = {
        1754506F727461626C654E6574776F726B477261706869638B08000089504E47
        0D0A1A0A0000000D494844520000002C0000001A0806000000CCA7BEB1000000
        0473424954080808087C086488000000097048597300000DD700000DD7014228
        9B780000001974455874536F667477617265007777772E696E6B73636170652E
        6F72679BEE3C1A00000808494441545885AD98CF8F645775C73FE7564D4D7577
        CD38761B0FEE0E36E3445990E0051212444AE46C586483229659C23F10458AC4
        824C8D08646345CADEFF4036D80224D8C00E63120945891D3619A3249A166DBB
        B199AEAEAE77EF39E79BC57D553D638D514079D2D3FBD5F5DEF77EEFF77CBFE7
        B649E271DBD7BE73716B36AD5F9A4FF24FF7AFE9C51BB37CFE9AF9BE99EDFEC6
        302481F563A6B052F010029A27CD8390E1319EA7D8D45CADDDDE1E9C7FDBB47C
        DDD717AF3D77F6EDD3E572297D14A0ED371FF7FC1BDFFFE0AF8F0F365FBF3EC9
        BD520ACAC4AC3C040E1EFED5F63AB33FCF1491C24324D05AE099B4E67824E18E
        47E0ADE2EE54D7FAC150BEF9FC2FBFF78FC066B95CC647017F04F0575F3D3BBE
        7543AFDEDA6F9F35BB6230C50E88AC3C02126C049BF4571909C408D63DF0C80E
        3482D61AB556C21B9989B7BABBB7D1ECCD9BEDF4CB87973F7B13D8DCB973273F
        12F0575F3D3B7EE129FFD9FE346F14034988914D2B446E5984C43AD0711036B2
        9EEA52903ADBC2F0882E8508EA302009F786D761776CADD25AA5D686A76D9EB6
        77BE74E8F7DF001E7C98EDE9F6E4F020BE75DDFC86648420B6D33B5E7B747693
        323E9B3C2483D2191E674418CA2432C98408682D491594416D498468CDC951DB
        ADF541796BF3D3E9D3AF1C72FF2BC04F97CBE57B803FC2F0DF7EF7977FF5C9C5
        FA1F4C8995D23F4819811B4EC11392099190BB01952E9751066C07409FA18818
        A5223203AF95884678C3874BA26D8856697573C5B837228227F7CA3FDFB6B7EF
        0EC3F093EBD7AFBFBF95C7F46F5E5B3DF3FC62F37729300AB9ADF07092092D21
        80EAD9074021644400E5A182D3B600EDAA126D8A7B2323518A0C239A484FDC45
        B88816B4E68407D1AE009FB6F2D9676E1E7CF1E03AEFAD56ABB7CC6C2D49D309
        9BBFB06CFB819199248698D0025CC229D4485A1A2D449A75962964941DE08804
        B35DA14A2025CA3E08058427D112CB2E91A84E7A129E787314496B0D659299F6
        6EDCFCC25E39FF8FF97CFEEE72B9FC1FC0A713B53F89EC1E9A129E89CCA8215A
        424BE19A30B870155CDD574323B0D135220474DDB3B5BF4C321210F27E9E2ED2
        1D79122EE4813727A3331C1E280301AB367DB6EC95CF9752DE02DE35B38BE9B5
        929FAE1ED8C85288EE996938136A16064F5A165A06A10941E9C59822AD8018ED
        4FDD3D949859C79EA070940129A2064490D589EA1023E0D64877C8EED39238DF
        C4CCF6ED8588B8BD582CDE5C2E97EBE935EAEDF03EA2C8A48588346A1A358296
        85218CA6424B2310CD354AA7E0A3AD314A8A479250289CCCC014C82B8A46D601
        7943EE64ABC883F44011A4B73E38E0723398A4274B29C7C330DC00DE9BB6D60C
        8BD18244C8185A67B8A631345135E98CAB109AE0B22BB71030CA8231406C9485
        322806E10D14282AF20E166FA855B255B20DE095F401A583BAB350A698D981A4
        8FD75A17A7A7A736BD68F6F63EF5C58820052D124F6370751984D1A2D146D02D
        84ABB3DBADAFCB202200A394CEB401A9A4283B8068908E62403E906D83DA256A
        971075C7BEC2819E9A078B2992E6929E04E647474736DD34FE7D56E2C55DBE87
        68012D3416DA84EAA2A9744F1EFDB8458E0E31A6A184D49B1FA0178E84293B80
        70880AD98F3E5C50E444DD606A23E00A19480918376657F2DA25DDE0FA51B3F6
        97CA6E2991BD596921DC451DC17B96EEC963E7257A68E46861B64B3B7597409D
        E5F01E2B4AE415B24136E403314A247D20B783190B162B3C317399D906781FD8
        9C9C9C68EAEB8BD7DA9C97B3D5FDD61A1E49F564688EA7E1D1FB07F7ECECCA50
        8A16494A5740C7E0D8D65CE6F8C3AD24F468E111B54B21FA20140E8A5EA85628
        D32947F38B907401FC62369BAD8E8E8E347DEEECDBA7FFFDF49FFFFDF5685F8F
        086A6D3D792271CFAB3671FC767812524FAF9D95F562EB0197A343F4B4936257
        7CB9D5A8BC83F68A3E0C568232E10F6FDF625E7E1566F67E44DCDFDFDF3F5FAF
        D769802D97CB839FDF7CE9C7DAFCEA8F32B3F7A8CD7B5332024F6CD780472499
        BD5DD438FD8CFDC22E96BB90472FCE5DF5938E6D8B50D1EF67F070877D78EB98
        977E779DC019F043E015E08DE5727951C6D66D73B39D7EB9059B6D6FEAAD92DE
        48AF7D6FBDBA6358A37649D635B4356A176838278773545768381FF707E4704E
        6E1EF4EB7A01F502B53551D73BB7D802478932B9B67783CF1D3799D925702F33
        7FECEEF7808D249924CCCC96CBE5DED9F4F8A5D3FCD82B97E71F3CBBEDB4DCC7
        554226EE3132EBBD7DF406888C2D7B394A62D709F5D4EB177D364617B0710684
        C6542C3CF5CC319FFF44686EAD02FF057C17F8A7D56AF5D6CB2FBFBC96A4D2DF
        DB593EF4FB6F7C2AFFF52B4FEDDBBF24A618570939EE0A27BDF6A81D2BBEFBE9
        067C207D3306C3D0EFC5B02B2C79DDD99AA94B64ABF7C9B5399FFE834FF267CF
        6D72AFF87A04FB23E007C330DC5B2C1697DB26FE9125D2DDBB77A7C0D3C067D6
        2CBEF88EDFFCC2854F9F3DDFE46CBD19AC6E2E8970329C8C46B4BA6D16503E74
        7C88E191DB47BCF4DAFC8083C5133C71709D27F74C9F3818623E6961660F24DD
        035E077E00FC1478EFCE9D3B8F36F0BB8B2E8D097013F87DE07366F6C7925E30
        B3DF0116C03E3003AEF2F8B7DB12A8C01A5849FAC0CCDE96F43AF006F09F3C66
        89F4D855F3DDBB77CB6AB5DA9BCFE7CF4CA7D3DF33B3DB928E818F031F031666
        36D1AE5BFFCD363393A40056C0BBC02FCCECBEA49FBBFBBDCD66F3CE62B1B8FC
        B58BD0C7BC74CBF6BCD67A636F6F6F516B5D00FB93C9E41AFF0F0C474403D6B3
        D96C757979B99ACD66E7FC26CBFC5F03DC8072727262474747767676F65B31FB
        E1EDF0F0502727273A3A3A1290FF977FA4FC2F990404DDE19C80200000000049
        454E44AE426082
      }
      Visible = False
    end
    object infoAgeCat: TLabel
      Left = 132
      Height = 22
      Top = 12
      Width = 40
      Alignment = taCenter
      AutoSize = False
      Caption = '0+'
      Font.Color = clWhite
      Font.Style = [fsBold]
      Layout = tlCenter
      ParentColor = False
      ParentFont = False
      Visible = False
    end
  end
  object mainMenu: TMainMenu
    left = 4
    top = 4
    object programmeMenu: TMenuItem
      Caption = '&Программа'
      object programmeLaunch: TMenuItem
        Caption = '&Запустить'
        Enabled = False
        ShortCut = 13
        OnClick = programmeLaunchClick
      end
      object programmeDebug: TMenuItem
        Caption = '&Отладка'
        Enabled = False
        ShortCut = 8205
        OnClick = programmeDebugClick
      end
      object programmeProperties: TMenuItem
        Caption = 'Сво&йства…'
        Enabled = False
        ShortCut = 32781
        OnClick = programmePropertiesClick
      end
      object _001: TMenuItem
        Caption = '-'
      end
      object programmeInstall: TMenuItem
        Caption = '&Установить…'
        OnClick = programmeInstallClick
      end
      object programmeUninstall: TMenuItem
        Caption = 'Уда&лить…'
        Enabled = False
        OnClick = programmeUninstallClick
      end
      object programmeMove: TMenuItem
        Caption = 'Переместить'
        Enabled = False
        OnClick = programmeMoveClick
      end
      object _002: TMenuItem
        Caption = '-'
      end
      object programmeRunningList: TMenuItem
        Caption = 'Запущенные &программы…'
        ShortCut = 16460
        OnClick = programmeRunningListClick
      end
      object _003: TMenuItem
        Caption = '-'
      end
      object programmeEmulatorSettings: TMenuItem
        Caption = '&Настройки…'
        OnClick = programmeEmulatorSettingsClick
      end
      object _004: TMenuItem
        Caption = '-'
      end
      object programmeCloseWindow: TMenuItem
        Caption = 'Закр&ыть окно'
        ShortCut = 16471
        OnClick = programmeCloseWindowClick
      end
    end
    object viewMenu: TMenuItem
      Caption = '&Вид'
      object viewRecent: TMenuItem
        AutoCheck = True
        Caption = '&Недавние'
        Checked = True
        GroupIndex = 1
        RadioItem = True
        ShortCut = 16433
        OnClick = viewPageClick
      end
      object viewGames: TMenuItem
        Tag = 1
        AutoCheck = True
        Caption = '&Игры'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 16434
        OnClick = viewPageClick
      end
      object viewApps: TMenuItem
        Tag = 2
        AutoCheck = True
        Caption = '&Приложения'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 16435
        OnClick = viewPageClick
      end
    end
    object helpMenu: TMenuItem
      Caption = '&Справка'
      object helpAbout: TMenuItem
        Caption = '&О программе…'
        OnClick = helpAboutClick
      end
    end
  end
end