paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 07:40:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: In ListView for adding editor files to Project Inspector, add a column and AutoWidthLastColumn. Issue #21517

Browse Source 
git-svn-id: trunk@36471 -
This commit is contained in:
juha 2012-03-30 21:22:23 +00:00
parent 75ebdba3f9
commit ec95bb1702
2 changed files with 28 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ide/addtoprojectdlg.lfm
View File

@ -23,11 +23,11 @@ object AddToProjectDialog: TAddToProjectDialog
OnChange = NotebookChange OnChange = NotebookChange
object AddEditorFilePage: TTabSheet object AddEditorFilePage: TTabSheet
Caption = 'AddEditorFilePage' Caption = 'AddEditorFilePage'
ClientHeight = 265 ClientHeight = 266
ClientWidth = 590 ClientWidth = 590
object AddFileLabel: TLabel object AddFileLabel: TLabel
Left = 6 Left = 6
Height = 15 Height = 16
Top = 6 Top = 6
Width = 578 Width = 578
Align = alTop Align = alTop
@ -38,10 +38,11 @@ object AddToProjectDialog: TAddToProjectDialog
object AddFileListView: TListView object AddFileListView: TListView
Left = 6 Left = 6
Height = 230 Height = 230
Top = 27 Top = 28
Width = 578 Width = 578
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoWidthLastColumn = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Columns = <> Columns = <>
MultiSelect = True MultiSelect = True
@ -79,13 +80,13 @@ object AddToProjectDialog: TAddToProjectDialog
end end
object DependPkgNameComboBox: TComboBox object DependPkgNameComboBox: TComboBox
Left = 218 Left = 218
Height = 22 Height = 23
Top = 14 Top = 14
Width = 366 Width = 366
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 0 ItemHeight = 15
OnChange = DependPkgNameComboBoxChange OnChange = DependPkgNameComboBoxChange
TabOrder = 0 TabOrder = 0
Text = 'DependPkgNameComboBox' Text = 'DependPkgNameComboBox'
@ -111,11 +112,11 @@ object AddToProjectDialog: TAddToProjectDialog
end end
object AddFilesPage: TTabSheet object AddFilesPage: TTabSheet
Caption = 'AddFilesPage' Caption = 'AddFilesPage'
ClientHeight = 265 ClientHeight = 266
ClientWidth = 590 ClientWidth = 590
object FilesListView: TListView object FilesListView: TListView
Left = 6 Left = 6
Height = 217 Height = 218
Top = 6 Top = 6
Width = 578 Width = 578
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -129,10 +130,10 @@ object AddToProjectDialog: TAddToProjectDialog
object FilesDirButton: TBitBtn object FilesDirButton: TBitBtn
AnchorSideLeft.Control = FilesBrowseButton AnchorSideLeft.Control = FilesBrowseButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 128 Left = 135
Height = 24 Height = 25
Top = 234 Top = 234
Width = 90 Width = 100
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -142,9 +143,9 @@ object AddToProjectDialog: TAddToProjectDialog
end end
object FilesBrowseButton: TBitBtn object FilesBrowseButton: TBitBtn
Left = 6 Left = 6
Height = 24 Height = 25
Top = 234 Top = 234
Width = 116 Width = 123
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
Caption = 'FilesBrowseButton' Caption = 'FilesBrowseButton'
@ -154,10 +155,10 @@ object AddToProjectDialog: TAddToProjectDialog
object FilesShortenButton: TBitBtn object FilesShortenButton: TBitBtn
AnchorSideLeft.Control = FilesDirButton AnchorSideLeft.Control = FilesDirButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 224 Left = 241
Height = 24 Height = 25
Top = 234 Top = 234
Width = 118 Width = 126
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -168,10 +169,10 @@ object AddToProjectDialog: TAddToProjectDialog
object FilesDeleteButton: TBitBtn object FilesDeleteButton: TBitBtn
AnchorSideLeft.Control = FilesShortenButton AnchorSideLeft.Control = FilesShortenButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 348 Left = 373
Height = 24 Height = 25
Top = 234 Top = 234
Width = 110 Width = 118
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6

10
ide/addtoprojectdlg.pas
View File

@ -470,9 +470,13 @@ begin
end; end;
procedure TAddToProjectDialog.SetupAddEditorFilePage; procedure TAddToProjectDialog.SetupAddEditorFilePage;
var
CurColumn: TListColumn;
begin begin
AddEditorFilePage.Caption := lisProjAddEditorFile; AddEditorFilePage.Caption := lisProjAddEditorFile;
AddFileLabel.Caption:=lisProjFiles; AddFileLabel.Caption:=lisProjFiles;
CurColumn:=AddFileListView.Columns.Add;
CurColumn.Caption:=lisA2PFilename2;
end; end;
procedure TAddToProjectDialog.SetupAddRequirementPage; procedure TAddToProjectDialog.SetupAddRequirementPage;
@ -495,13 +499,11 @@ var
begin begin
AddFilesPage.Caption := lisA2PAddFiles; AddFilesPage.Caption := lisA2PAddFiles;
with FilesListView do begin CurColumn:=FilesListView.Columns.Add;
CurColumn:=Columns.Add;
CurColumn.Width:=200; CurColumn.Width:=200;
CurColumn.Caption:=lisA2PFilename2; CurColumn.Caption:=lisA2PFilename2;
CurColumn:=Columns.Add; CurColumn:=FilesListView.Columns.Add;
CurColumn.Caption:=dlgEnvType; CurColumn.Caption:=dlgEnvType;
end;
with FilesBrowseButton do begin with FilesBrowseButton do begin
Caption:=lisA2PAddFiles; Caption:=lisA2PAddFiles;