ACA & DTMEditor: Confirm when clearing points/colors

Villavu · Aug 30, 2023 · 68d0ab4 · 68d0ab4
1 parent b2dcd48
commit 68d0ab4
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 7 deletions.
diff --git a/Source/forms/simba.aca.pas b/Source/forms/simba.aca.pas
@@ -120,7 +120,7 @@ implementation
 
 uses
   Clipbrd, TypInfo, LCLType,
-  simba.windowhandle, simba.bitmap, simba.colormath_aca, simba.singlematrix;
+  simba.windowhandle, simba.bitmap, simba.colormath_aca, simba.singlematrix, simba.dialog;
 
 procedure TSimbaACAForm.ClientImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
 begin
@@ -392,8 +392,11 @@ procedure TSimbaACAForm.ButtonRemoveColorClick(Sender: TObject);
 
 procedure TSimbaACAForm.ButtonRemoveAllColorsClick(Sender: TObject);
 begin
-  ColorListBox.Clear();
-  ColorListBox.OnSelectionChange(Sender, False);
+  if (SimbaQuestionDlg('ACA', 'Clear All Colors?') = ESimbaDialogResult.YES) then
+  begin
+    ColorListBox.Clear();
+    ColorListBox.OnSelectionChange(Sender, False);
+  end;
 end;
 
 procedure TSimbaACAForm.ButtonLoadImageClick(Sender: TObject);

diff --git a/Source/forms/simba.dtmeditor.pas b/Source/forms/simba.dtmeditor.pas
@@ -123,8 +123,7 @@ implementation
 {$R *.lfm}
 
 uses
-  math,
-  simba.windowhandle, simba.colormath;
+  simba.windowhandle, simba.colormath, simba.dialog;
 
 procedure TSimbaDTMEditorForm.ClientImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
 var
@@ -519,8 +518,11 @@ procedure TSimbaDTMEditorForm.ButtonClearImageClick(Sender: TObject);
 
 procedure TSimbaDTMEditorForm.ButtonDeletePointsClick(Sender: TObject);
 begin
-  ListBox.Clear();
-  ListBox.OnSelectionChange(Self, False);
+  if (SimbaQuestionDlg('DTMEditor', 'Clear All Points?') = ESimbaDialogResult.YES) then
+  begin
+    ListBox.Clear();
+    ListBox.OnSelectionChange(Self, False);
+  end;
 end;
 
 procedure TSimbaDTMEditorForm.PointEditChanged(Sender: TObject);

diff --git a/Source/simba.image_lazbridge.pas b/Source/simba.image_lazbridge.pas
@@ -7,6 +7,7 @@
 }
 unit simba.image_lazbridge;
 
+{$DEFINE SIMBA_MAX_OPTIMIZATION}
 {$i simba.inc}
 
 interface