programmepropertieswindow.lfm

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

object ProgrammePropertiesForm: TProgrammePropertiesForm
  Left = -2
  Height = 240
  Top = 4
  Width = 320
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Свойства программы'
  ClientHeight = 240
  ClientWidth = 320
  LCLVersion = '1.8.2.0'
  object descriptionLabel: TLabel
    Left = 8
    Height = 15
    Top = 32
    Width = 152
    AutoSize = False
    Caption = '&Описание программы:'
    FocusControl = description
    ParentColor = False
  end
  object descriptionRemaining: TLabel
    Left = 160
    Height = 15
    Top = 32
    Width = 152
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Осталось символов: 1024'
    ParentColor = False
  end
  object description: TMemo
    Left = 8
    Height = 100
    Top = 48
    Width = 304
    MaxLength = 1024
    OnChange = descriptionChange
    ScrollBars = ssVertical
    TabOrder = 0
    WantReturns = False
  end
  object screenWidthLabel: TLabel
    Left = 56
    Height = 13
    Top = 156
    Width = 133
    Caption = '&Ширина экрана, пикселы:'
    FocusControl = screenWidth
    ParentColor = False
  end
  object screenWidth: TEdit
    Left = 208
    Height = 24
    Top = 152
    Width = 40
    Alignment = taRightJustify
    AutoSize = False
    MaxLength = 4
    OnChange = screenSizeChange
    OnKeyDown = screenWidthKeyDown
    TabOrder = 1
    Text = '1024'
  end
  object screenWidthCounter: TUpDown
    Left = 248
    Height = 24
    Top = 152
    Width = 16
    Associate = screenWidth
    Max = 1024
    Min = 96
    Position = 1024
    TabOrder = 2
    Wrap = False
  end
  object screenHeightLabel: TLabel
    Left = 56
    Height = 13
    Top = 184
    Width = 130
    Caption = '&Высота экрана, пикселы:'
    FocusControl = screenHeight
    ParentColor = False
  end
  object screenHeight: TEdit
    Left = 208
    Height = 24
    Top = 180
    Width = 40
    Alignment = taRightJustify
    AutoSize = False
    MaxLength = 3
    OnChange = screenSizeChange
    OnKeyDown = screenHeightKeyDown
    TabOrder = 3
    Text = '768'
  end
  object screenHeightCounter: TUpDown
    Left = 248
    Height = 24
    Top = 180
    Width = 16
    Associate = screenHeight
    Max = 768
    Min = 64
    Position = 768
    TabOrder = 4
    Wrap = False
  end
  object defaultsButton: TButton
    Left = 8
    Height = 24
    Top = 208
    Width = 136
    Caption = 'Размер по &умолчанию'
    OnClick = defaultsButtonClick
    TabOrder = 5
  end
  object saveButton: TButton
    Left = 152
    Height = 24
    Top = 208
    Width = 76
    Caption = 'Записать'
    Default = True
    ModalResult = 1
    TabOrder = 6
  end
  object cancelButton: TButton
    Left = 236
    Height = 24
    Top = 208
    Width = 76
    Cancel = True
    Caption = 'Отмена'
    ModalResult = 11
    TabOrder = 7
  end
  object placeLabel: TLabel
    Left = 8
    Height = 13
    Top = 12
    Width = 76
    Caption = '&Расположение:'
    FocusControl = place
    ParentColor = False
  end
  object place: TEdit
    Left = 100
    Height = 21
    Top = 8
    Width = 212
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 8
  end
end