paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 01:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Change TListBox to TListView in AddToProject dialog

Browse Source 
git-svn-id: trunk@35702 -
This commit is contained in:
juha 2012-03-04 11:41:03 +00:00
parent dca02ad8f5
commit ef1aea7d22
2 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/addtoprojectdlg.lfm
View File

@ -35,7 +35,7 @@ object AddToProjectDialog: TAddToProjectDialog
Caption = 'AddFileLabel'
ParentColor = False
end
object AddFileListBox: TListBox
object AddFileListView: TListView
Left = 6
Height = 230
Top = 27
@ -43,7 +43,7 @@ object AddToProjectDialog: TAddToProjectDialog
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
Columns = <>
MultiSelect = True
TabOrder = 0
end

32
ide/addtoprojectdlg.pas
View File

@ -58,6 +58,7 @@ type
{ TAddToProjectDialog }
TAddToProjectDialog = class(TForm)
AddFileListView: TListView;
ButtonPanel: TButtonPanel;
FilesBrowseButton: TBitBtn;
FilesDeleteButton: TBitBtn;
@ -70,7 +71,6 @@ type
AddFilesPage: TTabSheet;
// add file page
AddFileLabel: TLabel;
AddFileListBox: TListBox;
// new required package
DependPkgNameLabel: TLabel;
DependPkgNameComboBox: TComboBox;
@ -300,9 +300,9 @@ var
begin
try
NewFiles:=TStringList.Create;
for i:=0 to AddFileListBox.Items.Count-1 do
if AddFileListBox.Selected[i] then begin
NewFilename:=AddFileListBox.Items[i];
for i:=0 to AddFileListView.Items.Count-1 do
if AddFileListView.Items[i].Selected then begin
NewFilename:=AddFileListView.Items[i].Caption;
case CheckAddingFile(NewFiles, NewFilename) of
mrOk: ;
mrIgnore: continue;
@ -434,7 +434,7 @@ begin
0: begin // Add Editor Files
ButtonPanel.OKButton.Caption:=lisA2PAddFiles;
ButtonPanel.OkButton.OnClick:=@AddFileButtonClick;
ButtonPanel.OkButton.Enabled:=AddFileListBox.Items.Count>0;
ButtonPanel.OkButton.Enabled:=AddFileListView.Items.Count>0;
end;
1: begin // New Requirement
ButtonPanel.OkButton.Caption:=lisA2PCreateNewReq;
@ -625,33 +625,25 @@ end;
procedure TAddToProjectDialog.UpdateAvailableFiles;
var
Index: Integer;
CurFile: TUnitInfo;
NewListItem: TListItem;
NewFilename: String;
begin
AddFileListBox.Items.BeginUpdate;
AddFileListView.Items.BeginUpdate;
if TheProject<>nil then begin
Index:=0;
CurFile:=TheProject.FirstUnitWithEditorIndex;
while CurFile<>nil do begin
if (not CurFile.IsPartOfProject) and (not CurFile.IsVirtual) then begin
NewFilename:=CreateRelativePath(CurFile.Filename,TheProject.ProjectDirectory);
if Index<AddFileListBox.Items.Count then
AddFileListBox.Items[Index]:=NewFilename
else
AddFileListBox.Items.Add(NewFilename);
AddFileListBox.Selected[Index]:=True;
inc(Index);
NewListItem:=AddFileListView.Items.Add;
NewListItem.Caption:=NewFilename;
NewListItem.Selected:=True;
end;
CurFile:=CurFile.NextUnitWithEditorIndex;
end;
while AddFileListBox.Items.Count>Index do
AddFileListBox.Items.Delete(AddFileListBox.Items.Count-1);
end else begin
AddFileListBox.Items.Clear;
end;
AddFileListBox.Items.EndUpdate;
ButtonPanel.OkButton.Enabled:=AddFileListBox.Items.Count>0;
AddFileListView.Items.EndUpdate;
ButtonPanel.OkButton.Enabled:=AddFileListView.Items.Count>0;
end;
procedure TAddToProjectDialog.UpdateFilesButtons;