Chip 2003 April/Chip_2003-04_cd1.bin/sharewar/room/rooarr3d.exe/RooArr.exe/0/RCDATA/TFORMPROP/TFORMPROP.txt

Text File | 2003-02-17 | 8.1 KB | 449 lines

object FormProp: TFormProp
  Left = 227
  Top = 191
  HelpContext = 6
  BorderStyle = bsDialog
  Caption = 'Object Properties'
  ClientHeight = 357
  ClientWidth = 540
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object LbCaption: TLabel
    Left = 8
    Top = 40
    Width = 39
    Height = 13
    Caption = 'Caption:'
  end
  object LbPos: TLabel
    Left = 8
    Top = 112
    Width = 37
    Height = 13
    Caption = 'Position'
  end
  object LbWidth: TLabel
    Left = 8
    Top = 64
    Width = 31
    Height = 13
    Caption = 'Width:'
  end
  object LbHeight: TLabel
    Left = 8
    Top = 88
    Width = 36
    Height = 13
    Caption = 'Length:'
  end
  object LbRotation: TLabel
    Left = 8
    Top = 160
    Width = 43
    Height = 13
    Caption = 'Rotation:'
  end
  object Label7: TLabel
    Left = 50
    Top = 112
    Width = 8
    Height = 13
    Caption = 'x:'
  end
  object Label8: TLabel
    Left = 50
    Top = 136
    Width = 8
    Height = 13
    Caption = 'y:'
  end
  object LbUnit2: TLabel
    Left = 102
    Top = 88
    Width = 14
    Height = 13
    Caption = 'cm'
  end
  object LbUnit1: TLabel
    Left = 102
    Top = 64
    Width = 14
    Height = 13
    Caption = 'cm'
  end
  object LbUnitX: TLabel
    Left = 102
    Top = 112
    Width = 14
    Height = 13
    Caption = 'cm'
  end
  object LbUnitY: TLabel
    Left = 102
    Top = 136
    Width = 14
    Height = 13
    Caption = 'cm'
  end
  object Label15: TLabel
    Left = 94
    Top = 160
    Width = 4
    Height = 13
    Caption = '�'
  end
  object LbType: TLabel
    Left = 8
    Top = 16
    Width = 27
    Height = 13
    Caption = 'Type:'
  end
  object LbPreview: TLabel
    Left = 134
    Top = 64
    Width = 121
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Preview'
  end
  object ImgPreview: TImage
    Left = 134
    Top = 80
    Width = 121
    Height = 137
  end
  object ImgRot: TImage
    Left = 101
    Top = 153
    Width = 30
    Height = 30
    Cursor = crCross
    Enabled = False
    OnMouseDown = ImgRotMouseDown
    OnMouseMove = ImgRotMouseMove
  end
  object EdCaption: TEdit
    Left = 58
    Top = 36
    Width = 199
    Height = 21
    TabOrder = 2
    OnChange = EdCaptionChange
  end
  object EdPosX: TEdit
    Left = 58
    Top = 108
    Width = 41
    Height = 21
    TabOrder = 5
    OnChange = EdCaptionChange
  end
  object EdPosY: TEdit
    Left = 58
    Top = 132
    Width = 41
    Height = 21
    TabOrder = 6
    OnChange = EdCaptionChange
  end
  object EdWidth: TEdit
    Left = 58
    Top = 60
    Width = 41
    Height = 21
    TabOrder = 3
    OnChange = EdCaptionChange
  end
  object EdHeight: TEdit
    Left = 58
    Top = 84
    Width = 41
    Height = 21
    TabOrder = 4
    OnChange = EdCaptionChange
  end
  object EdRotation: TEdit
    Left = 58
    Top = 156
    Width = 31
    Height = 21
    TabOrder = 7
    OnChange = EdCaptionChange
    OnExit = EdRotationExit
  end
  object BtnOK: TButton
    Left = 51
    Top = 328
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 11
  end
  object BtnCancel: TButton
    Left = 131
    Top = 328
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 12
  end
  object GroupBoxCatalogue: TGroupBox
    Left = 264
    Top = 4
    Width = 273
    Height = 349
    Caption = 'User library'
    TabOrder = 13
    object CatList: TListView
      Left = 80
      Top = 16
      Width = 185
      Height = 329
      Columns = <
        item
          AutoSize = True
          Caption = 'Name'
        end
        item
          Alignment = taCenter
          Caption = 'Size'
          Width = 65
        end>
      ColumnClick = False
      GridLines = True
      HideSelection = False
      RowSelect = True
      SortType = stText
      TabOrder = 0
      ViewStyle = vsReport
      OnChange = CatListChange
      OnMouseDown = CatListMouseDown
    end
    object BtnLoad: TButton
      Left = 8
      Top = 72
      Width = 70
      Height = 25
      Caption = '<- Load'
      TabOrder = 1
      OnClick = BtnLoadClick
    end
    object BtnSave: TButton
      Left = 8
      Top = 104
      Width = 70
      Height = 25
      Caption = 'Save ->'
      TabOrder = 2
      OnClick = BtnSaveClick
    end
    object BtnHelp: TButton
      Left = 8
      Top = 320
      Width = 70
      Height = 25
      Caption = 'Help'
      TabOrder = 3
      OnClick = BtnHelpClick
    end
  end
  object GroupBoxColors: TGroupBox
    Left = 8
    Top = 256
    Width = 249
    Height = 65
    Caption = 'Colors'
    TabOrder = 10
    object ImgColor: TImage
      Left = 68
      Top = 16
      Width = 41
      Height = 17
      OnClick = BtnColorClick
    end
    object ImgFill: TImage
      Left = 68
      Top = 40
      Width = 41
      Height = 17
      OnClick = BtnColorClick
    end
    object ImgTextColor: TImage
      Left = 194
      Top = 40
      Width = 41
      Height = 17
      OnClick = BtnColorClick
    end
    object LbLineStyle: TLabel
      Left = 113
      Top = 18
      Width = 26
      Height = 13
      Caption = 'Style:'
    end
    object ChkTextColor: TCheckBox
      Left = 113
      Top = 40
      Width = 80
      Height = 17
      Caption = 'Caption:'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnClick = EdCaptionChange
    end
    object ChkLine: TCheckBox
      Left = 8
      Top = 16
      Width = 60
      Height = 17
      Caption = 'Line:'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = EdCaptionChange
    end
    object ChkFill: TCheckBox
      Left = 8
      Top = 40
      Width = 60
      Height = 17
      Caption = 'Fill:'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = EdCaptionChange
    end
    object CbLineStyle: TComboBox
      Left = 152
      Top = 14
      Width = 83
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      OnChange = EdCaptionChange
    end
  end
  object CBType: TComboBox
    Left = 58
    Top = 12
    Width = 96
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
    OnChange = CBTypeChange
  end
  object BtnCatalogue: TButton
    Left = 157
    Top = 8
    Width = 100
    Height = 25
    Caption = 'User library  <<'
    TabOrder = 1
    OnClick = BtnCatalogueClick
  end
  object ChkSnap: TCheckBox
    Left = 134
    Top = 232
    Width = 125
    Height = 17
    Caption = 'Snap to wall'
    TabOrder = 9
  end
  object GroupBox3D: TGroupBox
    Left = 6
    Top = 184
    Width = 123
    Height = 65
    Caption = '3D'
    TabOrder = 8
    object LbPos2: TLabel
      Left = 6
      Top = 17
      Width = 37
      Height = 13
      Caption = 'Position'
    end
    object Label2: TLabel
      Left = 52
      Top = 17
      Width = 8
      Height = 13
      Caption = 'z:'
    end
    object LbUnit5: TLabel
      Left = 103
      Top = 17
      Width = 14
      Height = 13
      Caption = 'cm'
    end
    object LbHeight2: TLabel
      Left = 6
      Top = 40
      Width = 34
      Height = 13
      Caption = 'Height:'
    end
    object LbUnit6: TLabel
      Left = 103
      Top = 40
      Width = 14
      Height = 13
      Caption = 'cm'
    end
    object EdPosZ: TEdit
      Left = 60
      Top = 12
      Width = 41
      Height = 21
      TabOrder = 0
      OnChange = EdCaptionChange
    end
    object EdZHeight: TEdit
      Left = 60
      Top = 36
      Width = 41
      Height = 21
      TabOrder = 1
      OnChange = EdCaptionChange
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 232
    Top = 320
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 432
    Top = 100
    object Odeberzkatalogu1: TMenuItem
      Caption = 'Remove Object'
      OnClick = Odeberzkatalogu1Click
    end
    object Rename1: TMenuItem
      Caption = 'Rename Object'
      OnClick = Rename1Click
    end
  end
end