object fAddChangeRepo: TfAddChangeRepo Left = 2617 Height = 200 Top = 596 Width = 626 BorderIcons = [biSystemMenu, biMaximize] Caption = 'fAddChangeRepo' ClientHeight = 200 ClientWidth = 626 Constraints.MaxHeight = 200 Constraints.MinHeight = 200 Constraints.MinWidth = 394 DesignTimePPI = 108 OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate Position = poOwnerFormCenter LCLVersion = '1.9.0.0' object btnOk: TBitBtn Tag = -1 Left = 352 Height = 34 Top = 155 Width = 120 Anchors = [akRight, akBottom] Caption = 'OK' Default = True ModalResult = 1 ParentFont = False TabOrder = 0 end object btnCancel: TBitBtn Tag = -1 Left = 491 Height = 34 Top = 155 Width = 120 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 ParentFont = False TabOrder = 1 end object edName: TEdit Left = 126 Height = 34 Top = 8 Width = 485 Anchors = [akTop, akLeft, akRight] OnChange = edNameChange ParentFont = False TabOrder = 2 Text = 'edName' end object lbName: TLabel Left = 9 Height = 20 Top = 16 Width = 41 Caption = '&Name:' FocusControl = edName ParentColor = False ParentFont = False end object lbAddress: TLabel Left = 9 Height = 20 Top = 57 Width = 54 Caption = '&Address:' FocusControl = edAddress ParentColor = False ParentFont = False end object edAddress: TEdit Left = 126 Height = 34 Top = 48 Width = 462 Anchors = [akTop, akLeft, akRight] OnChange = edNameChange ParentFont = False TabOrder = 3 Text = 'edAddress' end object lbHelp: TLabel Left = 128 Height = 20 Top = 83 Width = 433 Caption = 'You can fill that field with both distant (http or ftp) or local addresses.' ParentColor = False ParentFont = False end object btnBrowse: TButton Left = 590 Height = 28 Top = 50 Width = 21 Anchors = [akTop, akRight] Caption = '...' OnClick = btnBrowseClick ParentFont = False TabOrder = 4 end object edComment: TEdit Left = 126 Height = 34 Top = 109 Width = 485 Anchors = [akTop, akLeft, akRight] ParentFont = False TabOrder = 5 Text = 'edComment' end object lbComment: TLabel Left = 9 Height = 20 Top = 114 Width = 76 Caption = '&Description:' FocusControl = edComment ParentColor = False ParentFont = False end object dlgSelectDirectory: TSelectDirectoryDialog InitialDir = '/' Options = [ofPathMustExist, ofCreatePrompt, ofNoNetworkButton, ofEnableSizing, ofViewDetail] left = 81 top = 153 end end