IDE, Build profile manager dialog: ask confirmation before deleting profile

git-svn-id: trunk@28210 -

ide/buildprofilemanager.lfm

@@ -41,21 +41,21 @@ object BuildProfileManagerForm: TBuildProfileManagerForm
         OnClick = MoveDownButtonClick
       end
       object MoveUpButton: TToolButton
-        Left = 246
+        Left = 201
         Top = 0
         Caption = 'MoveUpButton'
         ImageIndex = 3
         OnClick = MoveUpButtonClick
       end
       object EditButton: TToolButton
-        Left = 171
+        Left = 139
         Top = 0
         Caption = 'EditButton'
         ImageIndex = 2
         OnClick = EditButtonClick
       end
       object RemoveButton: TToolButton
-        Left = 73
+        Left = 60
         Top = 0
         Caption = 'RemoveButton'
         ImageIndex = 1
@@ -69,7 +69,7 @@ object BuildProfileManagerForm: TBuildProfileManagerForm
         OnClick = AddButtonClick
       end
       object tbSeparator: TToolButton
-        Left = 242
+        Left = 197
         Top = 0
         Width = 4
         Caption = 'tbSeparator'
@@ -78,7 +78,7 @@ object BuildProfileManagerForm: TBuildProfileManagerForm
     end
     object ProfilesListBox: TListBox
       Left = 1
-      Height = 321
+      Height = 327
       Top = 93
       Width = 358
       Align = alClient
@@ -88,8 +88,8 @@ object BuildProfileManagerForm: TBuildProfileManagerForm
     end
     object ButtonPanel: TButtonPanel
       Left = 7
-      Height = 32
+      Height = 26
-      Top = 420
+      Top = 426
       Width = 346
       OKButton.Name = 'OKButton'
       OKButton.Caption = '&ОК'

ide/buildprofilemanager.pas

@@ -888,20 +888,25 @@ begin
   i := ProfilesListbox.ItemIndex;
   if i<0 then exit;
   // Remove the item from selected list.
-  SelI:=fProfsToManage.Selected.IndexOf(fProfsToManage[i].fName);
+  if MessageDlg(lisLazBuildConfirmDeletion,
-  if SelI>-1 then
+    lisLazBuildAreYouSureYouWantToDeleteThisBuildProfile, mtConfirmation,
-    fProfsToManage.Selected.Delete(SelI);
+    [mbYes, mbNo], 0)=mrYes then
-  // New last item index.
+  begin
-  NewI:=i;
+    SelI:=fProfsToManage.Selected.IndexOf(fProfsToManage[i].fName);
-  if i=ProfilesListbox.Items.Count-1 then
+    if SelI>-1 then
-    Dec(NewI);
+      fProfsToManage.Selected.Delete(SelI);
-  // Update ProfsToManage collection.
+    // New last item index.
-  fProfsToManage.Delete(i);
+    NewI:=i;
-  fProfsToManage.fCurrentIndex:=NewI;
+    if i=ProfilesListbox.Items.Count-1 then
-  // Update ListBox
+      Dec(NewI);
-  ProfilesListBox.Items.Delete(i);
+    // Update ProfsToManage collection.
-  ProfilesListBox.ItemIndex:=NewI;
+    fProfsToManage.Delete(i);
-  EnableButtons;
+    fProfsToManage.fCurrentIndex:=NewI;
+    // Update ListBox
+    ProfilesListBox.Items.Delete(i);
+    ProfilesListBox.ItemIndex:=NewI;
+    EnableButtons;
+  end;
 end;
 
 procedure TBuildProfileManagerForm.EditButtonClick(Sender: TObject);

ide/lazarusidestrconsts.pas

@@ -2838,6 +2838,9 @@ resourcestring
     +'ation dialog when building directly from Tools menu';
   lisLazBuildEditListOfDefinesWhichCanBeUsedByAnyProfile = 'Edit list of '
     +'defines which can be used by any profile';
+  lisLazBuildConfirmDeletion = 'Confirm deletion';
+  lisLazBuildAreYouSureYouWantToDeleteThisBuildProfile = 'Are you sure you '
+    +'want to delete this build profile?';
   
   // compiler
   lisCompilerErrorInvalidCompiler = 'Error: invalid compiler: %s';