set some TTreeView.ReadOnly to true

git-svn-id: trunk@18360 -

lcl/dirsel.lfm

@@ -3,10 +3,6 @@ object DirSelDlg: TDirSelDlg
   Height = 330
   Top = 231
   Width = 335
-  HorzScrollBar.Page = 334
-  HorzScrollBar.Range = 14
-  VertScrollBar.Page = 329
-  VertScrollBar.Range = 63
   ActiveControl = TV
   BorderStyle = bsDialog
   Caption = 'Select Directory'
@@ -15,7 +11,9 @@ object DirSelDlg: TDirSelDlg
   FormStyle = fsStayOnTop
   OnShow = FormShow
   Position = poScreenCenter
+  LCLVersion = '0.9.27'
   object Panel1: TPanel
+    Left = 0
     Height = 41
     Top = 289
     Width = 335
@@ -58,7 +56,9 @@ object DirSelDlg: TDirSelDlg
     end
   end
   object DirectoryPanel: TPanel
+    Left = 0
     Height = 24
+    Top = 0
     Width = 335
     Align = alTop
     BevelOuter = bvNone
@@ -89,9 +89,10 @@ object DirSelDlg: TDirSelDlg
     DefaultItemHeight = 19
     ParentColor = True
     ParentCtl3D = False
-    ParentFont = True
+    ReadOnly = True
     ScrollBars = ssVertical
     TabOrder = 0
     OnExpanded = TVExpanded
+    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
   end
 end

lcl/dirsel.lrs

