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

16
ide/addtoprojectdlg.pas
View File

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