@@ -2,30 +2,31 @@
 
 LazarusResources.Add('TDirSelDlg','FORMDATA',[
   'TPF0'#10'TDirSelDlg'#9'DirSelDlg'#4'Left'#3#169#1#6'Height'#3'J'#1#3'Top'#3
-  +#231#0#5'Width'#3'O'#1#18'HorzScrollBar.Page'#3'N'#1#19'HorzScrollBar.Range'
+  +#231#0#5'Width'#3'O'#1#13'ActiveControl'#7#2'TV'#11'BorderStyle'#7#8'bsDialo'
-  +#2#14#18'VertScrollBar.Page'#3'I'#1#19'VertScrollBar.Range'#2'?'#13'ActiveCo'
+  +'g'#7'Caption'#6#16'Select Directory'#12'ClientHeight'#3'J'#1#11'ClientWidth'
-  +'ntrol'#7#2'TV'#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#16'Select Directo'
+  +#3'O'#1#9'FormStyle'#7#11'fsStayOnTop'#6'OnShow'#7#8'FormShow'#8'Position'#7
-  +'ry'#12'ClientHeight'#3'J'#1#11'ClientWidth'#3'O'#1#9'FormStyle'#7#11'fsStay'
+  +#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TPanel'#6'Panel1'#4'Left'
-  +'OnTop'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#0#6'TPanel'
+  +#2#0#6'Height'#2')'#3'Top'#3'!'#1#5'Width'#3'O'#1#5'Align'#7#8'alBottom'#8'A'
-  +#6'Panel1'#6'Height'#2')'#3'Top'#3'!'#1#5'Width'#3'O'#1#5'Align'#7#8'alBotto'
+  +'utoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2')'#11'ClientWidth'
-  +'m'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2')'#11'Client'
+  +#3'O'#1#8'TabOrder'#2#2#7'TabStop'#9#0#7'TButton'#5'btnOK'#21'AnchorSideBott'
-  +'Width'#3'O'#1#8'TabOrder'#2#2#7'TabStop'#9#0#7'TButton'#5'btnOK'#21'AnchorS'
+  +'om.Side'#7#9'asrBottom'#4'Left'#3#172#0#6'Height'#2#29#3'Top'#2#6#5'Width'#2
-  +'ideBottom.Side'#7#9'asrBottom'#4'Left'#3#172#0#6'Height'#2#29#3'Top'#2#6#5
+  +'K'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Capti'
-  +'Width'#2'K'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
+  +'on'#6#5'btnOK'#20'Constraints.MinWidth'#2'K'#11'ModalResult'#2#1#8'TabOrder'
-  +#7'Caption'#6#5'btnOK'#20'Constraints.MinWidth'#2'K'#11'ModalResult'#2#1#8'T'
+  +#2#0#0#0#7'TButton'#9'btnCancel'#20'AnchorSideRight.Side'#7#9'asrBottom'#21
-  +'abOrder'#2#0#0#0#7'TButton'#9'btnCancel'#20'AnchorSideRight.Side'#7#9'asrBo'
+  +'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#253#0#6'Height'#2#29#3'Top'
-  +'ttom'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#253#0#6'Height'#2
+  +#2#6#5'Width'#2'L'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Arou'
-  +#29#3'Top'#2#6#5'Width'#2'L'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSp'
+  +'nd'#2#6#6'Cancel'#9#7'Caption'#6#9'btnCancel'#20'Constraints.MinWidth'#2'K'
-  +'acing.Around'#2#6#6'Cancel'#9#7'Caption'#6#9'btnCancel'#20'Constraints.MinW'
+  +#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#6'TPanel'#14'DirectoryPanel'#4'Le'
-  +'idth'#2'K'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#6'TPanel'#14'Directory'
+  +'ft'#2#0#6'Height'#2#24#3'Top'#2#0#5'Width'#3'O'#1#5'Align'#7#5'alTop'#10'Be'
-  +'Panel'#6'Height'#2#24#5'Width'#3'O'#1#5'Align'#7#5'alTop'#10'BevelOuter'#7#6
+  +'velOuter'#7#6'bvNone'#12'ClientHeight'#2#24#11'ClientWidth'#3'O'#1#8'TabOrd'
-  +'bvNone'#12'ClientHeight'#2#24#11'ClientWidth'#3'O'#1#8'TabOrder'#2#1#7'TabS'
+  +'er'#2#1#7'TabStop'#9#0#6'TLabel'#12'lblDirectory'#4'Left'#3#140#0#6'Height'
-  +'top'#9#0#6'TLabel'#12'lblDirectory'#4'Left'#3#140#0#6'Height'#2#17#3'Top'#2
+  +#2#17#3'Top'#2#4#5'Width'#2'L'#7'Caption'#6#10'&Directory'#12'FocusControl'#7
-  +#4#5'Width'#2'L'#7'Caption'#6#10'&Directory'#12'FocusControl'#7#2'TV'#6'Layo'
+  +#2'TV'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#0#9'TTreeView'#2'TV'#4
-  +'ut'#7#8'tlCenter'#11'ParentColor'#8#0#0#0#9'TTreeView'#2'TV'#4'Left'#2#6#6
+  +'Left'#2#6#6'Height'#3#253#0#3'Top'#2#30#5'Width'#3'C'#1#5'Align'#7#8'alClie'
-  +'Height'#3#253#0#3'Top'#2#30#5'Width'#3'C'#1#5'Align'#7#8'alClient'#20'Borde'
+  +'nt'#20'BorderSpacing.Around'#2#6#21'Constraints.MinHeight'#2'd'#20'Constrai'
-  +'rSpacing.Around'#2#6#21'Constraints.MinHeight'#2'd'#20'Constraints.MinWidth'
+  +'nts.MinWidth'#2'd'#17'DefaultItemHeight'#2#19#11'ParentColor'#9#11'ParentCt'
-  +#2'd'#17'DefaultItemHeight'#2#19#11'ParentColor'#9#11'ParentCtl3D'#8#10'Pare'
+  +'l3D'#8#8'ReadOnly'#9#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#10'OnE'
-  +'ntFont'#9#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#10'OnExpanded'#7
+  +'xpanded'#7#10'TVExpanded'#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSel'
-  +#10'TVExpanded'#0#0#0
+  +'ection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#14'tvoShowButtons'#12'tvo'
+  +'ShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#0
 ]);